find 5 fejl

Sådan?

strSQL = strSQL & vbCrLf & \"INSERT INTO toplist(url, ipadr) VALUES(\" & url & \"\', \'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\')\"

samme fejl skriv helst den komplette script så jeg bare kan kopier og sætte det ind.

undskyld har været ude og drikke lidt i aften...lol

her er den komplette script


<%
url = Request.QueryString(\"id\")

    dim strDSN, Conn
    strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"start.mdb\")
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open strDSN

strSQL = \"IF (SELECT COUNT(*) FROM toplist WHERE url=\'\" & url & \"\' AND ipadr = \'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\') = 0\"

strSQL = strSQL & vbCrLf & \"INSERT INTO toplist(url, ipadr) VALUES(\" & url & \"\', \'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\')\"

conn.execute strSQL

conn.Close
set conn = nothing

Response.Redirect (url)
%>

& url & \"\' AND

skal det ikke bare være

& url & \" AND

fejlen er i denne linie

strSQL = strSQL & vbCrLf & \"INSERT INTO toplist(url, ipadr) VALUES(\" & url & \"\', \'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\')\"

VALUES(\" & url &

mangler du ikke en ping?

VALUES(\'\" & url &

nej desværre..

Lukker bare spørgsmålet