Asp kodlari veritabanina baglanip wml kodu üretir

[tamerr89]

Asp kodlari veritabanina baglanip wml kodu üretir

<%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>