Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "Select * From gb" rs.Open strSQL, Connect, adOpenKeyset, adLockOptimistic rs.AddNew if Request.Form("Name") <> "" then rs("Name") = Request.Form("Name") end if if Request.Form("Email") <> "" then rs("Email") = Request.Form("Email") end if if Request.Form("Homepage") <> "" then rs("Homepage") = Request.Form("Homepage") else rs("Homepage") = "X" end if if Request.Form("Entry") <> "" then rs("Entry") = Request.Form("Entry") end if rs("Date") = date() rs("ip") = Request.ServerVariables("REMOTE_ADDR") rs.Update rs.Close Set rs = Nothing Connect.Close set Connect = Nothing
Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "Select * From gb" rs.Open strSQL, Connect, adOpenKeyset, adLockOptimistic rs.AddNew if Request.Form("Name") <> "" then rs("Name") = Request.Form("Name") end if if Request.Form("Email") <> "" then rs("Email") = Request.Form("Email") end if if Request.Form("Homepage") <> "" then rs("Homepage") = Request.Form("Homepage") else rs("Homepage") = "X" end if if Request.Form("Entry") <> "" then rs("Entry") = Request.Form("Entry") end if rs("Date") = date() rs("ip") = Request.ServerVariables("REMOTE_ADDR") rs.Update rs.Close Set rs = Nothing Connect.Close set Connect = Nothing
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
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.