<%
set baglan = server.createobject("adodb.connection")
baglan.open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("news/data/xice.mdb")
%>
<%
kategori=request.querystring("kategori")
set xice = server.createobject("adodb.recordset")
xice.open " select * from haber where kategori like '%" & kategori & "%' order by id desc " ,baglan,1,3
%>
<%
Xsayfa = request.querystring("Xsayfa")
if Xsayfa = "" then
Xsayfa = 1
end if
%>
Toroslar Construction & Investment Company
News
<%
xice.pagesize = 10
xice.absolutepage = Xsayfa
Xsahife = xice.pagecount
for i =1 to xice.pagesize
if xice.eof then exit for
%>
