Indsæt ny data i Access

Okay jeg forstår ikke helt den måde du connecter og overføre til databaser på, så jeg har selv lavet det :s, se om det virker og brug det hvis du vil

<%
If Session("ip-address") <> Request.ServerVariables("REMOTE_ADDR") Then

Session("ip-address") = Request.ServerVariables("REMOTE_ADDR")
' opret data i database

strSQL = "Insert into IPstatistics ("

strSQL = strSQL & "ip-address, "
strSQL = strSQL & "date, "
strSQL = strSQL & "time, "
strSQL = strSQL & "visits, "
strSQL = strSQL & "clicks) " 

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Session("ip-address") & "', "
strSQL = strSQL & "'" & Date & "', "
strSQL = strSQL & "'" & Time & "', "
strSQL = strSQL & "'1', "
strSQL = strSQL & "'0')"

strConn.Execute(strSQL)

else

' opdatere gammel data ip

strSQL = "Select * from IPstatistics where ip-address = '" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set rs = strConn.Execute(strSQL)

strVisit = objRS("visits") + 1

strSQL = "Update ip-address set "
strSQL = strSQL & "date= '" & Date & "',"
strSQL = strSQL & "time= '" & Time & "',"
strSQL = strSQL & "visits= '" & strVisit & "'"
strSQL = strSQL & " Where Id = 24"
strConn.Execute(strSQL)
End If
%>

strSQL = "Update ip-address set "
strSQL = strSQL & "date= '" & Date & "',"
strSQL = strSQL & "time= '" & Time & "',"
strSQL = strSQL & "visits= '" & strVisit & "'"
strSQL = strSQL & " Where Id = 24"
strConn.Execute(strSQL)
End If

det sidste her skal self. være

strSQL = "Update IPstatistics set "
strSQL = strSQL & "date= '" & Date & "',"
strSQL = strSQL & "time= '" & Time & "',"
strSQL = strSQL & "visits= '" & strVisit & "'"
strSQL = strSQL & " Where Id = 24"
strConn.Execute(strSQL)
End If

Prøv at rette denne SQL sætning som tjekker om IP findes:

    strQ = "SELECT * FROM IPstatistics WHERE 'ip-address = " & Session("ip-address") & "'"

Til dette:

    strQ = "SELECT * FROM IPstatistics WHERE [ip-address] = '" & Session("ip-address") & "'"

eagleeye ; så virker den endelig ... kanon, tak