<%
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
BodyText = BodyText & Item & ":" & strSpace & Request.Form(Item) & vbcrlf & vbcrlf
Next
BodyText = BodyText & vbcrlf & "--- END OF FORM ---"
Set Mailer = Server.CreateObject("Persits.MailSender")
LineFeed = Chr(13) & Chr(10)
Mailer.From = "user@domain.com"
Mailer.Host = "smtp.siteserver.net"
Mailer.AddAddress ""
Mailer.Subject = Request.Form("Subject")
Mailer.Body = BodyText
Mailer.Send
If Mailer.Send then
Response.Redirect "/" ' Message Sent!
Else
Response.Write "An error has occurred. - " & Mailer.Response ' ERROR - Message Not Sent
End If
%>