home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iifmsg.asp < prev    next >
Text File  |  1997-11-12  |  2KB  |  110 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. Const L_VSERVERMSG_TEXT="FTP Messages"
  11. Const L_WELCOME_TEXT="Welcome:"
  12. Const L_EXIT_TEXT="Exit:"
  13. Const L_MAX_TEXT="Maximum Connections:"
  14. Const L_ACCESSDENIED_TEXT="Access Denied"
  15.  
  16. On Error Resume Next
  17.  
  18. Dim path, currentobj,agreeting, greeting, arraybound, i
  19.  
  20. path=Session("spath")
  21. Session("path")=path
  22. Set currentobj=GetObject(path)
  23. Session("SpecObj")=""
  24. Session("SpecProps")=""
  25.  
  26. if IsArray(currentobj.GreetingMessage) then    
  27.  
  28.     agreeting=currentobj.GreetingMessage
  29.     greeting=    ""
  30.     arraybound=UBound(agreeting)
  31.     for i=0 to arraybound
  32.         greeting=greeting & agreeting(i)
  33.     Next
  34. else
  35.     greeting=currentobj.GreetingMessage
  36. end if
  37.  
  38. %>
  39.  
  40. <!--#include file="iiset.inc"-->
  41. <HTML>
  42. <HEAD>
  43. <TITLE></TITLE>
  44. <SCRIPT LANGUAGE="JavaScript">
  45.     var Global=top.title.Global;
  46.     top.title.Global.helpFileName="iipz_2";
  47.  
  48.     function loadVals(){
  49.     }
  50.  
  51. </SCRIPT>
  52. </HEAD>
  53.  
  54. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadVals();" STYLE="font-face: Helv,Arial; font-size:10pt;">
  55. <FONT SIZE=1 FACE="Helv,ARIAL">
  56. <B><%= L_VSERVERMSG_TEXT %></B>
  57. <FORM NAME="userform" onSubmit="return false">
  58. <BLOCKQUOTE>
  59.  
  60. <TABLE BORDER=0 CELLPADDING=0>
  61. <TR>
  62.     <TD><FONT SIZE=1 FACE="Helv,ARIAL"><%= L_WELCOME_TEXT %></FONT></TD>
  63. </TR>
  64. <TR>
  65.     <TD>
  66.     
  67. <% if Session("IsIE") then %>
  68.         <TEXTAREA NAME="txtGreetingMessage" ROWS=4 COLS=50><%= greeting %></TEXTAREA>
  69. <% else %>
  70.         <TEXTAREA NAME="txtGreetingMessage" ROWS=4 COLS=65><%= greeting %></TEXTAREA>
  71. <% end if %>
  72.  
  73.  
  74.     </TD>
  75. </TR>
  76.  
  77. <TR>
  78.     <TD HEIGHT=4><FONT SIZE=1 FACE="Helv,ARIAL"> </FONT></TD>    
  79. </TR>
  80.  
  81. <TR>
  82.     <TD><FONT SIZE=1 FACE="Helv,ARIAL"><%= L_EXIT_TEXT %></FONT></TD>    
  83. </TR>
  84.  
  85. <TR>
  86.     <TD><FONT SIZE=1 FACE="Helv,ARIAL"><%= text("ExitMessage",75,"","","",false,false) %></FONT></TD>    
  87. </TR>
  88.  
  89. <TR>
  90.     <TD HEIGHT=4><FONT SIZE=1 FACE="Helv,ARIAL"> </FONT></TD>    
  91. </TR>
  92.  
  93. <TR>
  94.     <TD><FONT SIZE=1 FACE="Helv,ARIAL"><%= L_MAX_TEXT %></FONT></TD>    
  95. </TR>
  96.  
  97. <TR>
  98.     <TD><FONT SIZE=1 FACE="Helv,ARIAL"><%= text("MaxClientsMessage",75,"","","",false,false) %></FONT></TD>    
  99. </TR>
  100.  
  101.  
  102. </TABLE>
  103. </BLOCKQUOTE>
  104.  
  105. </FORM>
  106. </FONT>
  107. </BODY>
  108.  
  109. </HTML>
  110. <% end if %>