---
title: "cookie fråga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/42926-cookie-fråga/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LR^evil.sid"
published: "2002-05-02T12:57:37.000Z"
updated: "2002-05-06T14:13:39.000Z"
replies: 27
views: 562
page: 2
pages: 2
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/42926-cookie-fråga"
---

# cookie fråga

_Sida 2 av 2._

## #21 — @nders, 2002-05-04T12:04Z

Är det verkligen *if cdate(request.cookies("rainbow")) \<= date then* som ger felet?

Prova koden nedan, som jag roddat lite i:

```
<%
	if request.servervariables("local_addr") = "127.0.0.1" or request.servervariables("local_addr") = "192.168.0.1" then

	else
		if cdate(request.cookies("rainbow")) <= date then

			if session("once") = false then
				session("once") = true
				dim physicalFile, AspObj, objectFile, visits

				physicalFile = Server.MapPath("\") & "\visits.log"
				Set AspObj = Server.CreateObject("Scripting.FileSystemObject") 
				Set objectFile = AspObj.OpenTextFile(physicalFile,1,true)

				visits = clng(objectFile.readline)
				visits = visits + 1

				Set objectFile = AspObj.OpenTextFile(physicalFile,2,true)
				objectFile.writeline visits

				objectFile.close

				set AspObj = nothing
				set objectFile = nothing

				physicalFile = ""
				visits = ""
			end if
			response.cookies("rainbow") = date
			response.cookies("rainbow").expires = dateadd("d",1,date)
		else
			response.cookies("rainbow") = date
			response.cookies("rainbow").expires = dateadd("d",1,date)
		end if
	end if
%>
```

Mvh,

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

## #22 — LR^evil.sid, 2002-05-04T12:14Z

fortfarande type mismatch.

du kan klicka på länken "home:" hänvisar till i min signatur. där ser vi:

```
[red]Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'cdate'
/visits.inc, line 5[/red]
```

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

## #23 — @nders, 2002-05-04T12:26Z

Och du är säker på att du har en cookie med ett datumvärde i?
Sorry att jag frågar så mycket, men det verkar så konstigt detta...

Prova detta:

```
<%
	Dim blnOK
	blnOK = false
	if not isDate(request.cookies("rainbow"))  then blnOK = true
	if request.servervariables("local_addr") = "127.0.0.1" or request.servervariables("local_addr") = "192.168.0.1" then

	else
		if isDate (request.cookies("rainbow")) then
			if cdate (request.cookies("rainbow")) <= date then blnOK = True
		End If
		If blnOK Then

			if session("once") = false then
				session("once") = true
				dim physicalFile, AspObj, objectFile, visits

				physicalFile = Server.MapPath("\") & "\visits.log"
				Set AspObj = Server.CreateObject("Scripting.FileSystemObject") 
				Set objectFile = AspObj.OpenTextFile(physicalFile,1,true)

				visits = clng(objectFile.readline)
				visits = visits + 1

				Set objectFile = AspObj.OpenTextFile(physicalFile,2,true)
				objectFile.writeline visits

				objectFile.close

				set AspObj = nothing
				set objectFile = nothing

				physicalFile = ""
				visits = ""
			end if
			response.cookies("rainbow") = date
			response.cookies("rainbow").expires = dateadd("d",1,date)
		else
			response.cookies("rainbow") = date
			response.cookies("rainbow").expires = dateadd("d",1,date)
		end if
	end if
%>
```

Mvh,

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

## #24 — LR^evil.sid, 2002-05-04T12:32Z

jo... det finns en cookie.

med koden du gav mig så räknar den upp 1 varje gång vi besöker sidan. det skall den inte göra. den skall endast räkna upp 1 gång per besökare och dag.

men jag antar att det är den här koden

```
[red]if cdate (request.cookies("rainbow")) <= date then[/red]
```

som skall bytas ut mot

```
[red]if cdate (request.cookies("rainbow")) => date then[/red]
```

eller?

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

## #25 — @nders, 2002-05-05T10:03Z

Hmm. Nej.

Om du använder koden jag postade i mitt förra inlägg och tar bort = ur denna rad:

```
if cdate (request.cookies("rainbow")) <= date then blnOK = True
```

så borde det fungera. Annars blir det nog som du beskriver.

Mvh,

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

## #26 — LR^evil.sid, 2002-05-05T16:39Z

ok... tack för allt alla som hjälpt

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

## #27 — @nders, 2002-05-05T18:32Z

Ska jag tolka det som att du fått det att fungera?

Mvh,

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

## #28 — LR^evil.sid, 2002-05-06T14:13Z

jupp! thnx

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/42926-cookie-fråga/page2  
Föregående sida: https://www.webforum.nu/amne/asp/42926-cookie-fråga.md