% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_site_key = "6LebLcQUAAAAAD6VfMo80eYXrHpithrVrGcrDPVS" ' your public key recaptcha_private_key = "6LebLcQUAAAAAF0AmUDSKQ9TeHBOIaTJ_WrehzwD" ' 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", "https://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 %>
| Tech-News & Views | |||||||||||||||||||||||||||||||||
| HAPPY CANADA DAY! 
 
 
 HAPPY INDEPENDENCE DAY!
 | 
 | ||||||||||||||||||||||||||||||||
| 
 LAUNCHING A NEW (OR IMPROVED) DOO-DAD? GOT A STORY? SOMETHING OF INTEREST AND/OR NOTE-WORTHY? Contact Us! We'll make sure it gets out there! | |||||||||||||||||||||||||||||||||
+1 (888) 340-3473
“We are not a professional union, but together, we are a union of professionals!”



What we’re all about!
We are not affiliated with ASTTBC, CFAA, CANASA, NFPA, NAFED, or NICET (although we encourage you to explore and objectively evaluate the benefits associated with supporting their individual efforts).  Membership in the Fire Technicians Network is entirely voluntary.  Are you up to the challenge of demonstrating your commitment to public safety and the highest standard of professional practice?

Copyright © 2007 - 2020 The Fire Technicians Network. All Rights Reserved