|
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/bruceweb/home/asp/ |
Upload File : |
<html>
<head>
<title>Confirmation</title>
<meta name="Microsoft Theme" content="acco 011, default"><meta name="Microsoft Border" content="tlb, default"></head>
<body background="../_themes/acco/accobg2.gif" bgcolor="#FFFFFF" text="#AD6503" link="#3399FF" vlink="#3366CC" alink="#FF9900"><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="verdana, arial, helvetica">
<p><img src="../images/logo2.gif" alt="logo2.gif (4628 bytes)" align="top" WIDTH="242" HEIGHT="131"><img src="_derived/confirma.asp_cmp_acco010_bnr.gif" width="453" height="60" border="0" alt="Confirmation">
<br>
</p>
<!--mstheme--></font></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td valign="top" width="1%"><!--mstheme--><font face="verdana, arial, helvetica">
<p> <script language="JavaScript"><!--
MSFPhover =
(((navigator.appName == "Netscape") &&
(parseInt(navigator.appVersion) >= 3 )) ||
((navigator.appName == "Microsoft Internet Explorer") &&
(parseInt(navigator.appVersion) >= 4 )));
function MSFPpreload(img)
{
var a=new Image(); a.src=img; return a;
}
// --></script><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload('../_derived/home_cmp_acco010_hbtn.gif'); MSFPnav1h=MSFPpreload('../_derived/home_cmp_acco010_hbtn_a.gif'); }
// --></script><a href="../" onmouseover="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src" onmouseout="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src"><img src="../_derived/home_cmp_acco010_hbtn.gif" width="140" height="60" border="0" alt="Home" align="middle" name="MSFPnav1"></a></p>
<!--mstheme--></font></td><td valign="top" width="24"></td><!--msnavigation--><td valign="top"><!--mstheme--><font face="verdana, arial, helvetica">
<% Dim myMail
Set myMail = Server.CreateObject("Persits.MailSender") %>
<%
strMessage = "The following feedback was received via the Internet at " & FormatDateTime(Now(), vbShortTime) & " on " & FormatDateTime(Now(), vbShortdate) & vbCrLf
strMessage = strMessage & "==================================" & vbCrLf & vbCrLf
strMessage = strMessage & "Name:" & Request.Form("username") & vbCrLf
strMessage = strMessage & "Company:" & Request.Form("Company") & vbCrLf & vbCrLf
strMessage = strMessage & "Category: " & Request.Form("Category") & vbCrLf
strMessage = strMessage & "OtherCategory: " & Request.Form("OtherCategory") & vbCrLf & vbCrLf
strMessage = strMessage & "Address 1: " & Request.Form("Add1") & vbCrLf
strMessage = strMessage & "Address 2: " & Request.Form("Add2") & vbCrLf
strMessage = strMessage & "City: " & Request.Form("City") & vbCrLf
strMessage = strMessage & "State: " & Request.Form("State") & vbCrLf
strMessage = strMessage & "Zip Code: " & Request.Form("Zip") & vbCrLf
strMessage = strMessage & "Phone: " & Request.Form("usertel") & vbCrLf
strMessage = strMessage & "Fax: " & Request.Form("userFax") & vbCrLf
strMessage = strMessage & "E-Mail Address: " & Request.Form("EMail") & vbCrLf & vbCrLf
strMessage = strMessage & "Comments: " & Request.Form("Comments") & vbCrLf & vbCrLf
strMessage = strMessage & "Contact Me Now!: " & Request.Form("contactrequested") & vbCrLf & vbCrLf
strMessage = strMessage & "==================================" & vbCrLf & vbCrLf
strMessage = strMessage & "Remote Address: " & Request.ServerVariables("REMOTE_ADDR") & vbCrLf
strMessage = strMessage & "Browser Type: " & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf
%>
<%
myMail.Host = "mail.enteract.com"
myMail.From = Request.Form("Email")
myMail.FromName = Request.Form("username")
' Test Address Below
myMail.AddAddress "[email protected]"
' myMail.AddAddress "[email protected]"
myMail.AddReplyTo Request.Form("Email")
myMail.Subject = "On-Line Information Request"
myMail.Body = strMessage
On Error Resume Next
myMail.Send
%>
<% If Err = 0 Then %>
<br><br><br><br><br>
<b><font SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT"> Thank You For Your Feedback!</font></b>
<!--mstheme--></font></td>
</tr>
</table><!--mstheme--><font face="verdana, arial, helvetica">
<% Else %>
Mail was not sent, error message is <%=Err.Description%>
<!--mstheme--></font></td>
</tr>
</table><!--mstheme--><font face="verdana, arial, helvetica">
<%= result %>
<% End If %>
<!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="verdana, arial, helvetica">
<p align="center"> </p>
<h4 align="center"><!--mstheme--><font face="times new roman, times new roman, times" color="#000000"><nobr>[ <a href="../">Home</a> ]</nobr> <nobr>[ <a href="../contactus.htm">Up</a> ]</nobr><!--mstheme--></font></h4>
<h5 align="center"><!--mstheme--><font face="times new roman, times new roman, times" color="#3399FF"><br>
<font size="2"> For more information e-mail us at: <a href="mailto:[email protected]">[email protected]</a> or call 847-945-2142</font><br>
Copyright � 1999 Accountingco, L.L.C.<!--mstheme--></font></h5>
<!--mstheme--></font></td></tr><!--msnavigation--></table></body>
</html>