home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_03.cab / iifvdrd.asp < prev    next >
Text File  |  1997-11-12  |  2KB  |  109 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_ACCESSDENIED_TEXT="Access Denied" 
  12. Const L_CLIENTSENTTO_TEXT="The client will be sent to:"
  13. Const L_EXACTURL_TEXT="the exact URL entered above."
  14. Const L_DIRBELOW_TEXT="a directory below http://doughnut1/foo on this site."
  15. Const L_PERM_TEXT="a permanent redirection for http://doughnut1/foo"
  16. Const L_UNSET_TEXT="(not set)"
  17. '    NOTE: \r is a carraige return for line spacing...
  18. Const L_REDIRTO_TEXT="Redirect to:"
  19.  
  20. Dim path, currentobj, keyType, redirto
  21.  
  22. On Error Resume Next 
  23.  
  24. path=Session("dpath")
  25. Set currentobj=GetObject(path)
  26. keyType = "IIsFTPDirectory"
  27. %>
  28. <!--#include file="iifixpth.inc"-->
  29.  
  30. <!--#include file="iiset.inc"-->
  31.  
  32. <HTML>
  33. <HEAD>
  34. <TITLE></TITLE>
  35. <SCRIPT LANGUAGE="JavaScript">
  36.     <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> 
  37.         top.title.Global.helpFileName="iipz_5";    
  38.     <% else %>
  39.         top.title.Global.helpFileName="iipz_3";
  40.     <% end if %>
  41.  
  42.     function listFuncs(){
  43.         this.writeList=buildListForm;
  44.     }
  45.  
  46.     function buildListForm(){
  47.     }
  48.  
  49.     listFunc=new listFuncs();
  50. </SCRIPT>
  51. </HEAD>
  52.  
  53. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" STYLE="font-face: Helv,Arial; font-size:10pt;">
  54.  
  55. <FONT SIZE=1 FACE="HELV,ARIAL">
  56.  
  57. <FORM NAME="userform" onSubmit="return false">
  58. <HR>
  59. <BLOCKQUOTE>
  60.  
  61. <TABLE WIDTH="100%" BORDER=0 CELLPADDING=0>
  62.  
  63. <TR>
  64.     <TD VALIGN="Bottom">
  65.         <FONT SIZE=1 FACE="HELV,ARIAL">
  66.             <%= L_REDIRTO_TEXT %> 
  67.             <% redirto=currentobj.HttpRedirect %>
  68.             <% if redirto <> "" then %>
  69.                 <%= redirto %>
  70.             <% else %>
  71.                 <%= L_UNSET_TEXT %>
  72.             <% end if %>
  73.             <% if false then %>
  74.                 <%= text("HttpRedirect",25,"","","",false,true) %>
  75.             <% end if %>
  76.               
  77.         </FONT>
  78.     </TD>
  79. </TR>
  80. <TR>
  81.     <TD> </TD>
  82. </TR>
  83. <!-- removed for b2
  84. <TR>
  85.     <TD>
  86.         <FONT SIZE=1 FACE="HELV,ARIAL">
  87.             <%= L_CLIENTSENTTO_TEXT %><P>
  88.             <BLOCKQUOTE>
  89.             <%= redirOpt("EXACTURL","",false) %><%= L_EXACTURL_TEXT %><P>
  90.             <%= redirOpt("PERMANENT","",false) %><%= L_DIRBELOW_TEXT %><P>
  91.             <%= redirOpt("CHILD_ONLY","",false) %><%= L_PERM_TEXT %>
  92.             </BLOCKQUOTE>
  93.         </FONT>
  94.  
  95.     </TD>
  96. </TR>
  97. -->
  98. </TABLE>
  99. </BLOCKQUOTE>
  100. </FORM>
  101.  
  102. </FONT>
  103. </BODY>
  104.  
  105. </HTML>
  106.  
  107. <% end if %>
  108.  
  109.