<%'Çilem.Net © 2007'%> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function %> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then %> <% yazargiris=Request.Form("editor") Set rs = Server.CreateObject("ADODB.Recordset") sorgu = "Select * from editorluk where editor='" & yazargiris& "' and sifre='" &MD5(request("sifre"))& "'" rs.Open sorgu,cilem,1,3 %> <% if rs.eof then call git else%> <% Session("oturum") = "yazar" Session("editor") =rs("editor") sifrem = rs("sifre") If MD5(request.form("sifre")) = sifrem Then %> <%else%> <%end if%><%end if%> <%Else%> <%End If%> <%End If%> <% sub git%> <%end sub %>