Papatyam Forum - Tekil Mesaj gösterimi - Asp kodlari veritabanina baglanip wml kodu üretir
Tekil Mesaj gösterimi
Alt 08 February 2008, 14:59   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Asp kodlari veritabanina baglanip wml kodu üretir

Asp kodlari veritabanina baglanip wml kodu üretir

Kod:
<%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>
Alıntı ile Cevapla