Web Analytics Made Easy -
StatCounter Sending all Request.Form data in one step? - CodingForum

Announcement

Collapse
No announcement yet.

Sending all Request.Form data in one step?

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Sending all Request.Form data in one step?

    I have some code that allows me to take all the Request.Form data from any form and send it in an email with just these two lines of code:

    FOR EACH el IN Request.Form
    msg.appendtext( el & ": " & Request.form(el) & vbcrlf )

    Is is possible to do the same thing when entering form data into a database. All the filed names are the same as the form field names. This is the code I am using.

    Code:
    FOR EACH el IN Request.Form
    	msg.appendtext( el & ": " & Request.form(el) & vbcrlf )
    	objRs.AddNew
    	objrs(el) = request.form(el)
    	objRs.Update
    	objRs.Close
    	Set objRs = Nothing
    	objConn.Close
    	Set objConn = Nothing
    NEXT
    If not msg.Send("mail.domain.com" ) then
        Response.write "<pre>" & msg.log & "</pre>"
    Else
        Response.write "Message sent succesfully!"
    	End if
    BukHix
    New to the CF scene
    Last edited by BukHix; Jun 20, 2002, 05:21 PM.

  • #2
    You were right about what I was really trying to do. I am still having trouble with the code. I took the email code out of it just to make it easier to troubleshoot. Here is what I have now:

    Code:
    <%
    Const adLockOptimistic = 3
    Const adCmdTable = &H0002
    	
    Dim objConn, objRs
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.ConnectionString = _
    	"DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & _
    	Server.MapPath("/fpdb/maillist.mdb")
    
    objConn.Open
    Set objRs = Server.CreateObject("ADODB.Recordset")
    objRs.Open "tblTest", objconn, ,adLockOptimistic , adCmdTable
    objRs.AddNew		
    
    FOR EACH el IN Request.Form
        objrs.Fields(el) = Request.Form(el)
    NEXT
    	objRs.Update
    	objRs.Close
    	Set objRs = Nothing
    	objConn.Close
    	Set objConn = Nothing
    %>
    All fields are text based and I am only trying this with four fields. This is the error:

    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

    /maillist/NewMail.asp, line 23
    BukHix
    New to the CF scene
    Last edited by BukHix; Jun 21, 2002, 10:04 AM.

    Comment

    Working...
    X