log ip problemer
Jeg logger alle Ip adresser der besøger mit site.i rs("Ip") i databasen lægger jeg IP adressen (strIp) og
i strHttp vil jeg gerne have at http://www.adressen.dk lægges.
da man sjælendt kender Http'en på brugeren der besøger site'et
så vil jeg gerne søge efter brugerens Ip adresse
i de IP adressen der i forvejen er i min database.
Hvis brugeren(IP) er der så har han været på besøg før skal værdien af rs("strHttp")
skrives i den nye rs("strHttp") record.
hvis brugeren(IP) ikke har været her før skal der blot skrives
"Kender ikke Http" i rs("strHttp")
<%
'kode
strIp = Request.ServerVariables("REMOTE_ADDR")
strHost = Request.ServerVariables("REMOTE_HOST")
strHttp = "Kender ikke host"
'strHttp = Request.ServerVariables("HTTP_HOST")
'strnpfvoid = Request.servervariables("HTTP_REFERER")
strBrowser = Request.servervariables("HTTP_USER_AGENT")
strSprog = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
strDato = now
%>
<!--#include file="_dbconn.asp"-->
<%
'se om der har været besøg fra brugeren(IP) før
ledSQL = "Select * from tbl_statistik where Ip='" & strIp & "'"
Set rs = Conn.Execute(ledSQL)
'hvis strIp ikke findes i databasen, så skal værdien af strHttp skrives i rs("strHttp")
if rs("Ip") = "" then
'skriver til DB
strSQL = "Insert into tbl_statistik(Ip, Host, strHttp, strSprog, strBrowser, Tidspunkt) VALUES ('" & strIp & "','" & strHost & "','" & strHttp & "','" & strSprog & "','" & strBrowser & "','" & strDato & "')"
Set rs = Conn.Execute(strSQL)
else
'Hvis Ip findes i databasen
'så skriv indholdet af rs("strHttp") i den nye record
strSQL = "Insert into tbl_statistik(Ip, Host, strHttp, strSprog, strBrowser, Tidspunkt) VALUES ('" & strIp & "','" & strHost & "','" & rs("strHttp") & "','" & strSprog & "','" & strBrowser & "','" & strDato & "')"
Set rs = Conn.Execute(strSQL)
end if
'Luk database
Conn.Close
Set Conn = Nothing
%>
Hvad er der galt her? jeg får fejl i linje 22 som er:
if rs("Ip") = "" then
altså hvis Ip adressen ikke findes i databasen
Er jeg halt galt på den?????
