|
<%
dim Name, Email, Quote, Author, Year, Source, Byline, Screenname, Comments
name= trim(request.form("name"))
email= trim(request.form("email"))
quote= trim(request.form("quote"))
author= trim(request.form("author"))
year= trim(request.form("year"))
source= trim(request.form("source"))
byline= trim(request.form("byline"))
screenname= trim(request.form("screenname"))
comments= trim(request.form("comments"))
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 = "mail.innerhost.com"
Mailer.FromName = name
Mailer.FromAddress = email
Mailer.AddRecipient "Add Quotes", "notify@bethankful.com"
Mailer.Subject = "BeThankful Submit a Quote"
Mailer.BodyText = "Name: " & name
Mailer.BodyText = "Email: " & email
Mailer.BodyText = "Quote: " & quote
Mailer.BodyText = "Author: " & author
Mailer.BodyText = "Year: " & year
Mailer.BodyText = "Source: " & source
Mailer.BodyText = "Byline: " & byline
Mailer.BodyText = "Screenname: " & screenname
Mailer.BodyText = "Comments: " & comments
IF len(Form_Email)<6 OR InStr(Form_Email,"@")=0 THEN
Validated_Form = false
ELSE
Validated_Form = true
END IF
If Mailer.SendMail then
Set Mailer = Nothing
Response.Redirect "thankyou.htm"
else
Response.Write("An error has occurred.
")
Response.Write("The error was " & Mailer.Response)
end if
End If
%>
|
