<%@ Language="VBScript"%>
<%
str2show = "Please use the form below to contact London-taxi"
strEmail = Trim(Request.Form("txtEmail"))
If strEmail <> "" Then
' Obtain all form vars
strName = Trim(Request.Form("txtName"))
strCompany = Trim(Request.Form("txtCompany"))
strEmail = Trim(Request.Form("txtEmail"))
strAddress = Trim(Request.Form("txtAddress"))
strDetails = Trim(Request.Form("txtDetails"))
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.london-taxi.co.uk"
'-- Set Message Body
sMessageText = "Hello " & strFname & "," & vbCrLf & vbCrLf
sMessageText = sMessageText & "Thankyou for completing the London-taxi.co.uk advertising form, you will recieve some information in 2-3 days. " & vbCrLf
sMessageText = sMessageText & "Best Regards" & vbCrLf & vbCrLf
sMessageText = sMessageText & "Jamie" & vbCrLf
sMessageText = sMessageText & "jamie@london-taxi.co.uk" & vbCrLf
sMessageText = sMessageText & "http://www.london-taxi.co.uk" & vbCrLf
Mailer.FromName = "london-taxi web site"
Mailer.FromAddress = "jamie@london-taxi.co.uk"
Mailer.AddRecipient strFname & " " & strSname, strEmail
Mailer.Subject = "london-taxi.co.uk advertising Enquiry!"
Mailer.BodyText = sMessageText
if not Mailer.SendMail then
Response.Write " Mailing Failed... Error is:
"
Response.Write Mailer.Response
end if
Set Mailer = Nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.london-taxi.co.uk"
'-- Set Message Body
sMessageText = "Hello Nicole," & vbCrLf & vbCrLf
sMessageText = sMessageText & "This person has requested further info from the london-taxi.co.uk site! for advertising on London Taxis." & vbCrLf & vbCrLf
sMessageText = sMessageText & "Email Address: " & strEmail & vbCrlf
sMessageText = sMessageText & "Name: " & strFname & vbCrlf
sMessageText = sMessageText & "Company Name: " & strSname & vbCrlf
sMessageText = sMessageText & "Address: " & strCity & vbCrlf
sMessageText = sMessageText & "Tel No: " & strCountry & vbCrlf
sMessageText = sMessageText & "Details: " & strComments & vbCrlf & vbCrlf
sMessageText = sMessageText & "Regards" & vbCrlf & vbCrlf
sMessageText = sMessageText & vbCrlf & vbCrLf
sMessageText = sMessageText & "Jamie" & vbCrLf
sMessageText = sMessageText & "jamie@london-taxi.co.uk" & vbCrLf
sMessageText = sMessageText & "http://www.london-taxi.co.uk" & vbCrLf
Mailer.FromName = "london-taxi web site"
Mailer.FromAddress = "jamie@london-taxi.co.uk"
Mailer.AddRecipient "Nicole" , "jamie@london-taxi.co.uk"
Mailer.Subject = "london-taxi.co.uk Enquiry!"
Mailer.BodyText = sMessageText
If not Mailer.SendMail then
Response.Write " Mailing Failed... Error is:
"
Response.Write Mailer.Response
End If
'-- Destroy the Object
Set Mailer = Nothing
str2show = "Thanks " & strFname & " " & strSname & " for completing the London-taxi.co.uk advertising form."
Call ReturnPage(str2show)
Else
%>
Advertising
in association with
If you would like some information on advertising on London's Taxi's then
please complete the form below;
<%
End If
' Page to return
Sub ReturnPage(retStr)
Response.Write("London-Taxi Advertising") & vbCrlf
Response.Write("") & vbCrlf
Response.Write("
London-Taxi
") & vbCrlf
Response.Write("" & retStr & "
") & vbCrlf
Response.Write("
") & vbCrlf
Response.Write("
") & vbCrlf
End Sub 'ReturnPage(retStr)
%>