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