<% Session("canSend") = True recaptcha_public_key = "6LePyLoSAAAAAK7r0X24IKE_TuEHs8ZEBQmYGvEH" %>
 
 


Home>
Contact Us

* = Compulsory
* 'Name : 
City : 
Telephone : 
Fax : 
* Å-mail : 
Comments : 

Please type in the security code
<%=recaptcha_challenge_writer(recaptcha_public_key)%> <% If Session("inc") Then Response.Write("

Incorrect captcha

") Session("inc") = False End If %> <% ' The code below supplied by Mark Short ' returns string the can be written where you would like the reCAPTCHA challenged placed on your page function recaptcha_challenge_writer(publickey) recaptcha_challenge_writer = "" & _ "" & _ "" end function function recaptcha_confirm(privkey,rechallenge,reresponse) ' Test the captcha field Dim VarString VarString = _ "privatekey=" & privkey & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "http://api-verify.recaptcha.net/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 %>

Address: 176 Athallasa Avenue, Strovolos, CY 2025 Nicosia,

P.O.Box:: 20326, CY-2151 Nicosia
Ôel: +357 22820800, Fax:+357 22624610
Email: info@cba.com.cy