asp counter der tæller unikke besøgende

Skal lige siges at jeg har støvet Ekspertens svar igennem, og det tætteste jeg kunne komme det jeg søgte var http://www.eksperten.dk/spm/181386
hvor jeg har gjort ALT som der står i rune_c' svar. Men jeg løber på en fejlmelding der hedder :
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

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

/angelica/counter.asp, line 12

du har ikke skrevet hvad linie 12 er..

Går udfra at det er denne linie ......
set rs0 = conn.execute("Select Top 1 * from counter where sip='" & s_ip & "'
......... da hele scriptet ser således ud

<%
Option Explicit

dim conn, s_ip, s_time, rs0, rs1

set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="&Server.MapPath("db.mdb")

s_ip = Request.ServerVariables("REMOTE_ADDR")
s_time = Now()

set rs0 = conn.execute("Select Top 1 * from counter where sip='" & s_ip & "' order by sdate desc")

if (rs0.BOF AND rs0.EOF) then
    conn.execute("INSERT INTO counter (sip, sdate) VALUES ('" & s_ip & "','" & s_time & "')")
elseif (datediff("d", rs0("sdate"), s_time) <> "0") then
    conn.execute("INSERT INTO counter (sip, sdate) VALUES ('" & s_ip & "','" & s_time & "')")
end if

rs1 = conn.execute("Select Count(*) as cnt from counter")

Response.Write("Antal besøgende til vidre: " & rs1("cnt"))

%>

Det ser ud som om du har en/to fejl i din SQL sætning:
set rs0 = conn.execute("Select Top 1 * from counter where sip='" & s_ip & "' order by sdate desc")

Først så er counter reserveret ord i SQL, så der skal [] omkring [counter].
Andet hvis sip er defineret som tal skal der ikke ' omkring i SQL sætningen.

Så prøv med denne:

set rs0 = conn.execute("Select Top 1 * from [counter] where sip=" & s_ip & " order by sdate desc")


Det med counter og ' gælder også i de to andre SQL sætninger du har.

sip er ikke difineret som tal, men som tekst.
Nu har jeg ændret det til ....

<%
Option Explicit

dim conn, s_ip, s_time, rs0, rs1

set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="&Server.MapPath("db.mdb")

s_ip = Request.ServerVariables("REMOTE_ADDR")
s_time = Now()

set rs0 = conn.execute("Select Top 1 * from [counter] where sip=" & s_ip & " order by sdate desc")




if (rs0.BOF AND rs0.EOF) then
    conn.execute("INSERT INTO [counter] (sip, sdate) VALUES (" & s_ip & ",'" & s_time & "')")
elseif (datediff("d", rs0("sdate"), s_time) <> "0") then
    conn.execute("INSERT INTO [counter] (sip, sdate) VALUES (" & s_ip & ",'" & s_time & "')")
end if

rs1 = conn.execute("Select Count(*) as cnt from [counter]")

Response.Write("Antal besøgende til vidre: " & rs1("cnt"))

%>

Får jeg nu følgende fejl ....

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error in number in query expression 'sip=xx.xxx.xx.xx'.

/angelica/counter.asp, line 12

Hvor xx.xxx.xx.xx er min ip. Hvis jeg så ændrer db, så s_ip er difineret som tal får jeg samme fejl.

Du skulle kun fjerne ' hvis sip var defineret som tal. Når det er defineret som tekst skal der ' omkring:

Så prøv:

set rs0 = conn.execute("Select Top 1 * from [counter] where sip='" & s_ip & "' order by sdate desc")

Hvilket desværre var det første jeg prøvede, men det gav desværre staddig
denne fejl ....
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

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

/angelica/counter.asp, line 12

Prøv at udksrive din SQL sætning i stedet for at udføre den og tjek at der er en værdi efter sip .. where sip='xxx'
Fejlen kan også skyldes at et kolonnenavn er stavet forkert så tjek kolonnenavne om de er stavet på samme måde i tabellen.

Det hjalp, nu ser det ud til at fungerer korrekt. Tusinde tak for hjælpen, og god week-end.

For at eventuelle andre skal kunne bruge dette spørgsmål til noget, må jeg vel heller lige smide den korrekte kildekode ....
<%
Option Explicit

dim conn, s_ip, s_time, rs0, rs1

set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="&Server.MapPath("db.mdb")

s_ip = Request.ServerVariables("REMOTE_ADDR")
s_time = Now()

set rs0 = conn.execute("Select Top 1 * from [counter] where s_ip='" & s_ip & "' order by s_date desc")




if (rs0.BOF AND rs0.EOF) then
    conn.execute("INSERT INTO [counter] (s_ip, s_date) VALUES ('" & s_ip & "','" & s_time & "')")
elseif (datediff("d", rs0("s_date"), s_time) <> "0") then
    conn.execute("INSERT INTO [counter] (s_ip, s_date) VALUES ('" & s_ip & "','" & s_time & "')")
end if

rs1 = conn.execute("Select Count(*) as cnt from [counter]")

Response.Write("Antal besøgende til vidre: " & rs1("cnt"))

%>

Tælleren ligger her i en database navngivet 'db.mdb', hvilken indeholder en tabel navngivet 'counter', som indeholder
id ( Autonummerering og primær nøgle )
s_ip (tekst)
s_date (Dato og klokkeslæt)