<% 
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'********************************************************************************
'*****								           ******
'*****		   ___________________________________________             ******
'*****            | www.medyadesign.com / Gökhan Ahmet YILMAZ |            ******
'*****            |    Email : admin@medyahosting.com         |            ******
'*****            |    Tarih : 09.07.2003                     |            ******
'*****             ___________________________________________             ******
'*****								           ******
'*****		                                                           ******
'*****		                                                           ******
'********************************************************************************
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////Powered By MedyaDesign//////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////////////
%>
<!--#include file="bag.asp" -->
<%
Set serkan=Server.CreateObject("ADODB.RecordSet")
sql="select * from sayac where id=1"
serkan.Open sql,BAG,1,1,1
sayi=serkan(1)
serkan.close
Set serkan=NoThing
sayi=sayi+1
sql="update sayac set sayac="&sayi&" where id=1"
BAG.execute (sql)
%>
document.write ("<%=sayi%>");
<%
BAG.Close
Set BAG=NoThing
%>