unik log uden refress

når du siger unikt.. hvor unikt skal det så være... den samme bruger må ikke logges før 24 timer senere, eller?

lad os sige 15-20 min

det du gør er at gemme brugerens ip adresse og tidpunkt han kom ind på siden i din db. ved at bruge datediff funktionen kan du så tjekke hvornår en bestemt ip sidst var inde på din side, og hvis den er under 20 minutter, så gemmer du det bare ikke

Set RS = Conn.Execute("SELECT tid FROM log WHERE ip = '"& Request.Servervariables("REMOTE_ADDR") &"'"

If Not RS.EOF Or RS.BOF Then
  If DateDiff("m",RS("tid"),Now()) > 20 Then
      Conn.Execute("INSERT INTO log (tid, ip) VALUES ('"& Now() &"', '"& Request.Servervariables("REMOTE_ADDR") &"'"
  End If
End If

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Log.mdb")
%>

<%
    Set RS = Conn.Execute("SELECT tid FROM log WHERE ip = '"& Request.Servervariables("REMOTE_ADDR") &"'")

If Not RS.EOF Or RS.BOF Then
  If DateDiff("m",RS("tid"),Now()) > 20 Then
      Conn.Execute("INSERT INTO log (tid, ip) VALUES ('"& Now() &"', '"& Request.Servervariables("REMOTE_ADDR") &"'")
  End If
End If
%>
så får jeg en

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/count/test.asp, line 15

linie 15

    Set RS = Conn.Execute("SELECT tid FROM log WHERE ip = '"& Request.Servervariables("REMOTE_ADDR") &"'")

glemte en tid i db så nu er fejlen

error '80020009'
Exception occurred.

/count/test.asp, line 16
linie 16 er
  If DateDiff("m",RS("tid"),Now()) > 20 Then

du kan prøve at skrive den ud, så vi kan se om alt står som det skal være...

Response.Write ("SELECT tid FROM log WHERE ip = '"& Request.Servervariables("REMOTE_ADDR") &"'"

skal jeg ikke bare lave hele dit site, nu hvor vi er igang?

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctDateDiff.asp <- reference til DateDiff... jeg bruger den ikke til dagligt, så det kan være det ikke er skrevet helt rigtigt

jo det ville da være fedt nok.

skrev koden for at skive den ud, men den siger det samme.

error '80020009'
Exception occurred.

/count/test.asp, line 16

prøv at converter din RS("tid") til date... CDate(RS("tid")

Jeg går ud fra at det skulle være Date og ikke CDate

Wrong number of arguments or invalid property assignment: 'Date'

jo... det hedder CDate... har du husket det sidste ) ?? CDate(RS("tid"))

yes samme fejl
Wrong number of arguments or invalid property assignment: 'CDate'

det var sq da åndsvagt... har endda tjekket referencehåndboget for en sikkerhedsskyld'

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctcdate.asp

MyDate = "October 19, 1962"  ' Define date.
MyShortDate = CDate(MyDate)  ' Convert to Date data type.
MyTime = "4:35:47 PM"        ' Define time.
MyShortTime = CDate(MyTime)  ' Convert to Date data type.

hmm kunne tyde på at RS("tid") var tom

det er den ikke

har sat en værdi ind selv, som er 10:00

det er da heller ikke nogen gyldig værdi ?!.. prøv 10:00:00 istedet

det var det også.........gad ikke skrive det hele ;)

har prøvet med begge ting.......samme fejl

smid et svar

har du droppet det, eller?

ja