%
dim msg
msg = ""
if Request.QueryString("Send") = "Y" then
'response.end
Dim MyCDONTSMail
Dim MsgBody
MsgBody = "Name: " & request.form("Name") & "
"
MsgBody = MsgBody & "Title: " & request.form("Title") & "
"
MsgBody = MsgBody & "Date & Place of Birth: " & Request.Form("DateBirth") &" - "& Request.Form("DatePlace") & "
"
MsgBody = MsgBody & "Profession: " & request.form("Profession") & "
"
MsgBody = MsgBody & "Diving Certificate (If available): " & request.form("Certificate") & "
"
MsgBody = MsgBody & "Telephone: " & request.form("Telephone") & "
"
MsgBody = MsgBody & "Fax: " & request.form("Fax") & "
"
MsgBody = MsgBody & "Mobile: " & request.form("Mobile") & "
"
MsgBody = MsgBody &"E-Mail: " & request.form("EMail") & "
"
MsgBody = MsgBody &"P.O.Box: " & request.form("POBox") & "
"
MsgBody = MsgBody &"Postal Code: " & request.form("PostalCode") & "
"
MsgBody = MsgBody &"City / Country: " & request.form("City") & "
"
MsgBody = I'm an old Member: " & request.form("Membership") & "
"
MsgBody = I'm an old Member: " & request.form("Gift") & "
"
Set MyCDONTSMail =CreateObject("CDO.Message")
MyCDONTSMail.From = request.form("Email")
MyCDONTSMail.To = " information@jreds.org"
MyCDONTSMail.Subject = "Customer Feedback "
MyCDONTSMail.HtmlBody = MsgBody
MyCDONTSMail.Send
Set MyCDONTSMail = Nothing
msg = "Thank you for submitting your inquiry"
end if
'------------------------------------------------
IF Request.QueryString("Send") = "YA" Then
msg = "Thank you for submitting your inquiry
"
msg = msg & "You have been joined to our Newsletter successfully"
End IF
'------------------------------------------------
'------------------------------------------------
IF Request.QueryString("Send") = "YE" Then
msg = "Thank you for submitting your inquiry
"
msg = msg & "The Email you've posted already exists"
End IF
'------------------------------------------------
%>