% If NOT Application("Shop_Open") Then Response.Redirect("shopclosed.asp") %> <% 'If user says the is not the user suggested then reset details and create new id If Request.Querystring("resetuser") = "yes" Then Call ResetUser 'Set user cookie and expiry date If Session("Cookie") = 0 Then Response.Cookies("UserID") = Session("UserID") Response.Cookies("UserID").Expires = 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") 'Refresh the cookie so that it doesn't expire Response.Cookies("UserID").Expires = Date + 180 '6 months to expire 'Example of fixed date: "1 Dec 1999" WMsg =" back " & Session("Name") & " " End If %>
|
<%= LogoURL %>
|