<%
dim namearray(100)
dim urllinkarray(100)
dim javascripttext,addselectitems
dim k
'add all additional pages other than templates here
namearray(1)="Home Page (Windows)"
urllinkarray(1)="default.asp"
namearray(2)="Home Page (Unix)"
urllinkarray(2)="index.asp"
namearray(3)="gift certficate page"
urllinkarray(3)="shopgift.asp"
namearray(4)="admin page"
urllinkarray(4)="shopadmin.asp"
namearray(5)="standard category display"
urllinkarray(5)="shopdisplaycategories.asp"
namearray(6)="search page"
urllinkarray(6)="shopsearch.asp"
namearray(7)="nowhere link for top menu"
urllinkarray(7)="javascript:;"
namearray(8)="contact us"
urllinkarray(8)="shopcustcontact.asp"
'end of all additional pages
javascripttext=""& vbcrlf
for k= 1 to ubound(namearray)
if namearray(k)<>"" then
'VP-ASP 6.50 - dropdown now works in firefox
javascripttext=javascripttext&"if (thevalue=="&(100+k-1)&"){document.forms['form1'].url.value='"&urllinkarray(k)&"'}"& vbcrlf
end if
next
addselectitems=""& vbcrlf
for k= 1 to ubound(namearray)
if namearray(k)<>"" then
addselectitems=addselectitems&""& vbcrlf
end if
next
sub gettheurl
%>
function gettheurl(){
//VP-ASP 6.50 - dropdown now works in firefox
var value=document.forms['form1'].contentpage[document.forms['form1'].contentpage.selectedIndex].value;
var thevalue=parseInt(value);
if (thevalue<100) {
var thename=templatearray[thevalue];
if (templatearray[thevalue]==null){
document.forms['form1'].url.value="You need to go and specify a template for this content item."
}
else{
document.forms['form1'].url.value="shopcontent.asp?type="+thename+""
}
}
else{
<%response.write javascripttext%>
}
}
<%
end sub
sub contentselect
%>
Select the page you wish to link to:
OR
Type in the URL to the page you wish to link to:
<%
end sub
'function selectstart(selectname, spname, idcol, valuecol, default, autorun)
' dim mystr
' mystr= ""
' set selectcmd= nothing
' set selectrs= nothing
' selectend= mystr
'end function
' function htmlselect (selectname, spname, idcol, valuecol, default, autorun)
' dim mystr
' mystr= ""
' set mycmd2= nothing
'set myrs2= nothing
'htmlselect= mystr
'end function
sub feedback(astatusstr, bookmarkname, directory)
session("statusstr")= astatusstr
session("returnto")= session(bookmarkname)
response.redirect directory&"feedback.asp"
end sub
sub debugwrite(svalue)
if isnull(svalue) then
response.write "<null>] "
else
response.write "" & "[" & server.htmlencode(svalue) & "] "
end if
end sub
sub button(name, caption)
%><%
end sub
dim intcheckfirst
intcheckfirst= 0
sub checkfirst
if (intcheckfirst=0) then
response.write " checked "
intcheckfirst= 1
end if
end sub
sub form
%>