Programalama > ASP

<%
class yazdir

function veritabani(bag,db)
bag="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(db)
end function

function baglan(vt,bagim)
set vt = server.CreateObject("ADODB.Connection")
vt.open bagim
end function

end class

set yazi = new yazdir
xdb = "db.mdb"
verim = yazi.veritabani(vt,xdb)
baglantim = yazi.baglan(dbim,vt)
set kyt = dbim.execute("select * from not") 'Not Veritabanımızdaki tablo
response.Write(kyt("ad"))
%>

uğur toprakdeviren
www.utopyazilim.com   &amp  destek@utopyazilim.com