|
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/marilynaj/admin/ |
Upload File : |
<html>
<head>
<title>RCN ASPMail.asp Example</title>
</head>
<body bgcolor="white"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>
<table border="0" width="100%" cellpadding="0" cellspacing="0" bgcolor="#000000">
<tr>
<td width="50%"><img src="../images/nthost.jpg" alt="nthost.jpg (4240 bytes)" width="220" height="60"></td>
<td width="50%"><img src="../images/rcnlogo.gif" alt="rcnlogo.gif (2840 bytes)" align="right" width="223" height="85"></td>
</tr>
</table>
</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top" width="1%">
<p>
<a href="../faq.htm"><font size="3">FAQ</font></a>
</p>
<p>
<a href="../features.htm">Features</a>
</p>
<p>
<a href="../Forms.htm"><font size="3">Forms</font></a>
</p>
<p>
<a href="http://www.rcn.com/business/hosting/compare.php">Products</a>
</p>
<p>
<a href="../suggest.htm">Customer Support -- Suggestions</a>
</p>
</td><td valign="top" width="24"></td><!--msnavigation--><td valign="top">
<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("recipient"), Request.Form("recipient")
Mailer.Subject = "Form Submission"
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 "Form information submitted..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>
<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>
<hr>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="50%"><font face="Verdana" size="1">Copyright � 1999 RCN, Inc. All rights
reserved.<br>
Last modified: Tuesday August 06, 2002.</font></td>
<td width="50%"><p align="center"><img src="../images/rcnetal.gif" alt="rcnetal.gif (4129 bytes)" width="315" height="49"></td>
</tr>
</table>
</td></tr><!--msnavigation--></table></body>
</html>