<% name = request.form("thename") email = request.form("emailaddress") phone = request.form("thephone") comment = request.form("comments") if request.servervariables("REQUEST_METHOD") = "POST" then if name <> "" and email <> "" then emailtext = "Name: " + name + vbcrlf + "
Email: " + email + vbcrlf emailtext = emailtext + "Comment"+vbcrlf+"-------"+vbcrlf+comment+vbcrlf call sendemail("Matthews And Fields","info@matthewsandfieldslumber.com","Matthews & Fields Lumber Contact from " + name,emailtext,email) message = "Your message has been sent. Thank you for your input." else message = "Please fill out all fields marked in RED" end if end if %> Matthews and Fields Lumber - Rochester New York
Contact Us
Name:
E-mail:
Phone:
Question or Comment:


 
<% ' For version 1.0 sub sendemail(byval name,byval email, byval subj,byref bodytext,byval from) 'response.write "

Sending mail to: " & name & " <" & email & "> ..." Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.From = "info@matthewsandfieldslumber.com" Mailer.Host = "mailout.zaks.com" Mailer.IsHTML = true ' Add recipient 'Mailer.AddAddress name,email Mailer.AddAddress "info@matthewsandfieldslumber.com", "Web Site Inquiry" Mailer.Subject = subj Mailer.Body = bodytext if Mailer.Send then 'response.write "DONE" else 'response.write "FAILED
" 'Response.Write "Error encountered: " & Err.Description end if 'response.write ".

" end sub %>