01.<%
02.myurl="http://"&Request.ServerVariables("SERVER_NAME")03.
04.IF counter="" THEN
05.sql="SELECT * FROM counter"
06.rs.Open sql, conn, 1, 3
07.On Error Resume Next
08.counter=rs("counter")+1
09.rs.UPDATE
10.rs("counter")=counter
11.rs.UPDATE
12.rs.Close
13.END IF
14.Conn.Close
15.counter=CStr(counter)
16.CLen=Len(counter)
17.Cx=5
18.IF CLen<Cx THEN
19.FOR i=1 TO (Cx-CLen)
20.counter="0"&counter
21.NEXT
22.END IF
23.FOR i=1 TO Cx
24.%><img src="<%=myurl%>/images/number/<%=Mid(counter,i,1)%>.gif"/><%
25.NEXT
26.%>
