jrthor2
01-21-2003, 08:50 AM
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>
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>