www.webdeveloper.com
Results 1 to 2 of 2

Thread: Email Form

  1. #1
    Join Date
    Jan 2003
    Location
    PA
    Posts
    1,898

    Email Form

    When trying to submit a form, I get the following error:

    Microsoft VBScript runtime error '800a01b6'

    Object doesn't support this property or method: 'Mailer.BodyText'

    The code for the page looks like this (the error line is bolded):

    <html>
    <head>
    <title>Zion Evangelical Lutheran Church - VBE Thank You</title>
    <!--#include virtual="/inc/head_include.htm"-->
    </head>

    <body bgcolor="#FFFFFF" marginheight="0" marginwidth="0" leftmargin="0" topmargin="0" background="/images/background2.jpg">
    <table width="100%" border="0" cellspacing="0" cellpadding="2">
    <tr>
    <td rowspan="2" valign="top">
    <!--#include virtual="/inc/Menu.htm" -->
    </td>
    <td width="100%" valign="top">
    <!--#include virtual="/inc/layout_top.asp"-->
    </td>
    </tr>
    <tr>
    <td width="100%" valign="top">
    <table width="100%" border="1" cellspacing="0" cellpadding="5" align="left" bordercolor="330099" bgcolor="ffffff">
    <tr>
    <td>

    <%
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName = Request.Form("Name")
    Mailer.FromAddress = Request.Form("Email")
    Mailer.RemoteHost = "localhost"
    Mailer.AddRecipient "Jason Roscoe", "jroscoe10@comcast.net"
    'Mailer.AddBCC "Jason Roscoe", "jroscoe10@comcast.net"
    Mailer.Subject = "Christian Education Committee Survey"
    Mailer.BodyText = "Donna," & Chr(13) & Chr(13) & "1. Do you and/or your family members currently participate in programs and activities in addition to Sunday worship services?: " & Request.Form("q1") & Chr(13) & "2. Do the current programs meet your needs?: " & Request.Form("q2") & Chr(13) & "3. The Christian Education Committee coordinates the following areas of ministry. Please rate them according to how well they are serving your needs and expectations." & Chr(13) & "3a. Sunday Church School: " & Request.Form("q3a") & Chr(13) & "3b. Adult Sunday School: " & Request.Form("q3b") & Chr(13) & "3c. Confirmation Studies: " & Request.Form("q3c") & Chr(13) & "3d. Zion Youth Groups: " & Request.Form("q3d") & Chr(13) & "3e. Vacation Bible School: " & Request.Form("q3e") & Chr(13) & "3f. Church Nursery: " & Request.Form("q3f") & Chr(13) & "3g. Bible Studies: " & Request.Form("q3g") & Chr(13) & "4. As our congregation grows so does our vision. In what areas would you like to see development? (Please check one or more): " & Request.Form("q4") & Chr(13) & "5. If more programs were offered, what would you be interested in attending?: " & Request.Form("q5")
    if Request.Form("q5other") <> 0 then
    Mailer.BodyText = Mailer.BodyText & "Other: " & Request.Form("q5other")
    End if
    Mailer.BodyText = Mailer.BodyText & "6. What time would you like to see these programs offered?: " & Request.Form("q6") & Chr(13) & "7. Would you be willing to help plan/execute these programs?: " & Request.Form("q7") & Chr(13) & "8. The Library will soon be up and running…what times and days would you see yourself using the Library here at church?: " & Request.Form("q8") & Chr(13) & "9. Are there any books that have been a spiritual help in your life that you feel the library should have?: " & Request.Form("q9") & Chr(13) & "10. The committee welcomes all members who would like to be involved in this ministry.: " & Request.Form("q10") & Chr(13) & Chr(13) & "Name: " & Request.Form("Name") & Chr(13) & "Telephone: " & Request.Form("Phone") & Chr(13) & "Best time to contact you: " & Request.Form("Contact") & Chr(13) & "E-mail" & Request.Form("Email")
    if Mailer.SendMail then
    Response.Write (" <p>" & Mailer.FromName & ",</p><p> Your survey has been processed.</p>Thank you,<br>Donna Ebright")
    else
    Response.Write "Mail send failure. Error was " & Mailer.Response
    end if
    %>
    </td>
    </tr>
    </table>

    </td>
    </tr>
    <tr>
    <td colspan="2">
    <!--#include virtual="/inc/layout_bottom.htm"-->
    </td>
    </tr>
    </table>
    </body>
    </html>
    Last edited by jrthor2; 01-21-2003 at 09:43 AM.

  2. #2
    Join Date
    Jan 2003
    Location
    Dundee, Scotland
    Posts
    1,367
    hi,
    i agree with dave, what your doing is calling the Mailer Object in the first part then when you have this line:

    Mailer.BodyText = Mailer.BodyText &

    what your doing is telling it to add or join another instance of the same object and its saying wtf

    just change to

    thetext = "whatever"
    thetext = bodytext & "whatever"

    mailer.bodytext = thetext

    hope this helps
    ----------------------------------

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center



Recent Articles