<%
Set ObjRs = Server.CreateObject ("ADODB.RecordSet")
StrSql = ("Select * From TblHaberler where durum = true order by eklenme_tarihi desc;")
ObjRs.Open StrSql, ObjCon, 1, 3
%>
<%
if ObjRs.Eof then
Response.Write "Eklenmiş Haber Bulunmuyor ! ! !"
Else
%>
<%
git = Request.QueryString("git")
if git="" then
git = 1
end if
ObjRs.pagesize = 5
ObjRs.absolutepage = git
sayfa = ObjRs.pagecount
for i=1 to ObjRs.pagesize
if ObjRs.eof then exit for
Set YorumSay = Server.CreateObject ("ADODB.RecordSet")
StrSql =("Select * From Tblyorumlar where haber_id = " & ObjRs("haber_id") & " and durum = true")
YorumSay.Open StrSql, ObjCon, 1, 3
yorum_say = YorumSay.RecordCount
%>
<% = ObjRs("haber_baslik") %>
<%
if Len(ObjRs("haber")) >= 100 then
Gonder = "Haberin Devamı »"
Else
Gonder = ""
End if
%>
