<%'Çilem.Net © 2007'%> <%=siteadi%> - İtiraf Ekle <%islem=Request.QueryString("islem") if islem="Kaydet" then call Kaydet end if %>
 
 Adınız (Rumuz) : 
 Cinsiyet :  Bay    Bayan
 Yaşınız :
Şehir :
İtirafınızın Konusu :

Başlık :

İtirafınız :

 
 
 
 İtiraf Kuralları ;
<%=ayikla(kurallar)%>
 

 
<% sub Kaydet id=trim(request("id")) id=guvenlik(id) gonderen=trim(request("gonderen")) gonderen=guvenlik(gonderen) cinsiyet=trim(request("cinsiyet")) cinsiyet=guvenlik(cinsiyet) yas=trim(request("yas")) yas=guvenlik(yas) sehir=trim(request("sehir")) sehir=guvenlik(sehir) kategori=trim(request("kategori")) kategori=guvenlik(kategori) baslik=trim(request("baslik")) baslik=guvenlik(baslik) itiraf=trim(request("itiraf")) itiraf=guvenlik(itiraf) onay=trim(request("onay")) onay=guvenlik(onay) ipno=Request.Form("ipno") tarih=now() %> <% set rs=server.createobject("adodb.recordset") rs.open "itiraf",cilem,1,3 rs.addnew rs("gonderen") = gonderen rs("cinsiyet") = cinsiyet rs("yas") = yas rs("sehir") = sehir rs("kategori") = kategori rs("baslik") = baslik rs("itiraf") = itiraf rs("onay") = onay rs("tarih") = tarih rs.update response.write "" end sub %>