<% '////////////////////////////////////// '// powered by // '// __ _ ___ - // '// /_ /_\ | | |__| // '// / / \ | | | | // '// f_ku2000@yahoo.com // '//////////////////////////////// Set conn = server.createobject("adodb.connection") dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)}; " dsnpath = dsnpath & "DBQ=" & Server.MapPath("sayac.mdb") conn.open dsnpath set rs = Server.CreateObject("ADODB.RecordSet") if Session("sayim") = "" then sqlstr = "SELECT * FROM sayac" rs.open sqlstr, conn, 1, 3 rs.MoveFirst rs("sayi") = rs("sayi") + 1 Session("sayim") = rs("sayi")+1 rs.Update rs.Close end if%> <%for sayilar= 1 to (len(Session("sayim"))) resim = mid((Session("sayim")),sayilar,1)%> <%next%>