Home
Big
Stuff
Small
Stuff
Where
To Find
My Work
Mailing
List
What I
Do
Contact
Me
Links
Contact Me Form
Hi. Questions, suggestions, anything.
 
Name:
EMail Address:
Message:
 
 

Home ? Big Stuff ? Small Stuff ? Where To Find My Work
Mailing List ? What I Do ? ? Links ? Top of Page

 
<% Set Mailer = Server.Createobject("SMTPsvg.Mailer") Mailer.FromName = Request.Form("Recipient") Mailer.FromAddress = Request.Form("email") Mailer.RemoteHost = "mail2.siteserver.net" Mailer.AddRecipient "", "eabraham@wtciweb.com" Mailer.AddRecipient "", "buddyk@ameritech.net" Mailer.Subject = "Mail from the Web Site" Mailer.BodyText = Request.Form("message") Mailer.BodyText = " " For Each Item in Request.Form StringLength = Len(Item) BufferSpace = 20-StringLength Count=0 strSpace = "" Do While Count <> BufferSpace strSpace=strSpace & " " Count=Count+1 Loop Mailer.BodyText = Item & ":" & strSpace & Request.Form(Item) Mailer.BodyText = " " Next Mailer.BodyText = " " Mailer.BodyText = "--- END OF FORM ---" If Mailer.SendMail then Response.Redirect "http://" & Request.ServerVariables("HTTP_HOST") & "/" & Request.Form("ReDirect") ' Message Sent! Else Response.Write "An error has occurred. - " & Mailer.Response ' ERROR - Message Not Sent End If %>