Tælle script med billeder i stedet for tal

Hvis du har billederne 0.gif til 9.gif kan du kan lave det som dette sådan her:


for i=1 to len(antal)
  response.write "<img src=""" & mid(antal,i,1) & ".gif"">"
next

der mangler bare det der med at der er 0000 utydelige nuller og så bliver det bare lagt til 0001 læg mærke til at der er 2 slags nuller, et utydeligt og et normalt...

Ok, så skal du også havde en grayed0.gif fil.

niceAntal = Right("00000"&antal,5)
for i=1 to len(niceAntal)
  if (len(niceAntal)-len(antal)) >= i then
    response.write "<img src=""grayed0.gif"">"
  else
    response.write "<img src=""" & mid(niceAntal,i,1) & ".gif"">"
  end if
next

super jeg tester det om en lille time, kæresten kalder, hun vil ikke ud af sengen i dag :p

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database/sys.mdb")
sql="select count(*) as antal from listen where fremmode = 'Er kommet!'"
set rs=conn.execute(sql)

niceAntal = Right("00000"&antal,5)
for i=1 to len(niceAntal)
  if (len(niceAntal)-len(antal)) >= i then
    response.write "<img src=""images/count/Log_0.gif"">"
  else
    response.write "<img src=""images/count/Log_" & mid(niceAntal,i,1) & ".gif"">"
  end if
next
%>

Hmm jeg kan ikke få det til at virke ...