<%
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 = "127.0.0.1"
Mailer.FromName = "Dundean Studios"
Mailer.FromAddress = "info@dundean.com"
Mailer.AddRecipient "Dean Sickler", "info@dundean.com"
Mailer.Subject = "Dundean Web Site: Contact Form"
Mailer.BodyText = Body
Mailer.SendMail
Set Mailer = Nothing
Response.Redirect "thank_you.htm"
End If
%>
Mail form for Dundean Studios
Dundean Studios Contact Form
If you would just like to ask a question, just put in your name,
email address and question. If you would like a schedule, please
fill out the mailing address and one will be sent
