<%'navnet = Request.form("username")%> <%set rs = server.CreateObject("ADODB.Recordset") set conn = server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("siteusers.mdb") SQL = "SELECT ip FROM ip WHERE ip = '" & Request.ServerVariables("REMOTE_ADDR") & "'" set rs = Conn.execute(SQL) if rs.EOF then SQL = "INSERT INTO ip(ip, dato, navn) VALUES ('" & Request.ServerVariables("REMOTE_ADDR") & "', now(), '" & navnet & "')" response.write (sql) conn.execute(sql) else 'Det der skal ske hvis IP'en findes end if SQL1 = "update ip set dato= now() where ip = '" & request.ServerVariables("REMOTE_ADDR") & "'" conn.execute(sql1) SQL2 = "update ip set navn= navnet where ip = '" & request.ServerVariables("REMOTE_ADDR") & "' AND navn <> ''" conn.execute(sql2) Set rs = Nothing %> denne kode og det virker ikke, den skriver Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
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.