<% Set vt = Server.CreateObject("ADODB.Connection") vt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/veri/golbasi.mdb") set rs = server.createobject("ADODB.Recordset") SQL = "SELECT tablo.adisoyadi, tablo.meslek, tablo.isyeri, tablo.adres, tablo.sehir, tablo.ceptel, tablo.telefon, tablo.mail, tablo.onay FROM tablo WHERE (((tablo.onay)=Yes)) ORDER BY tablo.adisoyadi" rs.open SQL,vt,1,3 %>
Adı Soyadı
Mesleği
İşyeri
Şehir
Telefon
<% do while not Rs.eof %>
<% response.write rs("adisoyadi") %>
<% response.write rs("meslek") %>
<% response.write rs("isyeri") %>
<% response.write rs("sehir") %>
<% response.write rs("telefon") &" "&rs("ceptel") %>
<% Rs.movenext loop%>
Düzenleme için
>>
