<%
' change to address of your own SMTP server
strHost = "mail.thatz-entertainment.com"
If Request("Submit") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("EmailAddress") ' From address
Mail.FromName = Request("Name") ' optional
Mail.AddAddress "dan@thatz-entertainment.com", "Danny Moreland"
Mail.AddCC "cliff@theforerunnernetwork.com", "Cliff Hammock" ' Name is optional
' message subject
Mail.Subject = "Thatz Entertainment Website Request"
' message body
Mail.Body = Request("Comments") & chr(13) & chr(10) & Request("DayPhone") & chr(13) & chr(10) & Request("EveningPhone") & chr(13) & chr(10) & Request("EmailAddress")
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
Response.Redirect("/thankyou.html")
%>
Contact Thatz Entertainment San Diego DJ