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