Contact Us

<% if NOT IsEmpty(Request.Form("Submit")) then emailMessage = "Name:" & Request.Form("name") & "
" _ & "Phone:" & Request.Form("phone") & "

" _ & "Message:" & Request.Form("message") emailFrom = Request.Form("email") emailTo = "robthomsett@mac.com" emailSubject = "Email from Website" ' EMAILS TO ONE PERSON, TO A SELECTED ADDRESS Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp-relay.bne.server-mail.com" ' Here's where I send my mail JMail.AddHeader "X-Originating-IP", Request.ServerVariables("REMOTE_ADDR") ' Who's using me? JMail.AddHeader "X-Originating-URL", Request.ServerVariables("URL") ' From which page? JMail.Priority = 1 JMail.Sender = emailFrom ' I sent it JMail.AddRecipient emailTo JMail.Subject = emailSubject JMail.ContentType = "text/html" ' Defaults to text/plain if left out JMail.Body = emailMessage JMail.Logging = True ' Let's see what the SMTP server said JMail.Execute ' This is where everything happens JMail.Close ' Release the connection to the SMTP server set JMail = nothing response.write "Thank you for you email.

" response.write "From:" & emailFrom & "
" response.write emailMessage else %>

Name
Email:
Phone:
Message:
 
<% end if %>