<%
Set bag = Server.CreateObject("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/forum.mdb")
set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from Sorular order by Id desc"
rs.open SQL,bag,1,3
syf = Request.QueryString("syf")
If syf="" Then syf="1"
rs.pagesize = 15 'bir sayfada kaç kayıt olacak
rs.absolutepage = syf 'yukarda belirlediğimiz kayıt bölümlerinden hangisi, kaçıncısı alınacak
sayfa_sayisi = rs.pagecount
%>
ANNELER TECRÜBELERİNİ PAYLAŞIYOR..SİZ DE
GEBELİKE YADA BEBEĞİNİZİ BÜYÜTÜRKEN YAŞADIKLARINIZI PAYLAŞMAK İSTERSENİZ HİKAYE
GÖNDER BUTONUNDAN GÖNDEREBİLİR,GELEN HİKAYELERE YORUM EKLEYEBİLİRSİNİZ..
Hikayenizi aynı zamanda forumumuza da gönderebilirsiniz.. Forum >>>
Doğum Hikayeleri >>>
Yaşanmış Deneyimler
Cevap
Sayısı
Okunma Sayısı
<%for i=1 to rs.pagesize
If rs.eof Then exit for
Set cevap = Server.CreateObject("ADODB.Recordset")
SQLcumle2 = "SELECT * FROM cevaplar WHERE cevap_id = " & rs("id")
cevap.Open SQLcumle2, bag, 1, 3
cevap_sayi = cevap.recordcount
sayi=sayi + 1
renk_sec=right(sayi,1)
select case renk_sec
case "1","3","5","7","9"
renk = "#00CCFF"
case else
renk = "#99CCFF"
end select
%>
