<% set conn=server.createobject("adodb.connection") dsnpath="DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};" dsnpath=dsnpath & "DBQ=" & Server.mappath("db/dbziyaret.mdb") conn.mode = 3 conn.open dsnpath if Session("sayac") <> "dolu" then sql="update Counter SET Counter_Id = Counter_Id +1 WHERE CounterName='kirazli';" conn.execute(sql) Session("sayac") = "dolu" end if 'SQL cümlemizi oluşturalım. sql="SELECT * FROM Counter WHERE CounterName='kirazli';" 'Kayıt Dizimizi oluşturalım ve her sayfa için kaç kayıt alacağımızı belirtelim. Set rs=server.createobject("adodb.recordset") rs.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText sayac = rs("Counter_Id") for i = 0 to 6 - Len(sayac) Response.Write("") next for i = 1 to Len(sayac) Response.Write("") next %>