<%
katid= request("katid")
If Not Isnumeric(katid) Or Len(katid)=0 Then
mesaj ""
End If
'-----------------------------------------------------------------------------------
Set rs= cilem.execute("SELECT * FROM haber WHERE haberonay='Evet' and katid=" & guvenlik(request("katid")))
If rs.eof Then
mesaj ""
End If
%>
<% Sub mesaj(uyari)%>
<%= uyari %>
<% response.end
End Sub %>
<%katid=guvenlik(request("katid"))
set rs=server.createobject("adodb.recordset")
sql="select * from haber WHERE haberonay='Evet' and katid=" & guvenlik(request("katid"))&" order by baslik asc"
rs.open sql,cilem,1,3
%>
<% if rs.eof or rs.bof then%>
<% Response.end%>
<%end if%>
<%
cilemsayfa = Request.QueryString("cilemsayfa")
If cilemsayfa="" Then cilemsayfa=1
rs.pagesize = 2
rs.absolutepage = cilemsayfa
cilemsayfa_sayisi = rs.pagecount
cols = 1
j = 0
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
if j>=cols then
Response.Write(" ")
j = 0
end if
%>
|
<%
j = j + 1
rs.Movenext
Next
%>
<% response.Write "Diğer Haberler "%>
<%
onceki = cint(cilemsayfa) - 1
sonraki = cint(cilemsayfa) + 1
%>
<%
if onceki < 1 then
response.write ""
else
response.write " ◄" & cilemsayfa-1& ""
end if
%>
<%
for cilemsayfa_no = 1 to cilemsayfa_sayisi
if cilemsayfa_no = cint(cilemsayfa ) then
%>
"> <%=cilemsayfa%>
<% else
response.Write ""
end if
next %>
<%
if sonraki > cilemsayfa_sayisi then
response.write ""
else
response.write " " & cilemsayfa+1& " ►"
end if
%>
|
