<% @Language=VBScript %>
<%
'Set user cookie and get user data from database
If Session("Cookie") = 0 Then
Response.Cookies("UserID") = Session("UserID")
Response.Cookies("UserID").Expires = "31 Dec 2040" 'Date + 180 6 months to expire
'Example of fixed date: "1 Dec 1999"
'Refer to VBScript and ASP documentation
Session("Cookie") = 1
else
UserID = Session("UserID")
If Session("Name") = "" Then
set rsUsr = conn.execute("SELECT * from Users WHERE UserID = '" & Session("UserID") & "'")
If rsUsr.EOF AND rsUsr.BOF Then
'User Unkown
else
Session("Name") = rsUsr("Name")
Session("Surname") = rsUsr("Surname")
Session("Mail") = rsUsr("mail")
Session("Country") = rsUsr("Country")
End If
'Refresh the cookie so that it doesn't expire
Response.Cookies("UserID") = Session("UserID")
Response.Cookies("UserID").Expires = Date + 180 '6 months to expire
'Example of fixed date: "1 Dec 1999"
set rsUsr = nothing
End if
WMsg =" back " & Session("Name") & " "
End If
%>
Revelation Illustrated Rapture Print
The Coronation
Not available in
posters or art prints. Only available for purchase as a digital download.
Please click our products page to order as a
digital download file.
All Art Copyrighted by Pat Marvenko
Smith 1982/1992
All contents of this website Copyright ©1998 Revelation Productions