<%=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 ""
%>