<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%=Application("WebTitle")%>-Default.asp <% dim PicWebPort PicWebPort = 8001 dim waiter set waiter = Server.CreateObject("KVWebSvr.Waiter") if not waiter is nothing then PicWebPort = waiter.GetPicWebPort() set waiter = nothing end if if PicWebPort < 0 then PicWebPort = PicWebPort + 65536 end if ' Response.Write "" %>

<%=Application("WebTitle")%>-Homepage


<% if Application("ValidateUser") = 0 then Session("UserRole") = 1 Response.Write("") elseif Session("UserRole") = 0 then Response.Write("") else Response.Write("") end if %> "> "> "> "> ">