File: D:/web/fastcomposites/email.asp
<html>
<head>
<title>Fast Composites - specialists in fast composite electric model planes</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
-->
</style>
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<link rel="stylesheet" href="fastcomp.css">
</head>
<body bgcolor="#FFFFFF" link="#000000" vlink="#000000" alink="#047D47" onLoad="MM_preloadImages('images/sliversmall_02.gif','images/swiftsmall_02.gif')" leftmargin="0" topmargin="0">
<%
Dim NL
NL = Chr(13) + Chr(10) + Chr(13) + Chr(10) ' *** may be a better way?
' send the email using Dundas Mailer Control
Dim objEmail 'Mailer control
Set objEmail = Server.CreateObject("Dundas.Mailer")
objEmail.SMTPRelayServers.Add "mail.itpartnership.com"
'set Mailer control properties and collection items
objEmail.TOs.Add "cdcampbell@ameritech.net"
objEmail.BCCs.Add "neil@itpartnership.com"
objEmail.FromAddress = "webform@fastcomposites.com"
objEmail.Subject = "Contact Form"
objEmail.Body = "Surname : " + Request.Form("Surname") & NL &_
"First Name : " + Request.Form("FirstName") & NL &_
"Title : " + Request.Form("Title") & NL &_
"Email : " + Request.Form("Email") & NL &_
"Comments : " + Request.Form("Comments") & NL
'send email
objEmail.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here
Set objEmail = Nothing
%>
<table width="752" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
<tr valign="top" bgcolor="#FBF5E5">
<td height="66">
<table width="752" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="368" valign="bottom" bgcolor="#FFFFFF"><img src="images/Logo-02.jpg" width="368" height="104"></td>
<td width="384" align="right" bgcolor="#FFFFFF"><img src="images/shim.gif" width="115" height="105" name="blank"></td>
</tr>
<tr>
<td background="images/menu-bkd-2.jpg" valign="top" height="40" class="menu" colspan="2"><img src="images/shim.gif" width="4" height="8"><br>
<a href="index.htm">Home</a>
<a href="sliver.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('blank','','images/sliversmall_02.gif',1)">Sliver</a> <a href="swift.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('blank','','images/swiftsmall_02.gif',1)">Swift
400</a> <a href="how-to-guide.htm">How
To guide</a> <a href="ordering.htm">Ordering</a> <a href="links.htm">Links</a> <a href="contact.htm">Contact</a>
</td>
</tr>
</table>
</td>
</tr>
<tr align="center" valign="top">
<td height="320" bgcolor="#FBF5E5" class="write">
<div align="center">
<p class="write" align="center"> </p>
<p class="write" align="center"><span class="heading"><font color="#000000">Thank
you for your enquiry</font></span></p>
<p class="write" align="center"><font color="#000000"><b>Your details
& comments have been sent.</b></font></p>
</div>
</td>
</tr>
<tr align="center" valign="top">
<td height="%" bgcolor="#FBF5E5" class="write"> </td>
</tr>
<tr bgcolor="#FBF5E5">
<td height="10">
<div align="center"><font color="#000000"><font color="#000000"><font size="2" color="#CC9900">Home
of the Sliver 400, the US Nationals winning S400 pylon racer, specialists
in fast composite electric model planes<b>.</b></font></font><font size="2" color="#CC9900"></font></font></div>
</td>
</tr>
<tr align="right">
<td background="images/btm02.jpg" height="33"><span class="btm"><a href="http://www.itpartnership.com" target="_blank"><span class="btm"><font color="#FBF5E5">Web
Site Design by itpartnership.com</font></span></a> </span></td>
</tr>
</table>
<div align="center"></div>
</body>
</html>