<% Sub SendRegistration Dim strBody sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress = "" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.thebarat.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webform@thebarat.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mv2zQm$84gMm.=2x" .Update End With Set cdoMessage = CreateObject("CDO.Message") strBody = strBody & "Dear Sir/Madam," & VbCrLf & VbCrLf & "You have received an Enquiry Form from the Lambo Move " & VbCrLf & VbCrLf strBody = strBody & " First Name: " & Request.Form("name") & VbCrLf strBody = strBody & " Last Name: " & Request.Form("last") & VbCrLf strBody = strBody & " Contact No : " & Request.Form("number") & VbCrLf strBody = strBody & " Email : " & Request.Form("email") & VbCrLf strBody = strBody & " Type (Rider / Customer) : " & Request.Form("type") & VbCrLf strBody = strBody & " IP :" & sIPAddress & VbCrLf & VbCrLf & VbCrLf strBody = strBody & "THANK YOU " With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("email") .To = " info@Lamboplace.com" .Subject = "LamboMove Sign up Form" .TextBody = strBody .Send End With Set cdoMessage = Nothing End Sub Function TestCaptcha(ByVal valSession, ByVal valCaptcha) Dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) If (valSession = vbNullString) Or (valCaptcha = vbNullString) Then TestCaptcha = False Else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString If valSession = vbNullString Then TestCaptcha = False Else valCaptcha = Replace(valCaptcha,"i","I") If StrComp(valSession,valCaptcha,1) = 0 Then TestCaptcha = True Else TestCaptcha = False End If End If End If End Function %> Lambo Move

Visit the FAQ page or fill up the form to get in touch! Our team will reply you within one working day from Monday to Saturday, 9am to 10pm.

<% If Request("submit") <> "" Then If TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) Then SendRegistration Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" Response.Write "" End If Else %>

The form is successfully submitted, our sales department will contact you soonest possible.

Invalid Security Code, Click here back to contact us page.

Thank you for visiting our website. Please fill in the contact form below and let us know if you have any additional questions or concerns.

First Name: *
Last Name: *
Contact No:
Email: *
Type:
Captcha Code: *
  Change Images