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

  Yeni sferfayfanın başlığı
 
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")) %>
 
IP
 
 
Bugün 1 ziyaretçi (2 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