<%
'Değeri sıfır yaptık ve geçici bellekte veri saklanmasını önledik
Response.Expires = 0
'Baglanti nesnesi oluşturduk
Set DB = Server.CreateObject("ADODB.Connection")
DB = "Driver={Microsoft Excel Driver (*.xls)}; DBQ=deneme.xls;" 'Veritabanımızın yerini belirttik
Baglanti.Open DB 'Veritabanımızı açtık
Set rsEx = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From tabloadi"
rsEx.Open strSQL, Baglanti
'Verileri yazdırıyoruz.
Response.Write ("<table border=1><tr><td>")
Response.Write rsEx.GetString (, 10, "</tr><td>", "</td></tr><tr><td>", NBSPACE)
%>