Untitled Document
<%
dim SendToAddress
SendToAddress=Request.Form("email")
If request("submit") <> "" then
Set myMail=CreateObject("CDO.Message")
myMail.Subject=request("name") & " has recommended this site."
myMail.From="info@pcavenues.com"
myMail.To=SendToAddress
myMail.Bcc=""
myMail.Cc=""
myMail.TextBody=request("name") & " has visited our travel site and asked us to send you this message. They thought you may be interested in some of the packages or destinations that Condor Outfitters has to offer. http://www.condoroutfitters.com" & vbcrlf & vbcrlf & "Sincerely," & vbcrlf & "Condor Outfitters"
myMail.Send
set myMail=nothing
Response.Redirect ("RecommendThanks.html")
end if
%>
