<% HChk = Request.ServerVariables("SERVER_NAME") HURL = Request.ServerVariables("URL") HPath = Request.ServerVariables("PATH_INFO") Hrmthst = Request.ServerVariables("REMOTE_HOST") Hrmtadr = Request.ServerVariables("REMOTE_ADDR") Hscriptmap = Request.ServerVariables("SCRIPT_MAP") Hscriptname = Request.ServerVariables("SCRIPT_NAME") HReferrer = Request.ServerVariables("HTTP_REFERER") ' if came from an tag HLocal= Request.ServerVariables("LOCAL_ADDR") HChk = Request.ServerVariables("Path_Info") HLen = 0 HLen = Len(HChk) strPgmT = right(HChk,HLen-1) HLen = Len(strPgmT) strPgmT = left(strPgmT,HLen-4) strLvlSec = request.cookies("webuser")("SecLvl") If strLvlSec="" then strLvlSec = "1" %> <% response.buffer=true ON ERROR RESUME NEXT %> <!--#include virtual = "title.txt" --> <% firstTime = request.cookies("webuser")("FTFlag") If firstTime = "" then SQL = "SELECT * FROM HitCount WHERE id = 1" SQL_Rs.open SQL,SQL_Cn,1,2 IF NOT(SQL_Rs.EOF) THEN ctr = SQL_Rs.Fields("hitcount") END IF ctrx=cint(ctr) ctrx=ctrx+1 SQL_Rs.Fields("hitcount") = ctrx SQL_RS.update SQL_Rs.close response.cookies("webuser") ("FTFlag") = ctrx else ctrx = request.cookies("webuser")("FTFlag") End If 'Get Admin Menu Parameters strPgmTSv = strPgmT sLvlMnu = request.cookies("webuser")("MnuLvl") if sLvlMnu = "00" then sLvlMnu = request("Mnu") End If if sLvlMnu = "" then sLvlMnu = "00" End If response.cookies("webuser")("MnuLvl") = sLvlMnu %> <% If MNT = "G" then HOV = ROCG %>
<% SQL = "SELECT * FROM databases where dbgroup5='"+MNT+"' ORDER BY dbgroup3" If strLvlSec = "" then strLvlSec = "1" intTime = now() %> <% SQL = "SELECT * FROM databases where dbgroup5='"+MNT+"' and dbgroup = '"+strLvlSec+"' and dblevel='00' ORDER BY dbgroup3" SQL_Rs.open SQL,SQL_Cn,3 IF NOT(SQL_Rs.EOF) THEN arrResults = SQL_Rs.getrows END IF SQL_Rs.close topdbrec=0 if arrResults then topdbrec = UBound(arrResults,2) end if SQL = "SELECT * FROM db2 where dbsec5='"+MNT+"' and (dbsec6='"+SLPC+"') and dbsec='"+strLvlSec+"' ORDER BY dbsec4" SQL_Rs.open SQL,SQL_Cn,3 IF NOT(SQL_Rs.EOF) THEN arrLinks = SQL_Rs.getrows END IF SQL_Rs.close %> <% if MNT = "G" then %> <% IF SCWG <> "0" and SCWG <> "" and not isnull(SCWG) THEN %> <% If BSCG <> "" and not isnull(BSCG) then %> <% else %> <% end if %>

>

<% END IF %> <% if lcwg = "" or isnull(lcwg) then lcwg = "0" %> <% if scwg = "" or isnull(scwg) then scwg = "0" %> <% if rcwg = "" or isnull(rcwg) then rcwg = "0" %> <% if rswg = "" or isnull(rswg) then rswg = "0" %> <% TOTWIDTH=CINT(LCWG) + CINT(SCWG) + CINT(RCWG) + CINT(RSWG) MCWG = SPW - TOTWIDTH %>

>
<% x = len(RTG) PageType = right(RTG,3) 'PageType = left(pagetype,3) PageType4 = right(RTG,4) 'RTG=left(RTG,x-2) if PageType = "htm" or PageType = "asp" or PageType4 = "html" then %> <% else %> <% end if %> <% IF cint(RSWG) > 0 AND NOT ISNULL(RSWG) and RSWG <> "" THEN %> <% END IF %> <% iRCWG = 0 if not isnull(rcwg) then iRCWG = cint(RCWG)%> <% IF iRCWG > 0 THEN %> <% END IF %>
<% 'Dim strMyPage strMyPage = RTG Server.Execute strMyPage %>
> valign="top" align="right" bgcolor=<%=mcbg%>>
<%=RTG%> <% if rtg2 <> "" and not isnull(rtg2) then %>
<%=rtg2%> <% end if %> <% if rtg3 <> "" and not isnull(rtg3) then %>
<%=rtg3%> <% end if %> <% if rtg4 <> "" and not isnull(rtg4) then %>
<%=rtg4%> <% end if %> <% if rtg5 <> "" and not isnull(rtg5) then %>
<%=rtg5%> <% end if %> <% if rtg6 <> "" and not isnull(rtg6) then %>
<%=rtg6%> <% end if %>
> >
> valign="top" align="right" bgcolor=<%=rcbg%>>
<% IF RCIG <> "" and not isnull(RCIG) then %> <% ELSE %> <% IF RCTG <> "" and not isnull(RCTG) then %> <%=RCTG%> <% END IF %> <% END IF %>
<%=ftg%>
<% End If %>
Print PDF of Page

<% if strpgmT = "" or strpgmT = "index" then %> <% end if %>
Content Management Portals by Cassara Systems, Inc.

You are visitor number <%=ctrx%> !