Bilgisayar Bölümü ASP Kod ve Script Arşivi


Verileri listeleme


<%
' db yolunu gsteriyoruz.
Set Sur = Server.CreateObject(""ADODB.Connection"")
Sur.Open ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(""datam.mdb"")
%>

<%
i=1
Set MaxiCooL = Server.CreateObject(""ADODB.Recordset"")
sor = ""Select * from db order by id desc"" 'id nin byklne gre sralyoruz.
MaxiCooL.Open sor,Sur,1,3

Do While i<16 And Not MaxiCooL.eof 'Gsterilecek Kayt Says 16 yerine yaznz.
%>
<td width=""350""><font face=""Verdana"" size=""2""><b><%=i%>.</b>&nbsp;</a><%=MaxiCooL(""ad"")%>
- <%=MaxiCooL(""nick"")%><br></a></font>
</td>
</tr>
<%
MaxiCooL.movenext
i=i+1
Loop
MaxiCooL.Close
%>

"

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2020 Bilgisayarbolumu.com