<% @ Language = VBScript CodePage = 1254 %> İLAHİ SÖZLERİ <% Set bag = Server.Createobject("ADODB.Connection") bag.Open (Bcumle) Set kset5 = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM ilahiler" kset5.open sql, bag, 1, 3 rsx = kset5.RecordCount Randomize id = Int((rsx * Rnd)+ 0) kset5.Move(id) %>
Ara :  
  İLAHİLER <% id=Request.QueryString("id") if id="" then id=1 end if Set bag = Server.Createobject("ADODB.Connection") bag.Open (Bcumle) Set kset = Server.Createobject("ADODB.Recordset") sql = "SELECT * FROM ilahiler where id="&id kset.open sql, bag, 1, 3 ToplamKayitSayisi = kset.RecordCount %>

Şiir ekle

Rastgele Şiir

 
 
 

<%=kset5("ilahi_ad")%>

<%=Replace(kset5("ilahi"),chr(13),"
")%>

<%=kset5("gufte")%>

  

<% kset.Close Set kset = Nothing bag.Close Set bag = Nothing %> 		 
Ana Sayfa

Yönetim