Originariamente inviato da Roby_72
Qui non ci sono sessioni ma cookies.
Roby
si scusami...
codice:
dim tmpArray(2)
dim path
path = "http://" & Request.ServerVariables("REMOTE_ADDR") & Request.ServerVariables("PATH_INFO")
tmpArray(2) = path
if isArray(session("history")) then
dim i
for i = 0 to UBound(session("history")) - 1
tmpArray(i) = session("history")(i+1)
next 'i
else
tmpArray(0) = ""
tmpArray(1) = ""
end if
session("history") = tmpArray
Session("user") = Request("user")
if InStr(1, Application("Users"), Session("user") & "|" ) = 0 then