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

  ZiYaReTçİ dEfTeRİ


İsmin:
E-mail adresin:
Siten:
Mesajınız:

<-Geri

 1 

Devam->

İsim:- 
Site:http://mine42.tr.gg
Zaman:05.09.2008, 19:31
Mesaj:siteniz çok güzel
başarılar diler
siteme beklerim
İsim:asdasdfrrthuyjrkrrky 
E-mail:goksel.95hotmail.com
Site:http://www.gezginlerburaya26.tr.gg
Zaman:12.11.2007, 17:23
Mesaj:güzel olmuş siten benimkinede girersin yorumunu ziayretçi defterine yazarsın
www.gezginlerbuarya26.tr.gg:):D
İsim:emre 
E-mail:durcell-yunus-emrehotmail.com
Site:http://www.durcell.tr.gg
Zaman:11.08.2007, 08:34
Mesaj:slm kardeşim siten güzel olmuş benim siteyede beklerim
İsim:emre 
E-mail:durcell-yunus-emrehotmail.com
Site:http://www.durcell.tr.gg
Zaman:10.08.2007, 11:51
Mesaj:slm kardeşim siten güzel olmuş benim siteyede beklerim
 
 
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 3 ziyaretçi (5 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