
February 2nd, 2001, 08:26 PM
|
|
Contributing User
|
|
Join Date: Dec 2002
Posts: 14,575
  
Time spent in forums: < 1 sec
Reputation Power: 23
|
|
|
trying to insert into an Access DB
<i><b>Originally posted by : C Kaneta (kaneta@worldnet.att.net)</b></i><br />Can someone please tell me what's wrong with this bit of code?<br />----------------------------------------------<br /><% strNam = Trim(Request.Form("GBName"))<br /> strEml = Trim(Request.Form("GBEMail"))<br /> strURL = Trim(Request.Form("GBURL"))<br /> strCom = Trim(Request.Form("GBComm"))<br /> strDat = Now<br />' 10<br /> Response.Write("Date : "&strDat&"<br>")<br /> Response.Write("Name : "&strNam&"<br>")<br /> Response.Write("EMail : "&strEml&"<br>")<br /> Response.Write("WPage : "&strURL&"<br>")<br /> Response.Write("Cmmnt : "&strCom)<br /> <br />' Set DataConn = Server.CreateObject("ADODB.Connection")<br /> sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br /> "Data Source=" & Server.MapPath("kanetadbcjkdb.mdb") & ";" & _<br /> "Persist Security Info=False" <br />' DataConn.Open(sConnection) <br /> set oRS = Server.CreateObject("ADODB.Recordset")<br /> oRS.Open "gbook",sConnection, ,adLockPessimistic, adCmdTable <br /> oRS.AddNew<br /> oRS.Fields("Date") = strDat<br /> oRS.Fields("Name") = strNam<br /> oRS.Fields("EMail") = strEml<br /> oRS.Fields("HomeURL") = strURL<br /> oRS.Fields("Comments") = strCom<br /> oRS.Update<br /> oRS.Close<br />' DataConn.Close<br /> Set oRS = Nothing<br />' DataConn = Nothing<br /><br />--------------------------------<br />I end up getting an error page like this<br />ADODB.Recordset error '800a0bb9' <br /><br />Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. <br /><br />/kaneta/gbk.asp, line 23 <br /><br />
|