<%'Ç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 %> <% sifre=md5(request("sifre")) editor=trim(request("editor")) editor=guvenlik(editor) isimsoyad=trim(request("isimsoyad")) isimsoyad=guvenlik(isimsoyad) tanitim=guvenlik(tanitim) tanitim=trim(request("tanitim")) sehir=guvenlik(sehir) sehir=trim(request("sehir")) ilce=guvenlik(ilce) ilce=trim(request("ilce")) telefon=guvenlik(telefon) telefon=trim(request("telefon")) uyemail=guvenlik(uyemail) uyemail=trim(request("uyemail")) cinsiyet=trim(request("cinsiyet")) cinsiyet=guvenlik(cinsiyet) gizlisoru=trim(request("gizlisoru")) gizlisoru=guvenlik(gizlisoru) gizlisoruyanit=trim(request("gizlisoruyanit")) gizlisoruyanit=guvenlik(gizlisoruyanit) tarih=now() %> <% sqlkontrol="select * from editorluk where editor='" & guvenlik(request("editor"))& "'" Set rs=cilem.execute(sqlkontrol) if rs.eof then else response.redirect "yazarbasvuru.asp?hata=Bu Editör Adi Onceden Kayit Edilmis.Lütfen Baska Bir Kullanici Adi Yaziniz. Geri Dön" end if %> <% sqlkontrol="select * from editorluk where uyemail='" & guvenlik(request("uyemail"))& "'" Set rs=cilem.execute(sqlkontrol) if rs.eof then else response.redirect "yazarbasvuru.asp?hata=Bu Email Adresi Daha Onceden Kayit Edilmis.Lütfen Baska Bir Email Adresinizi Yaziniz. Geri Dön" end if %> <% set rs = server.createobject("adodb.recordset") sql="select * from editorluk" rs.open sql,cilem,1,3 rs.addnew rs("editor") = editor rs("sifre") = sifre rs("isimsoyad") = isimsoyad rs("tanitim") = tanitim rs("sehir") = sehir rs("ilce") = ilce rs("telefon") = telefon rs("uyemail") = uyemail rs("gizlisoru") = gizlisoru rs("gizlisoruyanit") = gizlisoruyanit rs("cinsiyet")=cinsiyet rs("tarih") = tarih rs.update %> <%else%> <%end if%> <%end if%>