File: D:/web archive/conferencesearch (old) (to delete)/old/email.asp
<HTML> <HEAD>
<TITLE>Conference Search Ltd - Conference Organisers, U.K. & Overseas</TITLE>
<link rel="stylesheet" href="conference-organisers.css">
</HEAD>
<BODY background="conference-organisers_images/backmain.gif" text=000000 link="#669966" vlink="#000000">
<table width=698 cellpadding=0 cellspacing="0">
<tr>
<td width="35" rowspan="5"><img
src="conference-organisers_images/spaceyg.gif" width=35 height=8></td>
<td valign=top colspan="3" rowspan="5" align="center">
<p align="left"> <br>
<p><font size="6" face="Times New Roman"><font size="5"><font face="Times New Roman" color="663333"><img src="conference-organisers_images/conference-search-small-logo.gif" width="162" height="91" alt="Conference Search "></font></font></font>
<p>
<p><b><font face="Times New Roman, Times, serif">Thank You for your input
you form has been sent</font></b><font face="Times New Roman, Times, serif"><br>
Your enquiries will be dealt with promptly</font>
<p>
<p><br>
<img src="conference-organisers_images/shim.gif" width="346" height="2">
</td>
<tr>
<tr>
<tr>
<tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p><MAP NAME="man1"> <AREA SHAPE="rect" COORDS="2,1,186,13" HREF="venue-finding-service.html" target="_top">
<AREA SHAPE="rect" COORDS="2,43,140,55" HREF="event-management.html" target="_top">
<AREA SHAPE="rect" COORDS="2,62,226,74" HREF="incoming-conferences-to-the-UK.html" target="_top">
<AREA SHAPE="rect" COORDS="2,82,125,96" HREF="incentive-events.html" target="_top">
</map> <MAP NAME="man2"> <AREA SHAPE="rect" COORDS="183,33,217,46" HREF="index.html" target="_top">
<AREA SHAPE="rect" COORDS="180,52,219,63" HREF="contact.asp" target="_top">
</map> </p>
<p><br>
</p>
<table width="691" border="0" cellspacing="0" cellpadding="0" class="foot">
<tr>
<td width="43"> </td>
<td width="659" height="30" valign="top" align="center">Contact our <b><a href="conference-production-service.htm">Conference
Organisers</a></b> at <a href="mailto:sales@conferencesearch.co.uk">sales@conferencesearch.co.uk</a>
for all your UK.& overseas events & conferences </td>
</tr>
<tr>
<td width="43"> </td>
<td width="659">
<div align="center"><font face="Times New Roman"> <a href="index.htm#conference-organisers" class="none">Home</a>
| <a href="venue-finding-service.htm" class="none">venue finding
service</a> | <a href="conference-production-service.htm" class="none">conference
production</a> | <a href="delegate-registration.htm" class="none">delegate
registration</a> | <a href="event-management.htm" class="none">event
management</a> <br>
<a href="incoming-conferences-to-the-UK.htm" class="none">incoming
conferences to the UK</a> | <a href="incentive-events.htm" class="none">incentive
events</a> | <a href="expertise.htm" class="none">expertise</a>
| <a href="venue-finding-benefits.htm" class="none">venue finding
benefits</a> | <a href="conference-venues-uk.htm" class="none">conference
venues</a> | <a href="links.htm" class="none">links</a>
| <a href="contact.asp" class="none">contact</a></font></div>
</td>
</tr>
</table>
<span class="foot"></span>
<table width="691" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="58" rowspan="2"> </td>
<td rowspan="2" class="foot" height="10" width="633">
<p><br>
Conference Organisers & Conference Venues: <br>
London, West Midlands, East Midlands, Edinburgh, Glasgow, Yorkshire, Cheshire
& all over the UK</p>
</td>
</tr>
<tr> </tr>
</table>
<%
' (SS,27/11/03) Added check for Telephone to stop blank emails being sent
' also changed "Title" to "JobTitle" and corrected "01FirstName" to "FirstName"
If Trim(Request.Form("Telephone")) <> "" Then
Dim NL
NL = 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 "sales@conferencesearch.co.uk"
objEmail.FromAddress = "webform@conferencesearch.co.uk"
objEmail.Subject = "Contact Form"
objEmail.Body = "Firstname: " + Request.Form("Firstname") & NL &_
"Surname : " + Request.Form("Surname") & NL &_
"Job Title: " + Request.Form("JobTitle") & NL &_
"Company : " + Request.Form("Company") & NL &_
"Address : " + Request.Form("Address") & NL &_
"Postcode : " + Request.Form("Postcode") & NL &_
"Telephone: " + Request.Form("Telephone") & NL &_
"Fax : " + Request.Form("Fax") & NL &_
"Email : " + Request.Form("Email") & NL &_
"Comments : " + Request.Form("Comments")
'send email
objEmail.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here
Set objEmail = Nothing
Else
Response.Write("<br><br><strong>No enquiry sent. Telephone number missing. Please go back and correct.</strong><br>")
End If
%>
</BODY> </HTML>