<%dsn="DBQ=" & Server.Mappath("vt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsn set rs = Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM Tablo_Sayac order by id desc" rs.open SQL,conn,1,3 rs("sayac") = rs("sayac") - 1 rs.update%> <%=rs("sayac")%>
Ana Sayfa
İletişim
ZiYaReTçİ dEfTeRİ
FoRuM
Yeni sayfanın başlığı
qeqe
Yeni sayfanın başcdlığı
Yeni wqwdd
Yeni sferfayfanın başlığı
qdqwdwqdwqşlığı
Yeni sayedqwd awdfanın başlığı
Yeni sayfanın başlrf4wertf4wığı
wqde
sdqdqw
fefew
İletişim
E-mail adresin:
İsmin:
Başlık:
Mesajın:
INFOMELDUNG_LOGINBOX
programlar
<% '100 den geri saymak için... IF Application("Sayac")*1=0 Then Application("Sayac")=101 Application("Sayac") = Application("Sayac") -1 Response.Write(Application("Sayac")) %>
Ücretsiz Online Ziyaretçi Sayacı
Bugün 9 ziyaretçi (11 klik) kişi burdaydı!
Bu web sitesi ücretsiz olarak
Bedava-Sitem.com
ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol