Get Your Own Chat Box! Go Large!
Form Gönderme
<%
Set baglanti=Server.CreateObject(" ADODB.connection" )
baglanti.Open "driver={microsoft access driver (*.mdb)}; DBQ=" &Server.MapPath("veritabani_yo lu" )
SQL="select * from tablo_ismi"
Set kayitseti = baglanti.Execute(SQL)
Do While not kayitseti.Eof
%>
<% kayitseti.Movenext %> ' Bu kodu nereye koyarsaniz orada kayit listeleme biter ve diger kayda gelir...
<% Loop %>
<%kayitseti.Close %>
<%baglanti.Close %>
Telif Hakkı © 2001 [Kuruluşun Adı]. Tüm hakları saklıdır.
Son düzeltme tarihi:
.
02-07-2007, 08:49 AM
|