<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% ' strings for localization Const L_ACCESSDENIED_TEXT="Access Denied" Const L_CLIENTSENTTO_TEXT="The client will be sent to:" Const L_EXACTURL_TEXT="the exact URL entered above." Const L_DIRBELOW_TEXT="a directory below this one." Const L_PERM_TEXT="a permanent redirection for this resource." Const L_UNSET_TEXT="(not set)" ' NOTE: \r is a carraige return for line spacing... Const L_REDIRTO_TEXT="Redirect to:" Dim path, currentobj, redirto On Error Resume Next path=Session("dpath") Set currentobj=GetObject(path) function redirOpt(optionStr) redirOpt = checkboxVal(0,InStr(currentobj.HttpRedirect,optionStr) > 0 ,"chk" + optionStr,"setHttpRedirect();",false) end function %>
<%= L_REDIRTO_TEXT %>  <% redirto=currentobj.HttpRedirect if InStr(redirto,",") > 0 then redirto = Left(redirto,InStr(redirto,",")-1) else redirto = "http://" end if %> <%= inputbox(0,"text","hdnHttpRedirect",redirto,25,"setHttpRedirect();","","",False,True,False) %>   
 
<%= L_CLIENTSENTTO_TEXT %>

<%= redirOpt("EXACT_DESTINATION") %><%= L_EXACTURL_TEXT %>

<%= redirOpt("CHILD_ONLY") %><%= L_DIRBELOW_TEXT %>

<%= redirOpt("PERMANENT") %><%= L_PERM_TEXT %>

<% end if %>