CheckLastDateHere

En enkel funktion som kollar senast här datum.

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
'## -------------------------------------------
'## -- Function:__ CheckLastHereDate(ByVal LastHereDate)
'## -- Description:__ Check when user last visited the a page
'## -- Date Created:__ January 12, 2001
'## -- Created by:__ Patrik Berggren
'## -- Contact:_______ mrwize@mrwize.nu, http://www.mrwize.nu
'##
Function CheckLastHereDate(ByVal LastDateHere)
'## -- check last date here
'## If never been here, set last date here to -20 days --
If LastDateHere = "" Then
'## -- get last visit --
LastDateHere = Request.&#99ookies("2k1BB")("LastDateHere")
Response.&#99ookies("2k1BB")("LastDateHere") = Now()
Response.&#99ookies("2k1BB").Expires = DateAdd("d",365,Now())

	'## -- if no cookie was found, set last here date to - 20 days. --
	If LastDateHere = "" Then
		LastDateHere = DateDiff("d",20,Now())
	End If
	
	'## -- store last date here in a session --
	Session("LastDateHere") = LastDateHere
End If

'## -- return a last date here --
CheckLastHereDate = LastDateHere

End Function

Vid problem, posta era frågor här: http://cgi.webforum.nu/wf/Forum11/HTML/005029.html

cya,
PatrikB

------------------
*Det tar sig sa han som hade eld i håret*

[Redigerat av PatrikB den 29 jun 2001]