<%
' On Error Resume Next

' Classsic ASP pages created by Andre F Bruton
' E-mail: andre@bruton.co.za
' Date: 2008/01/19

recaptcha_public_key  = "API KEY BURAYA GELİYOR"
%>
<p align="center" id="yazi"><strong>
</strong></p>
<form id="form1" name="form1" method="post" action="kontrol.asp">
  <table width="600" border="0" align="center">
    <tr>
      <th id="yazi" scope="col">Kullanıcı Adınız : </th>
      <th scope="col"><label>
        <input name="kullanici_adi" type="text" id="kullanici_adi" />
      </label></th>
    </tr>
    <tr>
      <th id="yazi" scope="col">Şifreniz : </th>
      <th scope="col"><label>
        <input name="sifre" type="password" id="sifre" />
      </label></th>
    </tr>
    <tr>

    </tr>
    <tr>
      <th id="norteks" scope="col">&nbsp;</th>
      <th scope="col">&nbsp;</th>
    </tr>
  </table>
  <% Else %>
  <%end if %>

<center>
<%
' 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 = "<script type=""text/javascript"">" & _ 
  "var RecaptchaOptions = {" & _ 
  " theme : 'white'," & _ 
  " tabindex : 0" & _ 
  "};" & _ 
  "</script>" & _ 
  "<script type=""text/javascript"" src=""http://api.recaptcha.net/challenge?k=" & publickey & """></script>" & _ 
  "<noscript>" & _ 
  "<iframe src=""http://api.recaptcha.net/noscript?k=" & publickey & """ frameborder=""1""></iframe><br>" & _ 
  "<textarea name=""recaptcha_challenge_field"" rows=""3"" cols=""40""></textarea>" & _ 
  "<input type=""hidden"" name=""recaptcha_response_field"" value=""manual_challenge"">" & _ 
  "</noscript>" 
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 
%>

<!--#include file="cap.asp"-->
<th id="norteks" scope="col">&nbsp;</th>
      <th scope="col"><label>
        <input name="Submit" type="submit" id="form1" value="Giris" />
      </label></th>
</form>
<%=recaptcha_challenge_writer(recaptcha_public_key)%>