Her har du selve koden som skal finde IP-adressen.
<% IP = Request.ServerVariables("REMOTE_ADDR") Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") Conn.Open DSN
SQL = "Select IP From tabelnavn Where IP = " & IP & "" Set rs = Conn.Execute(SQL) If (rs.BOF or rs.EOF) Then SQL = "Insert into tabelnavn(IP) values('" & IP & "')" Conn.Execute(SQL) End If
'Og her den kode som er tælleren
Set Count = Conn.Execute("Select Count(IP) AS Antal") Response.Write "Der har ialt været "& Count("IP") &" hits." %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.