<% Sub SendRegistration sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress = "" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") Dim Mailer Set Mailer = Server.CreateObject("CDONTS.NewMail") Mailer.From = "info@Lamboplace.com" Mailer.To = " info@Lamboplace.com " Mailer.Subject = "LamboMove Sign Up Form" Mailer.Body = "Dear Sir/Madam," & VbCrLf & VbCrLf & "You have received an Sign up Form from the LamboMove" & 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 " Mailer.Send Set Mailer = 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 %>
<% 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 sign us page.
First Name: *
Last Name: *
Contact No:*
Email: *
Type:
<% End If %>
Change Images