% 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 %>
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.