Adding record to database?

werD420 · January 20th, 2005, 05:10 PM

Is there an error in this script that will not allow to work?

Code:

<%@Language = "VbScript"%>

<%
dim objConn,objRec 
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.Open "\\lou1-web01\robohelp\shpsmate\shpsmate v3\hot topics.mdb"
 Set objRec = Server.CreateObject ("ADODB.Recordset")   
  objRec.Open "hottopic", bookdb, adOpenStatic, adLockOptimistic, adCmdTable
%>
<%
  objRec.AddNew
  ObjRec("Name") = "SOG"
  objRec("Control") = "10029"
  objRec.Update

%>

I get page cannot be displayed but Im using the full web address

Thanks

shahchi1 · January 20th, 2005, 05:36 PM

Try this..
**************
<%@Language = "VbScript"%>

<%
dim objConn,objRec
set objConn=Server.CreateObject("ADODB.Connection")

Dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;" 'change the db path

objConn.Open strConn

Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "hottopic", objConn, adOpenStatic, adLockOptimistic, adCmdTable
%>
<%
objRec.AddNew
ObjRec("Name") = "SOG"
objRec("Control") = "10029"
objRec.Update

%>
****
use server.mappath() in your connection string
use SQL insert into statement instead of using ADO to insert a record

last suggestion.. get a book.. Beginning ASP databases neat stuff..

shahchi1 · January 20th, 2005, 05:43 PM

If you want to know what error you are receiving

If you are using Internet Explorer then
Go to Tools-->Internet Options -->Advanced--> uncheck show friendly HTTP error messages

werD420 · January 20th, 2005, 05:46 PM

Thanks for the advice and the quick response I am able to get my page to display but it shows this error
Provider error '80020005'

Type mismatch.

/robohelp/shpsmate/shpsmate v3/Hotadd.asp, line 18

Here is the adjusted code

Code:

<html>
<head>
<p>Add You're Stuff</P>
</Head>
<Body>
<Form action="hotadd.asp" method="post">
<input type="text" name="date">
<input type="text" name="Control">
<input type="submit" name="sub">
</body>
</HTML>
<%@Language = "VbScript"%>

<%
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.mapPath("Hot Topics.mdb")

Set ObjRs=Server.CreateObject("ADODB.Recordset")
ObjRs.Open "Hottopic", objConn, strConn, adCmdTable
ObjRs.AddNew
'ObjRs("ID")=Request.form("ID")
ObjRs("Date")=Request.form("Date")
ObjRs("Control")=Request.form("Control")
'ObjRs("Name")=Request.form("Name")
'ObjRs("Comments")=Request.form("Comments")
'ObjRs("Contact")=Request.form("Contact")
ObjRs.Update
ObjRs.Close
Set ObjRs=Nothing

Response.write "<center><b>Record Added!</b></center>"
%>

shahchi1 · January 20th, 2005, 06:07 PM

change your code as follows
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Hot Topics.mdb")

ObjRs.Open "Hottopic", objConn, adOpenKeySet,adLockOptimistic,adCmdTable

werD420 · January 20th, 2005, 06:27 PM

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/robohelp/shpsmate/shpsmate v3/Hotadd.asp, line 18