record add problem newbie here

jdsflash · May 16th, 2006, 02:55 PM

New to asp and databases any help is greatly apreciated!
Im having problems adding recoreds to my database.
heres a link to my form.asp and confirm.asp
http://flexo.wisc-online.com/form.asp
http://flexo.wisc-online.com/confirm.asp

confirm asp code

Code:

<%
DIM objRS, objConn
objConn = "Driver={SQL Server}; server=myserver;Database=mydatabase; UID=myid; PWD=mypw"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "tbltest", objConn
objRS.AddNew
objRS("Email") = Request.Form("Email")
objRS("FirstName") = Request.Form("FirstName")
objRS("LastName") = Request.Form("LastName")
objRS("Comments") = Request.Form("Comments")
objRS("DateContacted") = Date()
objRS.Update
%>
<p>
<%
DIM strFirstName
strFirstName = Request.Form("FirstName")
%>,<br>
</p>
<%
objRS.Close
Set objRS = Nothing
objCONN.Close
Set objCONN = Nothing
%>

What am I doing wrong?

jbenson001 · May 18th, 2006, 10:39 PM

cross post
http://p2p.wrox.com/topic.asp?TOPIC_ID=44390

rstelma · May 19th, 2006, 12:01 PM

I'm not sure what the problem is here but I'll show you a little trick that you can use to find out.

Have your editor open. Fill in your form and post it. If you get a Page Cannot Be Displayed, select all of the code on your page, delete it and type a single character on the page. Refresh your page and you should see that single character. Then do a Ctrl + Z in your editor to put the code back into the page. Save it and refresh the page again. This will then give you exactly what the error is and possibly a line number.

I don't use the UPDATE method in classic asp. Here is how I would execute your code.

This code executes fine. I tried it.

Code:

<%
    DIM objRS, objConn, strConn
    strConn = "Driver={SQL Server}; server=myserver;Database=mydatabase; UID=myid; PWD=mypw"

    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open strConn

    SQL = "Insert into tbltest (Email, FirstName, LastName, Comments, DateContacted) VALUES ('" & Request("Email") & "', '" & Request("FirstName") & "', '" & Request("LastName") & "','" & Request("Comments") & "', '" & Date() & "') ;"
    Set objRS = objConn.Execute(SQL)

    objConn.Close
    Set objConn = Nothing
%>

Hope this helps.

jdsflash · May 19th, 2006, 12:04 PM

That was great thanks allot!!! You guys are allot of help