|
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/mguerinweb/cgi-bin/ |
Upload File : |
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Guerin Associates Inc. Services</title>
<link rel="stylesheet" href="/styles.css">
</head>
<body leftmargin="0" bgcolor="#f4f5f7" link="#0066CC" vlink="#0066CC" alink="#0066CC">
<table border=0 align=center height=84 cellspacing=0 cellpadding=0 width=800>
<tr>
<td><img src="images/clear_dot.gif" width=35 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=78 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=78 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=96 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=130 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=120 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=130 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=100 height=1 border=0></td>
<td><img src="images/clear_dot.gif" width=30 height=1 border=0></td>
</tr>
<tr>
<td align=center colspan=9><img src="images/NavTop.gif" height=70 width=800></td>
</tr>
<tr height=21 bgcolor="#000000">
<td align="left"><img src="images/NavBar_Left.gif" width=10 height=21 border=0 alt=""></td>
<td align="center"><a href="index.html" class="nav">Home</a></td>
<td align="center"><a href="News.html" class="nav">News</a></td>
<td align="center"><a href="Services.html" class="nav">Services</a></td>
<td align="center"><a href="CaseStudies.html" class="nav">Case Studies</a></td>
<td align="center"><a href="Publications.html" class="nav">Publications</a></td>
<td align="center"><a href="E-Benchmark.html" class="nav">E-Benchmark</a></td>
<td align="center"><a href="mailto:[email protected]" class="nav">Contact Us</a></td>
<td align="right"><img src="images/NavBar_Right.gif" width="10" height="21" border=0 alt=""></a></td>
</tr>
<tr>
<td height="20" colspan="9"><img src="images/clear_dot.gif" width="1" height="1"></td>
</tr>
</table>
<table border="0" width="600" height="60" align=center>
<tr>
<td align="center" height="30" valign=bottom>
<u><b><font face="Garamond" color="#0066CC"><font size=6>B</font><font size=5> E S T </font><font size=6>P</font><font size=5> R A C T I C E </font><font size=6>S</font><font size=5> H A R E</font></font></b></u>
</td>
</tr>
<tr>
<td align="center" height="30" valign=top>
<b><font face="Garamond" color="#0066CC" size="4">Guerin Associates Inc.</font></b>
</td>
</tr>
</table>
<%
' - Instantiate the SMTP mailer object
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
' - Get the internal version number
' strVer = Mailer.Version
' - Set the FromName and FromAddress
' - WARNING: These are REQUIRED FIELDS
Mailer.FromName = Request.Form("realname")
Mailer.FromAddress = Request.Form("email")
' - Set the Remote Host (SMTP) Host
strMailHost = "smtp.rcn.com"
' if strMailHost = "mailhost.xyz.com" then
'Response.Write "<h2 align=center>Error: You need to change the mailhost to your SMTP server address</h2>"
'end if
Mailer.RemoteHost = strMailHost
' ------------------------------------
' - Set the recipient's address
' - that this message will go to
' ------------------------------------
Mailer.AddRecipient "GA", "[email protected]"
' - Set the Carbon Copy addresses
' Mailer.AddCC "Steve", "[email protected]"
' - Set the Blind Carbon Copy addresses
' Mailer.AddBCC "George Higgins", "[email protected]"
' - Set the ReturnReceipt flag
' - If this is set to true AND the
' - recipients SMTP server supports
' - this feature (and it is enabled)
' - the recipients SMTP server will
' - send a notice back to the FromAddress
' - confirming that this email has been
' - delivered.
Mailer.ReturnReceipt = false
' - Set the ConfirmReading flag
' - If this is set to true AND the
' - recipients email program supports
' - this feature (and it is enabled)
' - the recipients email program will
' - send a notice back to the FromAddress
' - confirming that this email has been
' - read.
Mailer.ConfirmRead = false
' - Set the subject line
Mailer.Subject = Request.Form("subject")
' - Set the message body text
' - To optionally clear the text once
' - you have set it use the ClearBodyText
' - method (e.g. Mailer.ClearBodyText
strMsgHeader = "Form Information Follows: " & vbCrLf
for i = 1 to Request.Form.Count
strMsgInfo = strMsgInfo & Request.Form.Key(i) & " - " & Request.Form.Item(i) & vbCrLf
next
strMsgFooter = vbCrLf & "End of form information"
Mailer.ClearBodyText
Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter
' - Clear the attachments and add a
' - couple of files. Make sure that
' - the IUSR_XYZ IIS user has security
' - rights that allow the component
' - to read the necessary files!
' - (optional)
' - Attachments are not supported in
' - the eval version
' ------------------------------------
' Mailer.ClearAttachments
' Mailer.AddAttachment "c:\autoexec.bat"
' Mailer.AddAttachment "c:\config.sys"
' - Set the encoding type (default is MIME)
' - 1 = UUEncoded
' - 2 = MIME
' - (optional)
' ------------------------------------
' Mailer.Encoding = 2
' - If you need to debug the session
' - give a log file name here. Make
' - sure the IUSR_XYZ IIS user has
' - security that allows the component
' - to write to this file
' - (optional)
' -
' - *** WARNING *** *** WARNING ***
' - do not use this setting in situations
' - where multiple users can acess this
' - component at the same time. This is
' - for single user debugging ONLY!
' - *** WARNING *** *** WARNING ***
' ------------------------------------
' Mailer.SMTPLog = "c:\smtp.log"
' ------------------------------------
' - Set priority and if message is
' - urgent. Prioritys are 1, 3, 5 and
' - are reflected in the X-Priority
' - header
' - 1 = High, 3 = Normal, 5 = Low
' - (optional)
' ------------------------------------
' Mailer.Priority = 1
' Mailer.Urgent = false
' ------------------------------------
' - Set the character set
' - By default the char set is US Ascii
' -
' - Valid values:
' - 1 = US Ascii
' - 2 = ISO-8859-1
' ------------------------------------
' Mailer.CharSet = 1
' ------------------------------------
' - Set the TimeOut
' Default timeout is 60
' ------------------------------------
' Mailer.Timeout = 30
' ------------------------------------
' - Send the message
' ------------------------------------
' SendMail returns a true or false
' success result you can optionally
' test for
if Mailer.SendMail then
Response.Write "<table border=0 align=center width=400><tr><td align=center><br><br>Mail sent...</td></tr>"
Response.Write "<tr><td align=center><p><b><font size=3 face='arial'><i>Thank You!</i></font></b>"
Response.Write "<p> Thank you for participating in this <font color='#0066CC' face='Garamond' size=3><i><u><b> BestPracticeShare</b></u></i></font>"
Response.Write " project. We will contact you with any questions or clarifications. <p>If you have any questions, you may contact our office by phone at"
Response.Write " 908-903-9070. You can also reach us by e-mail at "
Response.Write "<A href='mailto:[email protected]'><u><font color='#0066CC'>[email protected]</font></u></A>.</td></tr></table>"
else
Response.Write "<table border=0 align=center width=400><tr><td align=center>"
Response.Write "<br>Mail failure. Check mail host server name and tcp/ip connection...<br>"
Response.Write Mailer.Response
Response.Write "</td></tr></table>"
end if
%>
<table width=400 align=center>
<tr><td height="45"><img src="/images/clear_dot.gif" width="1" height="1"></td></tr>
<tr>
<td width="400" height="16" align=center><font color="#0066CC"><i>Copyright 2001. For more information, please call Guerin
Associates at <b>908-903-9070</b><i> or <A href="mailto:[email protected]">
<u>[email protected]</u>.</A></i></I>
</font>
</td>
</tr>
</table>
</body>
</html>