home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iipop.asp < prev    next >
Text File  |  1997-11-12  |  1KB  |  36 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% 
  6. Const L_TITLE_TEXT="Internet Service Manager - ["
  7. Const L_END_TEXT="]"
  8.  
  9. On Error Resume Next
  10.  
  11. Dim pg
  12. pg=Request.QueryString("pg")
  13. %>
  14.  
  15. <HTML>
  16. <HEAD>
  17. <TITLE><%= (L_TITLE_TEXT & Session("dpath") & L_END_TEXT) %></TITLE>
  18. </HEAD>
  19.  
  20. <% if Request.QueryString("tools") <> "no" then %>
  21. <FRAMESET ROWS="0,*,0,40" BORDER=NO FRAMESPACING=0 FRAMEBORDER=0>
  22.     <FRAME SRC="iipophd.asp?pg=<%= pg %>" NAME="title" BORDER=NO FRAMESPACING=0 FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO>
  23.     <FRAME SRC="blank.htm" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO  MARGINHEIGHT=0 MARGINWIDTH=0>
  24.     <FRAME SRC="blank.htm" NAME="hlist" SCROLLING=NO MARGINHEIGHT=0 MARGINWIDTH=0 BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>
  25.     <FRAME NAME="poptools" SRC="iipoptl.asp" SCROLLING=NO BORDER=0 FRAMEBORDER=0 FRAMESPACING=0 MARGINHEIGHT=0 MARGINWIDTH=0>
  26. </FRAMESET>
  27. <% else %>
  28. <FRAMESET ROWS="0,*,0" BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
  29.     <FRAME SRC="iipophd.asp?pg=<%= pg %>" NAME="title" BORDER=NO FRAMESPACING=0 FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO>
  30.     <FRAME SRC="blank.htm" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO  MARGINHEIGHT=0 MARGINWIDTH=0>
  31.     <FRAME SRC="blank.htm" NAME="hlist" SCROLLING=NO MARGINHEIGHT=0 MARGINWIDTH=0 BORDER=0 FRAMEBORDER=0 FRAMESPACING=0>
  32. </FRAMESET>
  33. <% end if %>
  34.  
  35. </HTML>
  36.