<%
set baglan = server.createobject("adodb.connection")
baglan.open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("data/xice.mdb")
%>
<%
set xice = server.createobject("adodb.recordset")
yol = " select * from haber where haber_yer like '%Normal%' order by id desc "
xice.open yol,baglan,1,3
%>
<%
set Xmanset = server.createobject("adodb.recordset")
yol = " select * from haber where haber_yer like '%Manşet%' order by id desc "
Xmanset.open yol,baglan,1,3
%>
<%
set Xkategori = server.createobject("adodb.recordset")
Xkategori.open " select * from kategori order by id desc " ,baglan,1,3%>
<%
set Xyazar = server.createobject("adodb.recordset")
Xyazar.open " select * from yazarlar order by id desc " ,baglan,1,3%>
<%
Xsayfa = request.querystring("Xsayfa")
if Xsayfa = "" then
Xsayfa = 1
end if
%>
KARAOĞLU LTD.ŞTİ
Bu güne kadar olan bilgi birikimiyle, insan ve
çevreye saygılı, sağlık ve emniyeti ön planda
tutan bir bilinç oluşturmak, üst kalite
standartlarında müşteri beklentilerinin üzerinde
sunulan projeleri kısa zamanda hayata
geçirmektir.
<%
xice.absolutepage = Xsayfa
Xsahife = xice.pagecount
for i =1 to xice.pagesize
if xice.eof then exit for
%>
