%
If Request("SendInfo") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.woodwrights.net"
Mail.From = "admin@woodwrights.net" ' From address
Mail.FromName = Request("txtyour_name") ' optional
Mail.AddAddress "contact@woodwrights.net"
Mail.AddReplyTo Request("txtemail")
Mail.Subject = "Contact Us Message from www.Woodwrights.net"
sBody = "From: " & Request("txtyour_name") & Chr(13) & Chr(10) & _
"--------------------------------------------------------------------------" & Chr(13) & Chr(10) & _
"Company: " & Request("txtcompany_name") & Chr(13) & Chr(10) & _
"--------------------------------------------------------------------------" & Chr(13) & Chr(10) & _
"Phone: " & Request("txtPhone") & Chr(13) & Chr(10) & _
"Email: " & Request("txtEmail") & Chr(13) & Chr(10) & _
"--------------------------------------------------------------------------" & Chr(13) & Chr(10) & _
"Message: " & Chr(13) & Chr(10) & Chr(13) & Chr(10) & Request("txtComments")
Mail.Body = sBody
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Woodwrights Inc.