<%
dim baglan
set baglan = server.createobject("adodb.connection")
baglan.open "provider = microsoft.jet.oledb.4.0;data source ="& server.mappath("siteler.mdb")
set kayit = server.createobject("adodb.recordset")
sql="select * from yayin"
kayit.open sql,baglan,1,3
do while not kayit.eof
%>
