<% Session.Abandon %>
<%
'set cookies
if Request.cookies("SavedLogin").hasKeys then
response.Cookies("SavedLogin") ("Email") = Request.Form("email")
response.Cookies("SavedLogin") ("pw") = Request.Form("password")
response.Cookies("SavedLogin").Expires = Date + 90
End if
%>
<%
Dim rsUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open "Person", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
Response.Cookies ("NumberVisits").expires= Date + 90
If Request.Cookies ("NumberVisits")="" Then
Response.Cookies ("NumberVisits")=1
'This is your first visit to this page. Welcome.
Else
VarNumberVisits=Request.Cookies ("NumberVisits")
VarNumberVisits=VarNumberVisits+1
Response.Cookies("NumberVisits")=VarNumberVisits
End If
rsUsers("Visit") = Request.Cookies ("NumberVisits")
rsUsers("LastLogin") = Now
rsUsers.Update ' update the database
%>
alberto sughi, Teatro d'Italia Intro