<%Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="vbsturk">
<p>
//baglantı kuruyoruz.ama veridosyasi.mdb yerine siz db klasorundeki dosyayı yazıyorsunuz....
<%
Set bag=Server.CreateObject("Adodb.Connection")
yol=server.mappath("db/veridosyasi.mdb")
bag.Open "DBQ="& yol & ";Driver={Microsoft Access Driver (*.mdb)}"
Set rs = Server.CreateObject("Adodb.Recordset")
sql = "select * from uyeler "
rs.open sql,bag,1,3
if rs.eof or rs.bof then
%>
Kayıt Bulunamadı!
<% else %>
<p>KAYITLAR</p>
<% do while not rs.eof %>
<p>
<%=rs("ad")%></p><p>
<%=rs("soyad")%></p>
<% rs.movenext
loop
%>
<%
rs.close
bag.close
%>
<% end if %>
</p>
</card>
</wml>