|
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/djweb1/cgi-bin/ |
Upload File : |
<html>
<head>
<meta name="Microsoft Border" content="none, default">
<title>RCN ASPMail.asp Example</title>
</head>
<body bgcolor="white">
<h3><font face="arial" color #0000FF>Thank You for your interest in Setra Systems products. </font></h3>
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "www.setra.com"
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "Setra Systems", "[email protected]"
Mailer.Subject = "Setra Web Request"
For ix = 1 to Request.Form.Count
fieldName = Request.Form.Key(ix)
fieldValue = Request.Form.Item(ix)
strMsgInfo = strMsgInfo & fieldName & ": " & fieldValue & vbCrLf
next
strMsgHeader = "Form information follows" & vbCrLf & "*************"
strMsgFooter = vbCrLf & "*************"
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
if Mailer.SendMail then
'Response.Write "Form information submitted..."
else
' Message send failure
Response.Write ("An error has occurred.<BR>")
' Send error message
Response.Write ("The error was " & Mailer.Response)
end if
%>
</body>
</html>