SQL="SELECT * FROM Counter "
Set objRS = Conn.Execute (SQL)
Number=objrs("Number")
l=Len(Number)
For i = 1 to l
num = Mid(Number,i,1)
display = display & "<img src=""images/" &num & ".gif"">"
Next
Set RS=Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
rs("Number")=Number+1
rs.Update
rs.Close
%>
<%=display%>