<%
Dim strTo, strSubject, strBody 'Strings for recipient, subject, body
'ASPEmail.DLL 'The Mail object
stryname = Request.Form("yname")
stryemail = Request.Form("yemail")
strfname = Request.Form("fname")
strTo = Request.Form("To")
strcomments = Request.Form("comments")
'------------------------------------------------------------------------------------------------------------
strSubject = "Site Recommendation"
strBody = strBody & "Site Recommendation of The Charleston Boat Show for " & Request.Form("fname")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Your friend "
strBody = strBody & Request.Form("yname") & " has sent you a recommendation of The Charleston Boat Show website."
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "The 27th Annual Charleston Boat Show Presented by The Tri-County Marine Trade Association will be held"& vbCrLf
strBody = strBody & "January 26 - 28, 2007"
strBody = strBody & vbCrLf & "The show will be held at The Charleston Area Convention Center and Coliseum, in Charleston, South Carolina"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "For full details see the website at http://www.TheCharlestonBoatShow.com"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & Request.Form("yname") & " also said: "
strBody = strBody & Request.Form("comments")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & vbCrLf
' quick validation routine.
If strTo = "" Or Not IsValidEmail(strTo) Then
%>
<%
Else
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = "mail.southconnect.com"
objMail.Port = 25
objMail.From = "jacqui@jbmshows.com"
'objMail.AddAddress "megan@jbmshows.com" , "Megan"
objMail.AddAddress strTo
objMail.AddBcc "megan@jbmshows.com"
objMail.Subject = "CBS Website Recommendation"
objMail.Body = strBody
objMail.Send
Set objMail = Nothing
Response.Write ""
Response.Write "
"
Response.Write "
"
Response.Write "
Thank you for completing our online form! Your email has been sent. "
Response.Write ""
Response.Write ""
End If
%>
<% ' Only functions and subs follow!
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
