<%
If Request.Form.Count > 0 Then
For I = 1 to Request.Form.Count
Body = Body & Request.Form.Key(I) & " " _
& Request.Form.Item(I) & vbCRLF
Next
'*** send email notice
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "smtp.christianunitedfellowship.org"
Mailer.FromName = "CUFS Website"
Mailer.FromAddress = "postmaster@christianunitedfellowship.org"
Mailer.AddRecipient "CUFS Administrator", "postmaster@christianunitedfellowship.org"
Mailer.Subject = "Question from ChristianUnitedFellowship.org Web Site about topic suggestions"
Mailer.BodyText = Body
Mailer.SendMail
Set Mailer = Nothing
Response.Redirect "questionthankyou.htm"
End If
%>
Do you have a question?
Do you have a question?
We may have the answer, and are certainly willing to correspond and assist as we are able. Please provide the following information: