tæl felt op i database...

Først skal du lave en select statement der undersøger om IP adressen findes:
SELECT * FROM Nortwind WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"

Så skal du tjekke på om den fandt noget:
If rs.RecordCount > 0 Then

  Hvis den fandt noget, så skal du opdatere dit tælle felt:
  strCount = rs(\"Count\")
  strQ = \"UPDATE tabel1 SET Count = \" & strCount+1 & \" WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"

His ikke den finder noget, så skal du indsætte en ny:
strQ=\"insert into tabel1 (REMOTE_ADDR) values (\'\" & adresse & \"\')\"

ok, nu ser min kode så således ud. Men det giver følgende fejl:

Microsoft VBScript runtime error \'800a000d\'

Type mismatch

I accessdatabasen har jeg 2 felter: REMOTE_ADDR og COUNT.

--------------- start kode -----------------
dim objconn,strconn,strQ
set objconn = server.CreateObject(\"ADODB.Connection\")
strconn =\"Data Source=Northwind;User ID=sa;Password=;\"

adresse = Request.servervariables(\"REMOTE_ADDR\")

objconn.Open strconn   

strQ \"SELECT * FROM Northwind WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"
\'Så skal du tjekke på om den fandt noget:
If rs.RecordCount > 0 Then
\'Hvis den fandt noget, så skal du opdatere dit tælle felt:  
strCount = rs(\"COUNT\")
strQ = \"UPDATE Tabel3 SET Count = \" & strCount+1 & \" WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"
\'Hvis ikke den finder noget, så skal du indsætte en ny:
strQ=\"insert into tabel3 (REMOTE_ADDR) values (\'\" & adresse & \"\')\"
end if
objconn.Execute strQ

\'strQ=\"insert into tabel1 (REMOTE_ADDR) values (\'\" & adresse & \"\')\"

%>

Ok, vi tager den helt fra bunden:
adresse = Request.servervariables(\"REMOTE_ADDR\")
Lav din database connection og så:
Set rs = Server.CreateObject (\"ADODB.Recordset\")
Sql = \"SELECT * FROM tabel1 WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"
rs.Open Sql, ObjConn, 3, 3
If rs.RecordCount > 0 Then
  strCount = rs(\"Count\")+1
  Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
  Sql = \"UPDATE tabel1 SET COUNT = \" & strCount & \" WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"
  rs1.Open Sql, ObjConn, 3, 3
Else
  Set rs1 = Server.CreateObject (\"ADODB.Recordset\")
  Sql = \"INSERT INTO tabel1 (REMOTE_ADDR, COUNT) VALUES (\'\" & adresse & \"\', 1)\"
  rs1.Open Sql, ObjConn, 3, 3
End If

Det kan faktisk laves endnu smartere:

SQL = \"UPDATE tabel1 SET COUNTER=COUNTER+1 WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"
call Conn.Execute(SQL, rowsAffected)

IF rowsAffected=0 THEN
  Sql = \"INSERT INTO tabel1 (REMOTE_ADDR, COUNTER) VALUES (\'\" & adresse & \"\', 1)\"
  call Conn.Execute(SQL)
END IF

HUSK: COUNT er ikke et godt feltnavn, da det er et reserveret ord i SQL.

>>HUSK: COUNT er ikke et godt feltnavn, da det er et reserveret ord i SQL.

Sone>> Ups, den havde jeg ikke lige tænkt på...

ok - jeg prøvede lige denne her - den lød mest smart! Men jeg får nu følgende fejl:

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

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


<%
dim conn,strconn,SQL
set conn = server.CreateObject(\"ADODB.Connection\")
strconn =\"Data Source=Northwind;User ID=sa;Password=;\"

adresse = Request.servervariables(\"REMOTE_ADDR\")

conn.Open strconn

SQL = \"UPDATE tabel1 SET antal=antal+1 WHERE REMOTE_ADDR = \'\" & adresse & \"\'\"
call Conn.Execute(SQL,rowsAffected)

IF rowsAffected=0 THEN
  Sql = \"INSERT INTO Tabel3 (REMOTE_ADDR, antal) VALUES (\'\" & adresse & \"\', 1)\"
  call Conn.Execute(SQL)
END IF
%>

Glem det! fejlen var at jeg havde skrevet tabel1 og tabel3 i de 2 statements....

Mange tak, det virker fint - den kode kan godt anbefales!!!

Henrik

Jeps - kun ét kald hvis posten eksisterer i databasen.