Jag har följande loop på min sida men den skriver ut bilderna i fel ordning... d.v.s. den skriver lngOnline = 21 med bilderna 1 och sen 2... =/

For lngI = 1 To Len(lngOnline) Step -1
strOnline = strOnline + "<IMG SRC=""_img/_sys/nr_" & mid(lngOnline,lngI,1) & ".gif"">"
Next

även testat:

For lngI = 1 To Len(lngOnline)
strOnline = strOnline + "<IMG SRC=""_img/_sys/nr_" & lngI & ".gif"">"
Next

/Olov

Om du ska loopa åt "andra hållet" dvs neråt skriver du så här

For i = 10 To 1 step -1
Response.Write i & "<br>"
Next

Borde väl bli ungefär så här:

For lngI = Len(lngOnline) To 1 To Step -1
strOnline = strOnline + "<IMG SRC=""_img/_sys/nr_" & mid(lngOnline,lngI,1) & ".gif"">"
Next

Vad det detta du ville?

/Janne

Det är så ja menar men det funkar inte.. =(
Du kan kolla på http://cc.mupp.nu/MediaBase

Just nu så har jag så här:

(lngOnline är just nu = 21)

Dim lngOffline
lngOffline = avntOffline(0)
If Not lngOffline = "0" Then
For lngI = Len(lngOffline) To 1 Step -1
strOffline = strOffline + "<IMG SRC=""_img/_sys/nr_" & mid(lngOffline,lngI,1) & ".gif"">"
Next
Else
strOffline = "<IMG SRC=""_img/_sys/nr_0.gif"">"
End If

Du vill loopa ut siffrerbilder enligt det tal som finns

Om det är tal som kommer från avntOffline(0) så sk det inte vara dubbelfnuttar runt 0

Så här ska väl det se ut (hoppas jag....)

Dim lngOffline
lngOffline = avntOffline(0)
If lngOffline > 0 Then
For lngI = 1 To Len(lngOffline)
strOffline = strOffline + "<IMG SRC=""_img/_sys/nr_" & mid(lngOffline,lngI,1) & ".gif"">"
Next
Else
strOffline = "<IMG SRC=""_img/_sys/nr_0.gif"">"
End If

/Janne

tack tack.. och åter tack! =)