<%
' change to address of your own SMTP server
strHost = "mail.naxs.com"
strBody = "Online Catalog Request" & chr(10) & chr(10)
strBody = strBody & "Quantity: " & request("Quantity") & chr(10)
strBody = strBody & "Description: " & request("Description") & chr(10)
strBody = strBody & "Full Name: " & request("FullName") & chr(10)
strBody = strBody & "Address: " & request("Address") & chr(10)
strBody = strBody & "Address(Cont): " & request("Address2") & chr(10)
strBody = strBody & "City: " & request("City") & chr(10)
strBody = strBody & "State: " & request("State") & chr(10)
strBody = strBody & "Zip Code: " & request("ZipCode") & chr(10)
strBody = strBody & "Email: " & request("Email") & chr(10)
strBody = strBody & "Telephone: " & request("Telephone") & chr(10)
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("Email") ' From address
Mail.FromName = Request("FullName") ' optional
Mail.AddAddress "jwtaylor@naxs.net"
' message subject
Mail.Subject = "Online Catalog Request"
' message body
Mail.Body = strBody
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
%>
Catalog Request
