%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Dim pageID, subID, pagePath, doEvent, temp 'Local variables for images.inc Dim strPath,pic,comPath,comTempPath 'Local variable for images_pwd.inc Dim truePwd,strPwd truePwd = "helfre" 'Local variables for humor.inc Dim i Dim numberOfQuotes %>
<%Select Case pageID%>
<%Case 1
'Sub menu for images.inc and images_pwd.inc
%>
|
|
<%Case 2
'Sub menu for images.inc and images_pwd.inc
%>
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
<%If checkSessionOk() Then%>
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
<%End if%>
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
<%If doEvent="all" Then%>
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
<%End if%>
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|
';this.style.cursor='hand';" onMouseout="this.bgColor='<% =GetColorByID("subbase") %>'" bgColor="<% =GetColorByID("subbase") %>">
|