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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.