<%
If request("Button")="Send Email" then
Dim obj
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "localhost"
JMail.Priority = 1
JMail.Body="Contact Us" & vbCrLf
For each sRequest in Request.Form
JMail.AppendText sRequest & ": " & request(sRequest) & vbCrLf
Next
If request("From")="" then
Response.Write "
You Forgot to Enter your Email Address. Please press your BACK Key and make sure you enter all the information.
"
end if
JMail.Sender=Request("From")
JMail.SenderName=Request("Name")
JMail.AddRecipient ("flowers@judemiller.com")
JMail.Subject=Request.Form("Subject")
JMail.Execute
%>
Processing
