home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iidef.asp < prev    next >
Text File  |  1997-11-12  |  2KB  |  76 lines
  1. <%@ LANGUAGE=VBScript %>
  2. <% Option Explicit %>
  3. <% Response.Expires = 0 %>
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.  
  9. <% 
  10. '    strings for localization
  11. Const L_DEFAULTSITE_TEXT = "Default Web Site"
  12. Const L_DEFTEXT_TEXT = "One Web site can be configured to respond to previous versions of the Internet Information Server Internet Service Manager. Select the default Web site below."
  13.  
  14. On Error Resume Next 
  15.  
  16. Dim path,currentobj,Inst
  17.  
  18. path=Session("spath")
  19. Session("path")=path
  20. Session("SpecObj")=""
  21. Session("SpecProps")=""
  22.  
  23. Set currentobj=GetObject(path)
  24.  
  25. %>
  26.  
  27. <!--#include file="iiset.inc"-->
  28.  
  29. <HTML>
  30. <HEAD>
  31. <TITLE></TITLE>
  32.  
  33. <SCRIPT LANGUAGE="JavaScript">
  34. <% if InStr(currentobj.KeyType, "Ftp") <> 0 then %>
  35.     top.title.Global.helpFileName="iipz_17";
  36. <% else %>
  37.     top.title.Global.helpFileName="iipy_38";
  38. <% end if %>    
  39. </SCRIPT>
  40.  
  41. </HEAD>
  42.  
  43. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" STYLE="font-face: Helv,Arial; font-size:10pt;">
  44. <FORM NAME="userform">
  45. <FONT SIZE=1 FACE="Helv,ARIAL">
  46. <B><%= L_DEFAULTSITE_TEXT %></B>
  47. <BLOCKQUOTE>
  48. <TABLE WIDTH = 400>
  49.     <TR>
  50.         <TD>
  51.             <FONT SIZE=1 FACE="Helv,ARIAL">
  52.                 <%= L_DEFTEXT_TEXT %><P>
  53.             </FONT>
  54.         </TD>
  55.     </TR>
  56. </TABLE>
  57. <SELECT NAME="DownlevelAdminInstance" onChange="top.title.Global.updated=true;">
  58. <%
  59.     For Each Inst in currentobj
  60.         if currentobj.DownlevelAdminInstance = CInt(Inst.Name) then
  61.             Response.write "<Option Selected VALUE='" & Inst.Name & "'>" & Inst.ServerComment
  62.         else
  63.             Response.write "<Option VALUE='" & Inst.Name & "'>" & Inst.ServerComment
  64.         end if
  65.     Next
  66. %>
  67.  
  68. </SELECT>
  69. </BLOCKQUOTE>
  70. </FORM>
  71. </FONT>
  72. </BODY>
  73. </HTML>
  74.  
  75.  
  76. <% end if %>