---
title: "CheckLastDateHere"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38198-checklastdatehere"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PatrikB"
published: "2001-06-29T08:35:00.000Z"
updated: "2001-06-29T08:35:00.000Z"
replies: 0
views: 914
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38198-checklastdatehere"
---

# CheckLastDateHere

## #1 — PatrikB, 2001-06-29T08:35Z

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

Permalänk: https://www.webforum.nu/p/38198

---

Tråden på webben: https://www.webforum.nu/amne/asp/38198-checklastdatehere