575 lines
17 KiB
Plaintext
575 lines
17 KiB
Plaintext
|
<%@ LANGUAGE = VBScript %>
|
||
|
|
<% Option Explicit %>
|
||
|
|
<!-- #include file="directives.inc" -->
|
||
|
|
|
||
|
|
<% if Session("FONTSIZE") = "" then %>
|
||
|
|
<!--#include file="iito.inc"-->
|
||
|
|
<% else %>
|
||
|
|
<!-- localizable strings for generic wizard functionality -->
|
||
|
|
<!--#include file="iiwiz.inc"-->
|
||
|
|
<!--#include file="iiwiz.str"-->
|
||
|
|
|
||
|
|
<!-- localizable strings for new node wizard functionality -->
|
||
|
|
<!--#include file="iiwiznew.inc"-->
|
||
|
|
<!--#include file="iiwiznew.str"-->
|
||
|
|
|
||
|
|
<!-- generic wizard global vars and functions -->
|
||
|
|
<!--#include file="iiwizfncs.inc"-->
|
||
|
|
|
||
|
|
<%
|
||
|
|
|
||
|
|
'***************Required custom functions***************
|
||
|
|
'this is what happens when you press the finish button...
|
||
|
|
Function sFinish()
|
||
|
|
CreateNewNode()
|
||
|
|
End Function
|
||
|
|
|
||
|
|
'This is a completely poor error handler.
|
||
|
|
Function sHandleErrors(errnum)
|
||
|
|
%>
|
||
|
|
<SCRIPT LANGAUGE="JavaScript">
|
||
|
|
<% if errnum = &H80005009 then %>
|
||
|
|
alert("<%= L_DUPLICATEERR %>");
|
||
|
|
//go back to the nodename page.
|
||
|
|
<% else %>
|
||
|
|
alert("<%= L_ERROROCCURED & " " & errnum & "(" & HEX(errnum) & ")" %>");
|
||
|
|
<% end if %>
|
||
|
|
</SCRIPT>
|
||
|
|
<%
|
||
|
|
End Function
|
||
|
|
|
||
|
|
|
||
|
|
'Draw our Welcome screen....
|
||
|
|
Function sWriteWelcome()
|
||
|
|
Dim sOutputStr
|
||
|
|
|
||
|
|
sOutputStr = sFont("4","","",True)
|
||
|
|
sOutputStr = sOutputStr & "<B>" & L_WELCOME_HEAD & "</B><P>"
|
||
|
|
sOutputStr = sOutputStr & sFont("","","",True)
|
||
|
|
sOutputStr = sOutputStr & L_WELCOME1 & "<P>"
|
||
|
|
sOutputStr = sOutputStr & L_WELCOME2 & "<P>"
|
||
|
|
sOutputStr = sOutputStr & L_WELCOME3 & "<P>"
|
||
|
|
|
||
|
|
sWriteWelcome = sOutputStr
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
'Draw our finish page...
|
||
|
|
Function sWriteFinish()
|
||
|
|
Dim sOutputStr
|
||
|
|
|
||
|
|
sOutputStr = sFont("2","","",True)
|
||
|
|
sOutputStr = sOutputStr & "<B>" & L_FINISH_HEAD & "</B><P>"
|
||
|
|
sOutputStr = sOutputStr & sFont("","","",True)
|
||
|
|
sOutputStr = sOutputStr & L_FINISH1 & "<P>"
|
||
|
|
sOutputStr = sOutputStr & L_FINISH2 & "<P>"
|
||
|
|
sOutputStr = sOutputStr & L_FINISH3 & "<P>"
|
||
|
|
|
||
|
|
sWriteFinish = sOutputStr
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
'Draw the title bar that runs across the top of the wizard.
|
||
|
|
'This varies based upon the page, but the basic layout is the same.
|
||
|
|
'There's a bold title(sHead), a nonbold description(sDescription),
|
||
|
|
'and an image (same for all...)
|
||
|
|
Function sWriteTitle(iThisPage)
|
||
|
|
Dim sOutputStr, sHead, sDescription, iNodeType,iSiteType
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Select Case iThisPage
|
||
|
|
Case SITETYPE
|
||
|
|
sHead = L_SITETYPE
|
||
|
|
sDescription = L_SITETYPE_DESC
|
||
|
|
|
||
|
|
Case NODENAME
|
||
|
|
iNodeType = cInt(Request("NodeType"))
|
||
|
|
iSiteType = cInt(Request("SiteType"))
|
||
|
|
Select Case iNodeType
|
||
|
|
Case SITE
|
||
|
|
'=== Code Change RWS ==='
|
||
|
|
'sHead = SITETYPES(iSiteType) & " " & L_SITE_NODENAME
|
||
|
|
If iSiteType = WEB Then
|
||
|
|
sHead = L_WEB_SITE_NODENAME
|
||
|
|
Else
|
||
|
|
sHead = L_FTP_SITE_NODENAME
|
||
|
|
End If
|
||
|
|
'=== End Code Change RWS ==='
|
||
|
|
sDescription = L_SITE_NODENAME_DESC
|
||
|
|
Case VDIR
|
||
|
|
sHead = L_VDIR_NODENAME
|
||
|
|
sDescription = L_VDIR_NODENAME_DESC
|
||
|
|
Case DIR
|
||
|
|
sHead = L_DIR_NODENAME
|
||
|
|
sDescription = L_DIR_NODENAME_DESC
|
||
|
|
End Select
|
||
|
|
|
||
|
|
Case BINDINGS
|
||
|
|
iSiteType = cInt(Request("SiteType"))
|
||
|
|
sHead = SITETYPES(iSiteType) & " " & L_BINDINGS
|
||
|
|
sDescription = L_BINDINGS_DESC
|
||
|
|
|
||
|
|
Case PATHNAME
|
||
|
|
sHead = L_PATH
|
||
|
|
sDescription = L_PATH_DESC
|
||
|
|
Case ACCESSPERMS
|
||
|
|
sHead = L_ACCESSPERMS
|
||
|
|
sDescription = L_ACCESSPERMS_DESC
|
||
|
|
End Select
|
||
|
|
|
||
|
|
|
||
|
|
sOutputStr = "<TABLE WIDTH = 100% CELLPADDING=0 CELLSPACING=0 border=0>"
|
||
|
|
sOutputStr = sOutputStr & "<TR>"
|
||
|
|
sOutputStr = sOutputStr & "<TD WIDTH = 500 ALIGN=left VALIGN=top bgcolor='White'>"
|
||
|
|
|
||
|
|
if true then
|
||
|
|
sOutputStr = sOutputStr & "<TABLE CELLPADDING=0 CELLSPACING=0 border=0>"
|
||
|
|
sOutputStr = sOutputStr & "<TR>"
|
||
|
|
sOutputStr = sOutputStr & "<TD COLSPAN = 2 bgcolor='White'><BR>"
|
||
|
|
sOutputStr = sOutputStr & sFont("","","",True)
|
||
|
|
sOutputStr = sOutputStr & "<B>" & sHead & "</B>"
|
||
|
|
sOutputStr = sOutputStr & "</FONT>"
|
||
|
|
sOutputStr = sOutputStr & "</TD>"
|
||
|
|
sOutputStr = sOutputStr & "</TR>"
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & "<TR>"
|
||
|
|
sOutputStr = sOutputStr & "<TD width = 10 bgcolor='White'> </TD>"
|
||
|
|
sOutputStr = sOutputStr & "<TD bgcolor='White'>"
|
||
|
|
sOutputStr = sOutputStr & sFont("","","",True)
|
||
|
|
sOutputStr = sOutputStr & sDescription
|
||
|
|
sOutputStr = sOutputStr & "</FONT>"
|
||
|
|
sOutputStr = sOutputStr & "</TD>"
|
||
|
|
sOutputStr = sOutputStr & "</TR>"
|
||
|
|
sOutputStr = sOutputStr & "</TABLE>"
|
||
|
|
else
|
||
|
|
sOutputStr = sOutputStr & " "
|
||
|
|
end if
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & "</TD>"
|
||
|
|
sOutputStr = sOutputStr & "<TD WIDTH = 5> </TD>"
|
||
|
|
sOutputStr = sOutputStr & "<TD BGCOLOR='Teal' width = 74 ALIGN=right>"
|
||
|
|
sOutputStr = sOutputStr & "<IMG SRC='images/websitehd.gif' WIDTH=74 HEIGHT=59 border = 0>"
|
||
|
|
sOutputStr = sOutputStr & "</TD>"
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & "</TR>"
|
||
|
|
sOutputStr = sOutputStr & "</TABLE>"
|
||
|
|
|
||
|
|
sWriteTitle = sOutputStr
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
'Function that acutally draw the main form portion of each page.
|
||
|
|
Function sWritePage(iThisPage)
|
||
|
|
|
||
|
|
'** Debug, disabled for debug only.
|
||
|
|
On Error Resume Next
|
||
|
|
|
||
|
|
Dim sOutputStr, bCanAddSite, isSite, iSiteType, oParentNode, iNodeTypeDefault, sParentKeyType, sNameText
|
||
|
|
Dim bNeedPath, iNodeType, thispath
|
||
|
|
|
||
|
|
thispath = Session("ParentADSPath")
|
||
|
|
|
||
|
|
|
||
|
|
'This is a bit of a hack to create the dir node, in case it doesn't already have metabase properties associated with it.
|
||
|
|
'it assumes currentobj, path and dirkeytype, as it is included in some standard scripts
|
||
|
|
'where these are already defined.
|
||
|
|
Dim currentobj, path, dirkeytype
|
||
|
|
path = thispath
|
||
|
|
dirkeytype = sGetKeyType(fixSiteType(Session("stype")), DIR)
|
||
|
|
set currentobj = GetObject(thispath)
|
||
|
|
|
||
|
|
%> <!--#include file="iifixpth.inc"--><%
|
||
|
|
err.clear
|
||
|
|
|
||
|
|
'Find out some info about what we are adding, so we can display the
|
||
|
|
'appropriate pages/ask the appropriate qs
|
||
|
|
set oParentNode = GetObject(thispath)
|
||
|
|
sParentKeyType = UCase(oParentNode.KeyType)
|
||
|
|
'Response.write sParentKeyType
|
||
|
|
|
||
|
|
'You can't add a Site to a Vdir or Dir... so don't put a radio button for it...
|
||
|
|
bCanAddSite = InStr(sParentKeyType,"DIR") = 0
|
||
|
|
isSite = (Request("NodeType") = cStr(SITE) or (Request("NodeType") = "" and bCanAddSite))
|
||
|
|
|
||
|
|
iSiteType = iGetSiteType(oParentNode.ADsPath,sParentKeyType)
|
||
|
|
bNeedPath = isSite or (Request("NodeType") = cStr(VDIR))
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & "<TABLE CELLPADDING = 0 CELLSPACING=0 >"
|
||
|
|
sOutputStr = sOutputStr & "<TR>"
|
||
|
|
sOutputStr = sOutputStr & "<TD WIDTH = 10> </TD>"
|
||
|
|
sOutputStr = sOutputStr & "<TD>"
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & "<TABLE CELLPADDING = 0 CELLSPACING=0>"
|
||
|
|
sOutputStr = sOutputStr & "<TR>"
|
||
|
|
sOutputStr = sOutputStr & "<TD> "
|
||
|
|
sOutputStr = sOutputStr & "</TD>"
|
||
|
|
sOutputStr = sOutputStr & "</TR>"
|
||
|
|
|
||
|
|
|
||
|
|
'Draw the actual wizard form pages...
|
||
|
|
Select Case iThisPage
|
||
|
|
Case SITETYPE
|
||
|
|
|
||
|
|
'We do some trickiness here to determine what page comes next...
|
||
|
|
'Admins vs operators will get different options,
|
||
|
|
'and depending on the parent type selected, different options will appear.
|
||
|
|
|
||
|
|
if not Session("isAdmin") then
|
||
|
|
Set oParentNode = GetObject(oParentNode.ADsPath & ROOT)
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & sStaticText(L_DIRONLY,not BOLD)
|
||
|
|
sOutputStr = sOutputStr & sStaticText(oParentNode.Path, BOLD)
|
||
|
|
sOutputStr = sOutputStr & sHidden("NodeType",DIR)
|
||
|
|
sOutputStr = sOutputStr & sHidden("SiteType",iSiteType)
|
||
|
|
else
|
||
|
|
if InStr(sParentKeyType, COMP) then
|
||
|
|
sOutputStr = sOutputStr & sRadio("SiteType", WEB, L_WEBSITE, WEB, "")
|
||
|
|
sOutputStr = sOutputStr & sRadio("SiteType", FTP, L_FTPSITE, WEB, "")
|
||
|
|
sOutputStr = sOutputStr & sHidden("NodeType",SITE)
|
||
|
|
else
|
||
|
|
|
||
|
|
iNodeTypeDefault = 1
|
||
|
|
|
||
|
|
if bCanAddSite then
|
||
|
|
iNodeTypeDefault = 0
|
||
|
|
sOutputStr = sOutputStr & sRadio("NodeType", SITE, SITETYPES(iSiteType) & " " & L_SITE, iNodeTypeDefault, "")
|
||
|
|
end if
|
||
|
|
|
||
|
|
sOutputStr = sOutputStr & sRadio("NodeType", VDIR, L_VDIR, iNodeTypeDefault, "")
|
||
|
|
if iSitetype <> FTP then
|
||
|
|
sOutputStr = sOutputStr & sRadio("NodeType", DIR, L_DIR, iNodeTypeDefault, "")
|
||
|
|
end if
|
||
|
|
sOutputStr = sOutputStr & sHidden("SiteType",iSiteType)
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
|
||
|
|
Case NODENAME
|
||
|
|
iNodeType = cInt(Request("NodeType"))
|
||
|
|
iSiteType = cInt(Request("SiteType"))
|
||
|
|
'set the titles/skip pages as appropriate...
|
||
|
|
Select Case iNodeType
|
||
|
|
Case SITE
|
||
|
|
'=== Code Change RWS ==='
|
||
|
|
'sNameText = SITETYPES(iSiteType) & " " & L_WEB_SITE_NAME
|
||
|
|
If iSiteType = WEB Then
|
||
|
|
sNameText = L_WEB_SITE_NAME
|
||
|
|
Else
|
||
|
|
sNameText = L_FTP_SITE_NAME
|
||
|
|
End If
|
||
|
|
'=== End Code Change RWS ==='
|
||
|
|
iNextPage = BINDINGS
|
||
|
|
if Instr(oParentNode.KeyType,SVC) = 0 then
|
||
|
|
set oParentNode = GetObject(BASEPATH & SERVICES(iSiteType))
|
||
|
|
end if
|
||
|
|
Case VDIR
|
||
|
|
sNameText = L_VDIR_NAME
|
||
|
|
iNextPage = PATHNAME
|
||
|
|
if Instr(oParentNode.KeyType,SSITE) <> 0 then
|
||
|
|
set oParentNode = GetObject(oParentNode.ADsPath & ROOT)
|
||
|
|
end if
|
||
|
|
Case DIR
|
||
|
|
sNameText = L_DIR_NAME
|
||
|
|
iNextPage = ACCESSPERMS
|
||
|
|
if Instr(oParentNode.KeyType,SSITE) <> 0 then
|
||
|
|
set oParentNode = GetObject(oParentNode.ADsPath & ROOT)
|
||
|
|
end if
|
||
|
|
End Select
|
||
|
|
sOutputStr = sOutputStr & sTextBox("NodeName", sNameText, 40, "")
|
||
|
|
sOutputStr = sOutputStr & sHidden("hdnParentADsPath", oParentNode.ADsPath)
|
||
|
|
sOutputStr = sOutputStr & sHidden("hdnINodeType", iNodeType)
|
||
|
|
|
||
|
|
Case BINDINGS
|
||
|
|
sOutputStr = sOutputStr & sTextBox("IPAddress", L_SELECTIP, 25, "")
|
||
|
|
if iSiteType = WEB then
|
||
|
|
sOutputStr = sOutputStr & sTextBoxwDefault("TCPPort", L_ENTERTCP, 5, "", "", CStr(WEBTCPDEFAULT))
|
||
|
|
sOutputStr = sOutputStr & sTextBox("SSLPort", L_ENTERSSL, 5, "")
|
||
|
|
else
|
||
|
|
sOutputStr = sOutputStr & sTextBoxwDefault("TCPPort", L_ENTERTCP, 5, "", "", CStr(FTPTCPDEFAULT))
|
||
|
|
end if
|
||
|
|
|
||
|
|
Case PATHNAME
|
||
|
|
sOutputStr = sOutputStr & sTextBox("VRPath", L_ENTERPATH, 40, "")
|
||
|
|
sOutputStr = sOutputStr & "<TR><TD ALIGN='right'><INPUT TYPE='Button' VALUE='" & L_BROWSE & "' onClick='setPath(document.userform.VRPath);'></TD></TR>"
|
||
|
|
if iSiteType = WEB then
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowAnon", L_ALLOWANON)
|
||
|
|
end if
|
||
|
|
|
||
|
|
if not isSite then
|
||
|
|
iPrevPage = NODENAME
|
||
|
|
end if
|
||
|
|
|
||
|
|
Case ACCESSPERMS
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowRead", L_ALLOWREAD)
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowWrite", L_ALLOWWRITE)
|
||
|
|
if iSiteType = WEB then
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowScript", L_ALLOWSCRIPT)
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowExecute", L_ALLOWEXECUTE)
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowDirBrowsing", L_ALLOWDIRBROWSING)
|
||
|
|
if isSite then
|
||
|
|
sOutputStr = sOutputStr & sCheckBox("AllowRemote", L_ALLOWREMOTE)
|
||
|
|
end if
|
||
|
|
end if
|
||
|
|
if bNeedPath then
|
||
|
|
iPrevPage = PATHNAME
|
||
|
|
else
|
||
|
|
iPrevPage = NODENAME
|
||
|
|
end if
|
||
|
|
End Select
|
||
|
|
sOutputStr = sOutputStr + "</TABLE>"
|
||
|
|
sOutputStr = sOutputStr & "</TD>"
|
||
|
|
sOutputStr = sOutputStr & "</TR>"
|
||
|
|
sOutputStr = sOutputStr & "</TABLE>"
|
||
|
|
|
||
|
|
sWritePage = sOutputStr
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
%>
|
||
|
|
<!--***************Optional Custom Functions***************-->
|
||
|
|
<!--#include file="iiwiznew.fnc"-->
|
||
|
|
<!--***************End***************-->
|
||
|
|
|
||
|
|
|
||
|
|
<html>
|
||
|
|
<head>
|
||
|
|
<title><%= L_WIZARD_TEXT %></title>
|
||
|
|
|
||
|
|
<% if Session("canBrowse") then %>
|
||
|
|
|
||
|
|
<SCRIPT SRC="JSDirBrowser/JSBrowser.js">
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<SCRIPT LANGUAGE="JavaScript">
|
||
|
|
//pop-up browse dialog... initialize the object.
|
||
|
|
JSBrowser = new BrowserObj(null,false,TDIR,<%= Session("FONTSIZE") %>);
|
||
|
|
|
||
|
|
function setPath(cntrl){
|
||
|
|
JSBrowser = new BrowserObj(cntrl,POP,TDIR,<%= Session("FONTSIZE") %>);
|
||
|
|
}
|
||
|
|
|
||
|
|
function chkPath(pathCntrl)
|
||
|
|
{
|
||
|
|
if (pathCntrl.value != "")
|
||
|
|
{
|
||
|
|
top.connect.location.href = "iichkpath.asp?path=" + escape(pathCntrl.value) +
|
||
|
|
"&onfail=" + "top.main.failPath();" +
|
||
|
|
"&donext=" + "top.main.doNext();"
|
||
|
|
;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
function failPath()
|
||
|
|
{
|
||
|
|
document.userform.iThisPage.value = <%= PATHNAME %>;
|
||
|
|
document.userform.submit();
|
||
|
|
}
|
||
|
|
|
||
|
|
function chkForDupeName(parentpath,nameCntrl,iNodeType)
|
||
|
|
{
|
||
|
|
var path = "iichknname.asp?ppath=" + escape(parentpath) +
|
||
|
|
"&nname=" + escape(nameCntrl.value) +
|
||
|
|
"&cntrl=" + "top.main.document.userform." + nameCntrl.name +
|
||
|
|
"&nntype=" + iNodeType +
|
||
|
|
"&onfail=" + "top.main.failName();" +
|
||
|
|
"&donext=" + "top.main.doNextName();"
|
||
|
|
;
|
||
|
|
top.connect.location.href = path
|
||
|
|
}
|
||
|
|
|
||
|
|
function failName()
|
||
|
|
{
|
||
|
|
document.userform.iThisPage.value = <%= NODENAME %>
|
||
|
|
document.userform.submit();
|
||
|
|
self.focus();
|
||
|
|
}
|
||
|
|
|
||
|
|
function doNext()
|
||
|
|
{
|
||
|
|
document.userform.iThisPage.value = <%= iNextPage %>;
|
||
|
|
document.userform.submit();
|
||
|
|
}
|
||
|
|
|
||
|
|
function doNextName()
|
||
|
|
{
|
||
|
|
var iNextPage;
|
||
|
|
iNextPage = <%= iNextPage %>;
|
||
|
|
<% if iThisPage = NODENAME then %>
|
||
|
|
<% Select Case CInt(Request("NodeType"))
|
||
|
|
Case SITE %>
|
||
|
|
iNextPage = <%= BINDINGS %>;
|
||
|
|
<% Case VDIR %>
|
||
|
|
iNextPage = <%= PATHNAME %>;
|
||
|
|
<% Case DIR %>
|
||
|
|
iNextPage = <%= ACCESSPERMS %>;
|
||
|
|
<% End Select %>
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
document.userform.iThisPage.value = iNextPage;
|
||
|
|
document.userform.submit();
|
||
|
|
}
|
||
|
|
|
||
|
|
function publicNewWizardObject()
|
||
|
|
{
|
||
|
|
this.chkForDupeName = chkForDupeName;
|
||
|
|
this.failName = failName;
|
||
|
|
}
|
||
|
|
|
||
|
|
publicNewWizard = new publicNewWizardObject();
|
||
|
|
|
||
|
|
//validate each page, based upon what page we are on...
|
||
|
|
function bNextPageOk()
|
||
|
|
{
|
||
|
|
<%
|
||
|
|
Select Case iThisPage
|
||
|
|
Case NODENAME
|
||
|
|
%>
|
||
|
|
if (document.userform.NodeName.value == "")
|
||
|
|
{
|
||
|
|
alert("<%= L_NONAME_ERR %>");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
chkForDupeName(document.userform.hdnParentADsPath.value,document.userform.NodeName,document.userform.hdnINodeType.value);
|
||
|
|
return false;
|
||
|
|
<%
|
||
|
|
Case BINDINGS
|
||
|
|
%>
|
||
|
|
if (document.userform.TCPPort.value == "")
|
||
|
|
{
|
||
|
|
alert("<%= L_NOPORT_ERR %>");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
<%
|
||
|
|
Case PATHNAME
|
||
|
|
%>
|
||
|
|
if (document.userform.VRPath.value == "")
|
||
|
|
{
|
||
|
|
alert("<%= L_NOPATH_ERR %>");
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
chkPath( document.userform.VRPath );
|
||
|
|
return false;
|
||
|
|
<%
|
||
|
|
End Select
|
||
|
|
|
||
|
|
%>
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
</SCRIPT>
|
||
|
|
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
</head>
|
||
|
|
|
||
|
|
<!-- MAIN HTML -->
|
||
|
|
|
||
|
|
<body bgcolor="<%= Session("BGCOLOR") %>" topmargin=0 leftmargin=0>
|
||
|
|
<% if Session("IsIE") and Session("browserver") < 4 then %>
|
||
|
|
<table width="100%" height=100% cellpadding=0 cellspacing=0 Border=1>
|
||
|
|
<% else %>
|
||
|
|
<table width="100%" height=100% cellpadding=0 cellspacing=0 Border=0>
|
||
|
|
<% end if %>
|
||
|
|
<form name="userform" method="POST" action="iiwiznew.asp">
|
||
|
|
<!-- data persistences -->
|
||
|
|
<!--#include file="iiwiznew.dat"-->
|
||
|
|
<!-- end data persistences -->
|
||
|
|
|
||
|
|
<% Select Case iThisPage %>
|
||
|
|
|
||
|
|
<% Case WELCOME %>
|
||
|
|
<tr>
|
||
|
|
<td bgcolor="teal" height=310 width = 163>
|
||
|
|
<IMG SRC="images/Website.gif" WIDTH=163 HEIGHT=312>
|
||
|
|
</td>
|
||
|
|
|
||
|
|
<td bgcolor="White" ALIGN=left VALIGN=top>
|
||
|
|
<TABLE CELLPADDING = 2 CELLSPACING=0 >
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD WIDTH = 18>
|
||
|
|
</TD>
|
||
|
|
<TD>
|
||
|
|
<%= sWriteWelcome() %>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
|
||
|
|
<% Case FINISH %>
|
||
|
|
<tr>
|
||
|
|
<td height=315 width = 164><IMG SRC="images/website.gif" BORDER=0 HSPACE=0 VSPACE=0></td>
|
||
|
|
|
||
|
|
<td bgcolor="White" ALIGN=left VALIGN=top>
|
||
|
|
<TABLE CELLPADDING = 2 CELLSPACING=0>
|
||
|
|
<TR>
|
||
|
|
<TD COLSPAN = 2>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
<TR>
|
||
|
|
<TD WIDTH = 18>
|
||
|
|
</TD>
|
||
|
|
<TD>
|
||
|
|
<%= sFinish() %>
|
||
|
|
<%= sWriteFinish() %>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
</TABLE>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<% Case Else %>
|
||
|
|
<tr>
|
||
|
|
<TD HEIGHT=315 COLSPAN = 2 VALIGN="top">
|
||
|
|
|
||
|
|
<TABLE WIDTH = 100% cellspacing=0 cellpadding=0 cellspacing=0>
|
||
|
|
<tr bgcolor="#FFFFFF">
|
||
|
|
<td bgcolor="#FFFFFF" width = 10> </td>
|
||
|
|
<td bgcolor="#FFFFFF" height = 59 ALIGN=left VALIGN=top>
|
||
|
|
<%= sWriteTitle(iThisPage) %>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td height = 1 colspan = 2 bgcolor="Gray"></td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td height = 1 colspan = 2 bgcolor="White"></td>
|
||
|
|
</tr>
|
||
|
|
|
||
|
|
<tr>
|
||
|
|
<td> </td>
|
||
|
|
<td height=220 ALIGN=left VALIGN=top>
|
||
|
|
<%= sWritePage(iThisPage) %>
|
||
|
|
</td>
|
||
|
|
</tr>
|
||
|
|
</TABLE>
|
||
|
|
</TD>
|
||
|
|
</TR>
|
||
|
|
|
||
|
|
<% end Select %>
|
||
|
|
<% if Session("IsIE") and Session("browserver") < 4 then %>
|
||
|
|
<% ' IE3 doesn't do the line well... we're using table-borders instead. %>
|
||
|
|
<% else %>
|
||
|
|
<tr>
|
||
|
|
<td height = 1 colspan = 2 bgcolor="Gray"></td>
|
||
|
|
</tr>
|
||
|
|
<tr>
|
||
|
|
<td height = 1 colspan = 2 bgcolor="White"></td>
|
||
|
|
</tr>
|
||
|
|
|
||
|
|
<% end if %>
|
||
|
|
|
||
|
|
<!-- generic wizard buttons -->
|
||
|
|
<!--#include file="iiwizbtns.inc"-->
|
||
|
|
|
||
|
|
</table>
|
||
|
|
|
||
|
|
</blockquote>
|
||
|
|
</form>
|
||
|
|
</body>
|
||
|
|
|
||
|
|
</html>
|
||
|
|
<% end if %>
|