Öncelikle yine standart her uygulamamızda kullanacağımız veritabanımız aynı ve bağlantımız aynı olarak devam edelim..
Tablo Adı : Kitaplar
CREATE TABLE `Kitaplar` (
`id` int(11) unsigned NOT NULL AUTO_INCREMENT,
`kitapadi` varchar(200) NOT NULL,
`yazar` varchar(200) NOT NULL,
`ucret` varchar(100) NOT NULL,
PRIMARY KEY (`id`)
);
<%
Dim varServer, varUser, varPass, varDb, Baglan
varServer = "localhost"
varUser = "root"
varPass = "admin"
varDb = "Kitaplar"
Set Baglan = Server.CreateObject("ADODB.connection")
Baglan.Open "DRIVER={MySQL ODBC 3.51 Driver};Server="&varServer&";Uid="&varUser&";Pwd=" &varPass&";DB="&varDb&";"
%>Veritabanı bağlantımızı kayitlar.asp dosyamıza aynen girelim;
Listeleme için şimdi artık kod yazmaya başlayabiliriz.
<%
Set varListe = Baglan.Execute("SELECT * FROM Kitaplar")
%><table width="663" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="288"> Kitap Adı</td>
<td width="233">Yazar</td>
<td width="142">Ücret</td>
</tr>
<tr>
<td colspan="3" valign="top">
<table width="663" border="0" cellspacing="0" cellpadding="0">
<%Do While Not varListe.Eof%>
<tr>
<td width="288"><%=varListe("kitapadi")%></td>
<td width="233"><%=varListe("yazar")%></td>
<td width="142"><%=varListe("ucret")%></td>
</tr>
<%varListe.MoveNext : Loop%>
</table></td>
</tr>
</table>Evet basit bir örnek ile tablodaki verilerimizi ekrana yazdırmış olduk; dikkat etmeniz gereken bir nokta ise kodlarınızı doğru sütun ve satır içerisine yerleştirmeniz kim isterki içeriğin abuk subuk yerlerde çıkmasını buna hassasiyet gösterelim. Bir sonraki bölümde bu yazdırdığımız bölümü güncelleme, silme işlemlerini göreceğiz.