---
title: "ASP och cookies"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13606-asp-och-cookies"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "His Divine Shadow"
published: "2002-01-04T14:10:00.000Z"
updated: "2002-01-07T12:37:00.000Z"
replies: 13
views: 274
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/13606-asp-och-cookies"
---

# ASP och cookies

## #1 — His Divine Shadow, 2002-01-04T14:10Z

Jag undrar hur man kan göra en funktion så att man kan se vad som har uppdaterats sen senaste besöket...
Jag menar om det har kommit en ny post i databasen(har redan så att exakt datum och tid läggs in när en ny post är gjord) sedan sist man besökte sidan(som kollas genom en cookie).

Jag gissar att man kan göra en IF sats som visar en "new" bild om datumet på posten är nyare än datumet i cookien.

Men om man också vill ha en sida som visar nya poster, då måste man väl lägga in det i en SQL sats?

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

## #2 — PatrikB, 2002-01-04T15:30Z

checka in denna funktion: <http://script.webforum.nu/wf/Forum1/HTML/000068.html> 

```
If CheckLastHereDate(Session("LastDateHere")) < dteDateFromDB Then
....
```

cya,
PatrikB

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

## #3 — His Divine Shadow, 2002-01-04T23:25Z

Jag antar att det ska vara i en global.asa fil?
Jag fick inte det att funka iaf.
Såhär är koden i global.asa:

```
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

'## -------------------------------------------
'## -- 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, [url="http://www.mrwize.nu"]http://www.mrwize.nu[/url] 
'##
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.ccookies("2k1BB")("LastDateHere")
Response.ccookies("2k1BB")("LastDateHere") = Now()
Response.ccookies("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

</SCRIPT>
```

Men när jag har Checklastdate i en fil så får jag:

Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'CheckLastHereDate'
/mainframe.asp, line 55

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

## #4 — His Divine Shadow, 2002-01-05T15:31Z

Förresten, jag skulle vilja ha det i en global.asa fil, eftersom jag vill ha en funktion som funkar med hela siten, inte bara en sida.

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

## #5 — PatrikB, 2002-01-05T15:50Z

Nej,
den är inte till för global.asa

utan, den är till för att kontrollera när en besökare var på en viss sida senast.

Du får lägga denna funktion i en sk include fil och inkludera den på de sidor som du skulle behöva ha den på.

cya,
PatrikB

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

## #6 — His Divine Shadow, 2002-01-05T19:16Z

Men då görs väl ett skillt cookie för varje sida dom besöker?

Det är inte vad jag är efter, jag behöver ett script som funkar för hela siten och som kan anropas från alla sidor.

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

## #7 — PatrikB, 2002-01-05T21:35Z

ok,
om du vill ha det på flera olika ställen så kan du ju modifiera funktionen lite så att man kan ha dynamisk namntilldelning av cookie/session

```
Function CheckLastHereDate(ByVal LastDateHere, sCSName)
'## -- check last date here
'## If never been here, set last date here to -20 days --
If LastDateHere = "" Then
'## -- get last visit --
LastDateHere = Request.ccookies(sCSName & "")("LastDateHere")
Response.ccookies(sCSName & "")("LastDateHere") = Now()
Response.ccookies(sCSName & "").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(sCSName & "") = LastDateHere
End If
'## -- return a last date here --
CheckLastHereDate = LastDateHere
End Function
```

Då är det bara att köra olika namn på olika sidor

sida1.asp:

strLastDateHere = CheckLastDateHere(Session("Sida1"),"Sida1")

och på sida 2:
strLastDateHere = CheckLastDateHere(Session("Sida2"),"Sida2")

cya,
PatrikB

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

## #8 — His Divine Shadow, 2002-01-06T02:11Z

Njae, det är inte så jag tänkte det.
En cookie, för hela siten som kan används över hela siten.

Global.asa är den enklaste(kanske enda?) vägen.
Vet du nått ASP script ställe eller forum?

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

## #9 — PatrikB, 2002-01-06T14:40Z

Vad menar du med en cookie för hela siten?

En cookie sparas ju på klienten (besökarens) dator och som du sedan kan kolla/jämföra med olika datum tex.

cya,
PatrikB

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

## #10 — His Divine Shadow, 2002-01-06T20:38Z

Nej, jag menar, det skapas väl en cookie för varje sida man besöker på siten.

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

## #11 — PatrikB, 2002-01-07T08:45Z

Automatiskt?
Nej, det gör det inte.
Det är du själv som måste skapa cookiesarna annars blir det inga.

cya,
PatrikB

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

## #12 — His Divine Shadow, 2002-01-07T10:00Z

Eh....
Vi är inte alls på samma våglängd...

Hursomhelst, efter lite modifiering av scriptet så har jag det att funka i global.asa så nu är det som det ska.

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

## #13 — PatrikB, 2002-01-07T11:43Z

he, he ... nä, verkar inte som det :e 

.. och hur ser de modifieringarna ut??

Posta gärna hur du löste ditt problem så att fler kan ta del av lösningarna.

cya,
PatrikB

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

## #14 — His Divine Shadow, 2002-01-07T12:37Z

```
Session("CheckLastHereDate(ByVal LastDateHere)")

If LastDateHere = "" Then
LastDateHere = Request.ccookies("2k1BB")("LastDateHere")
Response.ccookies("2k1BB")("LastDateHere") = Now()
Response.ccookies("2k1BB").Expires = DateAdd("d",365,Now())

If LastDateHere = "" Then
LastDateHere = DateDiff("d",20,Now())
End If
Session("LastDateHere") = LastDateHere
End If
CheckLastHereDate = LastDateHere

End Sub
```

Sådär.
I filen där jag anropar värdet har jag det såhär:

```
LastDateHere = Session("LastDateHere")

<%=LastDateHere%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13606-asp-och-cookies