cookie fråga

Ä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,

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]

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,

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?

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,

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

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

Mvh,

jupp! thnx