<%@ LANGUAGE = VBScript %> <% Option Explicit %> <!-- #include file="directives.inc" --> <% if Session("FONTSIZE") = "" then %> <!--#include file="iito.inc"--> <% else %> <!--#include file="iivdrd.str"--> <% 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 %> <!--#include file="iiset.inc"--> <!--#include file="iisetfnt.inc"--> <HTML> <HEAD> <TITLE></TITLE> <SCRIPT LANGUAGE="JavaScript"> var Global=top.title.Global; <% if UCase(Right(currentobj.ADsPath,4))="ROOT" then %> Global.helpFileName="iipy_3"; <% else %> Global.helpFileName="iipy_5"; <% end if %> function warnWrkingSite() { if (top.title.nodeList[Global.selId].isWorkingServer) { alert("<%= L_WORKINGSERVER_TEXT %>"); } } function listFuncs(){ this.writeList=buildListForm; } function buildListForm(){ } function setHttpRedirect(){ redirstr = document.userform.hdnHttpRedirect.value + ","; if (document.userform.chkEXACT_DESTINATION.checked){ redirstr += "EXACT_DESTINATION,"; } if (document.userform.chkCHILD_ONLY.checked){ redirstr += "CHILD_ONLY,"; } if (document.userform.chkPERMANENT.checked){ redirstr += "PERMANENT, "; } document.userform.HttpRedirect.value = redirstr; } listFunc=new listFuncs(); </SCRIPT> </HEAD> <BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" > <%= sFont("","","",True) %> <FORM NAME="userform" onSubmit="return false"> <TABLE WIDTH="100%" BORDER=0 CELLPADDING=0> <TR> <TD VALIGN="Bottom"> <%= 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) %> <INPUT TYPE="hidden" NAME="HttpRedirect" VALUE="<%= currentobj.HttpRedirect %>"> </FONT> </TD> </TR> <TR> <TD> </TD> </TR> <TR> <TD> <%= sFont("","","",True) %> <%= L_CLIENTSENTTO_TEXT %><P> <%= redirOpt("EXACT_DESTINATION") %><%= L_EXACTURL_TEXT %><BR> <%= redirOpt("CHILD_ONLY") %><%= L_DIRBELOW_TEXT %><BR> <%= redirOpt("PERMANENT") %><%= L_PERM_TEXT %> </FONT> </TD> </TR> </TABLE> </FORM> </FONT> </BODY> </HTML> <% end if %>