<% Dim strHost Dim strBody Dim strErr Dim bSuccess Dim FriendMail ' change to address of your own SMTP server strHost = "mail.tuxwearhouse.com" FriendMail = Request("FriendName") If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.Port = 2525 Mail.From = "website@tuxwearhouse.com" ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress "webmaster@tuxwearhouse.com" 'Mail.AddBcc "tom@pentomtechnologies.com", copy ' message subject Mail.Subject = " TuxWearhouse.com - Contact Us Form Submitted by: " & Request("name") ' message body ' strBody = " Attention: " & Request("name") & " has sent you a message" strBody = "Company Name: " & Request("company") & Chr(13) & chr(10) & "Contact Name: " & Request("name") & Chr(13) & chr(10) & " Address: " & Request("address") & Chr(13) & chr(10) & "City: " & Request("city") & Chr(13) & chr(10) & "State: " & Request("state")& Chr(13) & chr(10) & "Zip Code: " & Request("zip")& Chr(13) & chr(10) & "Phone: " & Request("phone")& Chr(13) & chr(10) & "Email: " & Request("email")& Chr(13) & chr(10) & "Fax: " & Request("fax")& Chr(13) & chr(10) & "Comments: " & Request("comments")& Chr(13) & chr(10) 'Mail.Body = Request("comments") & strBody Mail.Body = strBody 'Mail.Body = Request("Body") 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 %> Tuxedo Wearhouse - Tuxedo Sales and Rentals - Northeast Georgia

 

<% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Thank You! Someone will be contacting you shortly.

<% else %>

For general questions or comments you may also contact us by submitting the following contact information and we will be in touch with you:

Method of Contact
Name:
Company:
Address:
City:
State:
Zip Code:
Phone:
Fax:
Email:
Comments:
<% End If %>

Weddings - Concerts - Anniversaries - Homecoming
Promotions - Proms - Night Out - Corporate Functions - Special Events

Copyright 2005 Tuxedo Wearhouse, All Rights Reserved

Website Designed and Hosted by Pentom Technologies, Inc.