<%
IF Session("Chk") = "" Then
Session("Chk") = "Y"
Session("Chk1") = request.ServerVariables("URL")
Response.Redirect("Default.asp")
Response.End()
End if
%>
Default.asp
<%
if Session("Chk") = "Y" then
Session("Chk") = "Y"
call CheckSession(Session("Chk1"))
Else
Session("Chk") = "Y"
end if
%>
<%
Function CheckSession(url)
Response.Write "<meta http-equiv='content-type' content='text/html; charset=windows-874'>"
Response.Write "<script language=javascript>" & CRLF
Response.Write "setTimeout('alertWelcome();',5000);" & CRLF
Response.Write "function alertWelcome()" & CRLF
Response.Write "{" & CRLF
Response.Write "window.location='" & url & "'" & CRLF
Response.Write "}" & CRLF
Response.Write "</script>" & CRLF
End Function
%>