Untitled

ŞU ANDA FİRMAMIZDA BULUNAN 2.EL MAKİNELER-PARÇALAR

<%Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt1.mdb") set Rs = sur.execute("select * from tablo1")%>

FOTOĞRAF

İSİM

AÇIKLAMA

<%do while not Rs.eof%> <%rs.movenext loop rs.close sur.close %>

" width="120" height="100">

<%response.write rs("isim")%>

<%response.write rs("aciklama")%>