<% ' change to address of your own SMTP server strHost = "localhost" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("FromEmail") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress "pleasantrunnursery@verizon.net" ' message subject Mail.Subject = "Request Catalog" ' message body Mail.IsHTML = True HTML = "" HTML = HTML & "Please Send Me A Catalog " HTML = HTML & "From Company: " & Request("FromCompany") &"

" HTML = HTML & "From: " & Request("FromName") &"

" HTML = HTML & "Email Address:" & Request("FromEmail") &"

" HTML = HTML & "Address: " & Request("Address") &"

" HTML = HTML & "City: " & Request("City") &"

" HTML = HTML & "State: " & Request("State") &"

" HTML = HTML & "Zip: " & Request("Zip") &"

" HTML = HTML & "Phone: " & Request("Phone") &"

" HTML = HTML & "Fax: " & Request("Fax") &"

" HTML = HTML & "Comments: " & Request("Comments") &"

" HTML = HTML & "" strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Body = HTML Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Pleasant Run Nursery

5
6
7
8
9






<% If strErr <> "" Then %> <% End If %> <% If bSuccess Then %> <% End If %> <% If bSuccess = False Then %> <% end if %>
Please Send Me A Catalog

Error occurred: <% = strErr %>

Success! Message sent.
Your Company:
Your Name:
Address:
City:
State: Zip:
Phone:
Fax:
Email Address:
Comments:
 

Home | Featured Items | Stock Availability | Who We Are | Directions | Request A Catalog | Contact Us