<%@ Language="VBScript"%>
<%
str2show = "Please use the form below to contact London-taxi"
strEmail = Trim(Request.Form("txtEmail"))
If strEmail <> "" Then
' Obtain all form vars
strFname = Trim(Request.Form("txtFirstname"))
strSname = Trim(Request.Form("txtLastname"))
strCity = Trim(Request.Form("txtCity"))
strCountry = Trim(Request.Form("txtCountry"))
strComments = Trim(Request.Form("txtComments"))
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 feedback form. " & vbCrLf
sMessageText = sMessageText & "Best Regards" & vbCrLf & vbCrLf
sMessageText = sMessageText & "Jamie Owens" & 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 = "feedback@london-taxi.co.uk"
Mailer.AddRecipient strFname & " " & strSname, strEmail
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
Set Mailer = Nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.london-taxi.co.uk"
'-- Set Message Body
sMessageText = "Hello Jamie," & vbCrLf & vbCrLf
sMessageText = sMessageText & "This person has requested further info from the london-taxi.co.uk site!" & vbCrLf & vbCrLf
sMessageText = sMessageText & "Email Address: " & strEmail & vbCrlf
sMessageText = sMessageText & "First Name: " & strFname & vbCrlf
sMessageText = sMessageText & "Surname: " & strSname & vbCrlf
sMessageText = sMessageText & "City: " & strCity & vbCrlf
sMessageText = sMessageText & "Country: " & strCountry & vbCrlf
sMessageText = sMessageText & "Comments: " & 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 = "feedback@london-taxi.co.uk"
Mailer.AddRecipient "Jamie" , "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 form."
Call ReturnPage(str2show)
Else
%>
Feedback
<%
End If
' Page to return
Sub ReturnPage(retStr)
Response.Write("London-Taxi Feedback") & vbCrlf
Response.Write("") & vbCrlf
Response.Write("
London-Taxi
") & vbCrlf
Response.Write("" & retStr & "
") & vbCrlf
Response.Write("
") & vbCrlf
Response.Write("
") & vbCrlf
End Sub 'ReturnPage(retStr)
%>