|
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/biehlweb/Old_FILES_09_08/ |
Upload File : |
<html>
<head>
<title>Biehl & Biehl Mail</title>
</head>
<body bgcolor="white">
<h3><font face="arial">Thank You</font></h3>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "RCN Webpage Form Results"
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient Request.Form("[email protected]"), Request.Form("recipient")
Mailer.Subject = "submission from Employment"
strMsgHeader = "Form information follows" & vbCrLf
for each qryItem in Request.Form
strMsgInfo = strMsgInfo & qryItem & " - " & request.Form(qryItem) & vbCrLf
next
strMsgFooter = vbCrLf & "End of form information"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
if Mailer.SendMail then
Response.Write "Please hit the back button to return to Biehlcollects.com..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>
</body>
</html>