Script indir, PHP Script indir, ASP Script indir, Free Script, Bedava Template, Temalar, Portallar, HTML

<%
‘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)
%>