<% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LfPkfUSAAAAAFPbNaUAU2fFOcXlBosKnoFi5s19" ' your public key recaptcha_private_key = "6LfPkfUSAAAAAB4tPLKMWE7hP3CgieqzZBvH0WOK" ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = _ "" & _ "" & _ "" end function ' returns "" if correct, otherwise it returns the error response function recaptcha_confirm(rechallenge,reresponse) Dim VarString VarString = _ "privatekey=" & recaptcha_private_key & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString Dim ResponseString ResponseString = split(objXmlHttp.responseText, vblf) Set objXmlHttp = Nothing if ResponseString(0) = "true" then 'They answered correctly recaptcha_confirm = "" else 'They answered incorrectly recaptcha_confirm = ResponseString(1) end if end function server_response = "" newCaptcha = True if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field) newCaptcha = False end if %>
Menu
infra housing
Enquiry
<% if server_response <> "" or newCaptcha then %> <% if newCaptcha = False then %> Please re enter Captcha! <% end if %>
Name
:
*
e-Mail
:
*
Address
:
City
:
State
:
Country
:
Tel
:
*
Mob
:
*
Organization
:
Profession
:
Please send me details of
:
Infra Proxim
Infra Prosper
Infra Pinnacle
Infra Nouvelle
Infra Foreshore
Infra Futura
Comments (if any)
:
<%=recaptcha_challenge_writer()%>
s
s
<% else %> <% if Request("Submit")="Submit" then Set myMail=CreateObject("CDO.Message") myMail.Subject="Enquiry from " &replace (request("nme"),"'","''") myMail.From="sales@infrahousing.com" myMail.To="sales@infrahousing.com" myMail.HTMLBody = "
Dear Sir,
        I am interested in your project my details are given below
Name : " & Replace (Request("nme"),"'","''") &"
E-mail : " & Replace (Request("email"),"'","''") &"
Address : "& Replace (Request("address"),"'","''") & "
City : "& Replace (Request("city"),"'","''") & "
State : "& Replace (Request("state"),"'","''") & "
Country : "& Replace (Request("country"),"'","''") & "
Tel : "& Replace (Request("phone"),"'","''") & "
Mob : "& Replace (Request("mob"),"'","''") & "
Organization : "& Replace (Request ("organization"),"'","''") & "
Profession : "& Replace ( Request("profession"),"'","''") & "
Please send me details of

"& Replace ( Request("Infra Promina"),"'","''") & "
"& Replace ( Request("Infra Woodwinds"),"'","''") & "
"& Replace ( Request("Infra Proxim"),"'","''") & "
"& Replace ( Request("Infra Prosper"),"'","''") & "
"& Replace ( Request("Infra Pinnacle"),"'","''") & "
"& Replace ( Request("Verandah Gardens"),"'","''") & "
"& Replace ( Request("Infra Nouvelle"),"'","''") & "
"& Replace ( Request("Infra Foreshore"),"'","''") & "
"& Replace ( Request("Infra Futura"),"'","''") & "

Comments : "&Replace (Request("comments"),"'","''") & "
   
Regards,
" & Replace (Request("nme"),"'","''")&"
" on error resume next myMail.Send if err.number=0 then Response.write("Thank You " & Request("nme") & "! , your request has been sent successfully..") 'To the enquiry member '----------------------------------------------------------- Set myMail=CreateObject("CDO.Message") myMail.Subject="Thank You " & replace (request("nme"),"'","''") myMail.From="sales@infrahousing.com" myMail.To=replace (request("email"),"'","''") myMail.HTMLBody = "
Dear " & Replace (Request("nme"),"'","''")&"
Thank you for your interest in our projects. Your mail has been received by our Sales Dept. We will contact you soon.
Regards,
INFRA HOUSING PVT. LTD.
CLS BUILDING, M G ROAD
COCHIN - 6820 11, KERALA, INDIA
Mob: +91 99 473 11 111
Office + 91 484 238 38 66
Fax: + 91 484 237 02 61
e-mail:sales@infrahousing.com
www.infrahousing.com
" on error resume next myMail.Send '---------------------------------------------------------- else Response.write("Error:" & err.description & " ") end if set Mymail=nothing End if %> <%end if%>

tag heuer archive rolex geneve swiss made 18k 750 price 78488 prix replica watch breitling tourbillon price radiomir panerai replica watch tag heuer cah1110 battery mother of pearl rolex mens uk replica watches tag heuer link bracelet breitling superocean a17364 review swiss replica watches

  • INFRA HOUSING