|
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/efusion1/RCNRestored/ |
Upload File : |
<% @language = vbscript %>
<%
option explicit
'response.expires = 0
' Grab the values from the form
Dim recipient, listserv, subject
Dim WebsiteComment, EvisoryComment, Subscriber, EvisoryComment_Text, WebsiteComment_Text
Dim FirstName, LastName, Title, FirmName, BizPhone, Email, Submit
recipient = "[email protected]"
listserv = "[email protected]"
subject = ""
WebsiteComment = Request.Form("WebsiteComment")
EvisoryComment = Request.Form("EvisoryComment")
Subscriber = Request.Form("Subscriber")
EvisoryComment_Text = Request.Form("EvisoryComment_Text")
WebsiteComment_Text = Request.Form("WebsiteComment_Text")
FirstName = Request.Form("FirstName")
LastName = Request.Form("LastName")
Title = Request.Form("Title")
FirmName = Request.Form("FirmName")
BizPhone = Request.Form("BizPhone")
Email = Request.Form("Email")
Submit = Request.Form("Submit")
If Submit <> "" Then 'fire off the email and later show thank you message
End If
%>
<html>
<head>
<title>FUSION Web Site</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" href="fusion.css" type="text/css" />
<script language="JavaScript" src="includes/global_code.js" type="text/javascript"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/sidenav_home_on.gif','images/sidenav_capabilities_on.gif','images/sidenav_answerplans_on.gif','images/sidenav_clients_on.gif','images/sidenav_resources_on.gif','images/sidenav_contactus_on.gif','images/sidenav_evisory_on.gif','images/sidenav_links_on.gif')">
<a name="top"></a>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"><img src="images/logo.gif" width="140" height="55" alt="Fusion" /></td>
<td background="images/header_background.gif">
<div align="right"><img src="images/tagline2.gif" width="460" height="51" alt="Helping education companies teach better and sell more." /><img src="images/header_right2.gif" border="0" alt="" width="30" height="55" /></div>
</td>
</tr>
<tr>
<td valign="top" bgcolor="#FFFFFF"><img src="images/spacer.gif" alt="" border="0" width="1" height="1" /></td>
<td rowspan="2" valign="top">
<table width="485" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="3" valign="top"><img src="images/spacer.gif" width="25" height="1" alt="" /></td>
<td valign="top"><img src="images/spacer.gif" width="1" height="26" alt="" /><img src="images/spacer.gif" width="460" height="1" alt="" /></td>
</tr>
<tr>
<td>
<%
If Submit = "" Then 'the form wasnt submitted so display it
%>
<form name="ContactForm" method=POST action="<% Response.write request.servervariables("SCRIPT_NAME") %>">
<table border="0" cellpadding="8" cellspacing="2" width="233">
<tr>
<td>
<p><span class="cred">FUSION</span><br>
<span class="default">31 Atkinson Lane<br>
Sudbury, MA 01776<br>
PH: (978)443-5943<br>
FX: (978)443-0945<br>
<a href="mailto:[email protected]">[email protected]</a></span>
</p>
</td>
</tr>
</table>
<table border="0" cellpadding="2" cellspacing="2" width="100">
<tr>
<td valign="top">
<input type="checkbox" value="yes" name="Subscriber">
</td>
<td>
<p><b>Sign me up for a free subscription</b> to Training Business
E-Visory™! It is understood that my subscriber information
will be kept confidential. (Please fill out and submit form
below.)</p>
</td>
</tr>
<tr>
<td valign="top" colspan="2"><img src="images/spacer.gif" alt="" border="0" width="1" height="5" /></td>
</tr>
<tr>
<td valign="top">
<input type="checkbox" value="yes" name="EvisoryComment">
</td>
<td>
<p><b>Below are my comments </b> on a recent issue of Training
Business E-Visory™, your Web Site, or my suggestions
for a future E-Visory topic.</p>
</td>
</tr>
<tr>
<td> </td>
<td>
<textarea cols="40" name="EvisoryComment_Text" rows="4" style="HEIGHT: 70px; WIDTH: 300px"></textarea>
</td>
</tr>
<tr>
<td colspan="2"><img src="images/spacer.gif" alt="" border="0" width="1" height="5" /></td>
</tr>
<tr>
<td valign="top">
<input type="checkbox" value="yes" name="WebsiteComment">
</td>
<td>
<p><b>Contact me</b> to arrange a preliminary consultation,without
fee or obligation. (Add details if desired.)</p>
</td>
</tr>
<tr>
<td> </td>
<td>
<textarea cols="40" name="WebsiteComment_Text" rows="4" style="HEIGHT: 70px; WIDTH: 300px"></textarea>
</td>
</tr>
</table>
<table border="0" cellpadding="2" cellspacing="2">
<tr>
<td colspan="2" NOWRAP align="right"> </td>
</tr>
<tr>
<td width="116" NOWRAP align="right">
<p>First Name </p>
</td>
<td width="157">
<input name="FirstName" size="24" type="text">
</td>
</tr>
<tr>
<td width="116" align="right">
<p>Last Name </p>
</td>
<td width="157">
<input name="LastName" size="24" type="text">
</td>
</tr>
<tr>
<td width="116" align="right">
<p>Title </p>
</td>
<td width="157">
<input name="Title" size="24" type="text">
</td>
</tr>
<tr>
<td width="116" align="right">
<p>Firm </p>
</td>
<td width="157">
<input name="FirmName" size="24" type="text">
</td>
</tr>
<tr>
<td width="116" align="right">
<p>Business Phone </p>
</td>
<td width="157">
<input name="BizPhone" size="24" type="text">
</td>
</tr>
<tr>
<td width="116" align="right">
<p>E-mail Address </p>
</td>
<td width="157">
<input name="Email" size="24" type="text">
</td>
</tr>
<tr>
<td width="116"> </td>
<td align="center" width="157">
<input name="Submit" type="submit" value="Submit">
</td>
</tr>
</table>
<img src="images/spacer.gif" alt="" border="0" width="1" height="5" />
</form>
<%
Else 'the form was submitted so show thank you
Dim Mailer, strMessage, strSubject
If Subscriber = "yes" Then 'they want the E-Visory so subscribe to list
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = Email
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "", listserv
Mailer.Subject = ""
Mailer.BodyText = "SUBSCRIBE E-VISORY " & FirstName & " " & LastName
Mailer.SendMail
End If
If EvisoryComment_Text <> "" Then 'something was typed into the comments box (Im ignoring the chechbox since this is more important
strMessage = "Many thanks for submitting your comments and suggestions" & vbCrLf
strMessage = strMessage & "during a recent visit to our FUSION WebSite. We'll do our" & vbCrLf
strMessage = strMessage & "best to make the most of them!" & vbCrLf
strMessage = strMessage & "" & vbCrLf
strMessage = strMessage & "Sincerely," & vbCrLf
strMessage = strMessage & "" & vbCrLf
strMessage = strMessage & "Ed Shineman" & vbCrLf
strMessage = strMessage & "Principal" & vbCrLf
strMessage = strMessage & "FUSION" & vbCrLf
strMessage = strMessage & "" & vbCrLf
strMessage = strMessage & """Helping education companies teach better and sell more.""" & vbCrLf
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = recipient
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "", Email
Mailer.Subject = "Mail from Web Site"
Mailer.BodyText = strMessage
Mailer.SendMail
End If
If WebsiteComment_Text <> "" Then 'something was typed into the contact me box (Im ignoring the chechbox since this is more important
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = recipient
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "", Email
strSubject = "Mail from Web Site"
strMessage = "Many thanks for expressing an interest in our services" & vbCrLf
strMessage = strMessage & "during a recent visit to our WebSite. We'll be in touch" & vbCrLf
strMessage = strMessage & "with you just as soon as we can." & vbCrLf
strMessage = strMessage & "" & vbCrLf
strMessage = strMessage & "Sincerely," & vbCrLf
strMessage = strMessage & "" & vbCrLf
strMessage = strMessage & "Ed Shineman" & vbCrLf
strMessage = strMessage & "Principal" & vbCrLf
strMessage = strMessage & "FUSION" & vbCrLf
strMessage = strMessage & "" & vbCrLf
strMessage = strMessage & """Helping education companies teach better and sell more.""" & vbCrLf
Mailer.Subject = strSubject
Mailer.BodyText = strMessage
Mailer.SendMail
End If
If Subscriber = "yes" Or EvisoryComment_Text <> "" Or WebsiteComment_Text <> "" Then 'They did any combination of the three so notify Ed
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromAddress = Email
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "", recipient
strSubject = "Mail from Web Site"
strMessage = "Listserve: " & listserv & vbCrLf
strMessage = strMessage & "Subscriber: " & Subscriber & vbCrLf
strMessage = strMessage & "EvisoryComment: " & EvisoryComment & vbCrLf
strMessage = strMessage & "EvisoryComment_Text: " & EvisoryComment_Text & vbCrLf
strMessage = strMessage & "WebsiteComment: " & WebsiteComment & vbCrLf
strMessage = strMessage & "WebsiteComment_Text: " & WebsiteComment_Text & vbCrLf
strMessage = strMessage & "FirstName:" & FirstName & vbCrLf
strMessage = strMessage & "LastName:" & LastName & vbCrLf
strMessage = strMessage & "Title:" & Title & vbCrLf
strMessage = strMessage & "FirmName:" & FirmName & vbCrLf
strMessage = strMessage & "BizPhone:" & BizPhone & vbCrLf
strMessage = strMessage & "email_addr:" & Email & vbCrLf
strMessage = strMessage & "Below are my comments:" & vbCrLf
Mailer.Subject = strSubject
Mailer.BodyText = strMessage
Mailer.SendMail
End If
%>
<p class="cred">FUSION</p>
<p>31 Atkinson Lane <br>
Sudbury, MA 01776 <br>
PH: (978)443-5943 <br>
FX: (978)443-0945 <br>
<a href="mailto:[email protected]">[email protected]
</a></p>
<p>Your request has been successfully submitted. <br>
A confirmation will be sent to the email address provided.</p>
<%
End If
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td valign="top">
<table width="140" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="index.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavHome','','images/sidenav_home_on.gif',1)"><img src="images/sidenav_home_off.gif" border="0" alt="Sell More Training & E-Learning, Here's How" width="140" height="34" name="SideNavHome"></a></td>
</tr>
<tr>
<td><a href="capabilities.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavCapabilities','','images/sidenav_capabilities_on.gif',1)"><img src="images/sidenav_capabilities_off.gif" border="0" alt="Capabilities" width="140" height="34" name="SideNavCapabilities"></a></td>
</tr>
<tr>
<td><a href="dialup.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavAnswerPlans','','images/sidenav_answerplans_on.gif',1)"><img src="images/sidenav_answerplans_off.gif" border="0" alt="Answer Plans" width="140" height="34" name="SideNavAnswerPlans"></a></td>
</tr>
<tr>
<td><a href="clients.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavClients','','images/sidenav_clients_on.gif',1)"><img src="images/sidenav_clients_off.gif" border="0" alt="E-Learning & Training Clients" width="140" height="34" name="SideNavClients"></a></td>
</tr>
<tr>
<td><a href="people.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavResources','','images/sidenav_resources_on.gif',1)"><img src="images/sidenav_resources_off.gif" border="0" alt="Resources" width="140" height="34" name="SideNavResources"></a></td>
</tr>
<tr>
<td><img src="images/sidenav_contactus_down.gif" border="0" alt="Contact Us" width="140" height="34" name="SideNavContactUs"></td>
</tr>
<tr>
<td><a href="evisory.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavEvisory','','images/sidenav_evisory_on.gif',1)"><img src="images/sidenav_evisory_off.gif" border="0" alt="E-Visory" width="140" height="34" name="SideNavEvisory"></a></td>
</tr>
<tr>
<td><a href="links.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('SideNavLinks','','images/sidenav_links_on.gif',1)"><img src="images/sidenav_links_off.gif" border="0" alt="E-Learning & Other Links" width="140" height="34" name="SideNavLinks"></a></td>
</tr>
<tr>
<td><img src="images/sidecrn.gif" width="140" height="12"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>