|
<%
MM_bagspi= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
set conn = Server.CreateObject("adodb.connection")
set rsj = Server.CreateObject("adodb.recordset")
conn.open MM_bagspi
rsjsql = "Select * from ref order by AD_ID DESC"
rsj.open rsjsql, conn, 1, 3
If not rsj.eof or not rsj.bof then
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rsj.pagesize = 50
rsj.absolutepage = sayfa
sayfa_sayisi = rsj.pagecount
for i=1 to rsj.pagesize
if rsj.eof then
exit for
end if
ismi = rsj.Fields.Item("ismi").Value
description = rsj.Fields.Item("description").Value
AD_ID = rsj.Fields.Item("AD_ID").Value
resim1= rsj.Fields.Item("resim1").Value
if resim1 <> "" then%>
%>&W=250)
<%end if%>
<%=ismi%>
<%=description%>
<%
rsj.movenext
Next
end if
rsj.Close()
%>
|
