<%@LANGUAGE="VBSCRIPT"%> <% my_from=request("mail-fromName") my_fromAddress=request("mail-fromaddress") my_to=request("mail-toName") my_toAddress=request("mail-toaddress") my_subject=request("mail-subject") my_relay=request("mail-relay") Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = my_relay Mailer.FromName = my_from Mailer.FromAddress = my_fromAddress Mailer.AddRecipient my_to, my_toaddress Mailer.Subject = my_subject sBodyText = "The following is feedback from my web site." & vbcrlf & vbcrlf sBodyText = sBodyText & "Name: " & Request.Form("name") & vbCrLf sBodyText = sBodyText & "Address: " & Request.Form("address") & vbCrLf sBodyText = sBodyText & "City: " & Request.Form("city") & vbCrLf sBodyText = sBodyText & "State: " & Request.Form("state") & vbCrLf sBodyText = sBodyText & "Zip: " & Request.Form("zip") & vbCrLf sBodyText = sBodyText & "Phone: " & Request.Form("phone") & vbCrLf sBodyText = sBodyText & "E-Mail Address: " & Request.Form("email") sBodyText = sBodyText & vbCrLf & Chr(80) & Chr(150) & Chr(80) & Chr(10) sBodyText = sBodyText & "" & Request.Form("comment") & vbCrLf Mailer.BodyText = sBodyText If Mailer.SendMail then Msg = "Thank you for your enquiry.
A member of staff will contact you shortly." Else MSG = "mail was not sent successfully
MSG = MS G& mailer.response & "
" End If response.write MSG %> <%@LANGUAGE="VBSCRIPT"%> <% fromName="N8art.com" fromAddress="visualodsy@aol.com" toName="ContactUs" toAddress="visualodsy@aol.com" subject="N8art Contact Us Form" relay="smtpout.secureserver.net" %> Contact Us

CContact Us

Name:
Address:
City:
State:
Zip:
Phone:
E-mail:

Comments: