<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% 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 %> " TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" > <%= sFont("","","",True) %>
<%= sFont("","","",True) %> <%= 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,L_REDIRTO_NUM,"warnWrkingSite();setHttpRedirect();","","setHttpRedirect();",False,False,False) %>   
 
<%= sFont("","","",True) %> <%= L_CLIENTSENTTO_TEXT %>

<%= redirOpt("EXACT_DESTINATION") %><%= L_EXACTURL_TEXT %>
<%= redirOpt("CHILD_ONLY") %><%= L_DIRBELOW_TEXT %>
<%= redirOpt("PERMANENT") %><%= L_PERM_TEXT %>

<% end if %>