|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/ceonlinenews/cgi-bin/ |
Upload File : |
<%
Dim objSMTP
Set objSMTP = Server.CreateObject("SMTPsvg.Mailer")
objSMTP.ContentType = "text/html"
objSMTP.FromName = Trim(Request.Form("name_first")) & " " & Trim(Request.Form("name_last"))
objSMTP.FromAddress= Trim(Request.Form("email"))
objSMTP.RemoteHost = "smtp.rcn.com"
objSMTP.AddRecipient "Marjorie Costello","[email protected]"
objSMTP.AddBcc "Hallie", "[email protected]"
objSMTP.Subject = "Contact from CEON Website"
Dim strBody
strBody = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN""><HTML><BODY>"
strBody = strBody & "First Name: " & Trim(Request.Form("name_first")) & "<BR>" & vbCrLf
strBody = strBody & "Last Name: " & Trim(Request.Form("name_last")) & "<BR>" & vbCrLf
strBody = strBody & "Work Phone: " & Trim(Request.Form("phone_work")) & "<BR>" & vbCrLf
strBody = strBody & "E-mail: " & Trim(Request.Form("email")) & "<BR>" & vbCrLf
strBody = strBody & "Comments: " & Trim(Request.Form("comments")) & "<BR>" & vbCrLf
strBody = strBody & "</BODY></HTML>" & vbCrLf
objSMTP.BodyText = strBody
if objSMTP.SendMail then
Response.Write "Mail sent to CEON..."
else
response.Write "I'm sorry, your message did not go through. Error was " & objSMTP.Response
end if
Set objSMTP = Nothing
%>
<HTML>
<TITLE>Thank You - Info Confirmation page. Need help? Call 212-735-5771</TITLE>
<BODY bgcolor="#FFFFFF">
<H1><font face="Arial, Helvetica, sans-serif">Thank You</font></H1>
<p><font face="Arial, Helvetica, sans-serif" size="3">We have received your comments and will respond as soon as possible. </font></p>
<p><font face="Arial, Helvetica, sans-serif" size="3">Click <a href="http://www.ceonlinenews.com">HERE</a>
to return to <b>CEON</b>. </font> </p>
</BODY>
</HTML>