webForumDet fria alternativet

Select case fler bilder?

12 svar · 438 visningar · startad av McD

McDMedlem sedan mars 20002 520 inlägg
#1

Fungerande kod

select case cstr(rs("poang"))
case "1": Bildx = "bilder/helt_z.gif"
case "2": Bildx = "bilder/helt_z.gif"
case "3": Bildx = "bilder/helt_z.gif"
end select
%>

Frågan är hur jag får fram fler bilder (Ej fungerande :( ):

select case cstr(rs("poang"))
case "1": Bildx = "bilder/helt_z.gif"
case "2": Bildx = "bilder/helt_z.gif, bilder/helt_z.gif"
case "3": Bildx = "bilder/helt_z.gif, bilder/helt_z.gif, bilder/helt_z.gif"
end select
%>

Ovanstående kod funkar inte går det att lösa med några snuffar eller nått????

@ndersMedlem sedan juni 200032 969 inlägg
#2

Vill du alltså visa fler bilder samtidigt?
Då får du nog inkludera <img>-taggarna i din select case.

Mvh,

McDMedlem sedan mars 20002 520 inlägg
#3

aha :) testar :e tack tack

McDMedlem sedan mars 20002 520 inlägg
#4
select case cstr(rs("poang"))
case "1": Bildx = "<img src='bilder/helt_z.gif'><img src='bilder/helt_z.gif'>"
case "2": Bildx = "bilder/halft_z.gif"
case "3": Bildx = "bilder/halft_z.gif"
case "4": Bildx = "bilder/halft_z.gif"
case "5": Bildx = "bilder/halft_z.gif"
case "6": Bildx = "bilder/halft_z.gif"
case "7": Bildx = "bilder/halft_z.gif"
case "8": Bildx = "bilder/halft_z.gif"
case "9": Bildx = "bilder/halft_z.gif"
end select
%>

Humm mina bilder syns :e men jag får lixom en extra bild (vit fyrkant bildsaknas samt "> bakom sista bilden med ovanstående kod...

Förslag?

@ndersMedlem sedan juni 200032 969 inlägg
#5

hur ser koden ut när du skriver ut bildx då? Du har inte med <img>-tagg där också?

Du får ta bort den därifrån, och inkludera <img> på de andra bilderna också, även om det bara är en bild som skall ut.

Mvh,

McDMedlem sedan mars 20002 520 inlägg
#6

http://www.mcdz.net/bugg.gif

jo, där finns taggarna oxo, tar bort :e

McDMedlem sedan mars 20002 520 inlägg
#7

hihi oj va WF är bra... tack shnabel! de e up and running

pirroMedlem sedan aug. 2001226 inlägg
#8
<%
function doImg(counter)
if len(counter) = 0 then
exit function
end if
Dim strImg
strImg = ""
for i = 1 to len(counter)
strImg = strImg & "<img src=""img_" & mid(counter,i,1) & ".gif"" border=0>"
next
doImg = strImg
end function%>
Använd:
<%=doImg("123456")%>
eller
<%=doImg(rs("poang"))%>
å bilderna ska heta:
img_0.gif
img_1.gif
img_2.gif
img_3.gif
img_4.gif
img_5.gif
img_6.gif
img_7.gif
img_8.gif
img_9.gif

**Njoy**

solbulleMedlem sedan mars 20015 287 inlägg
#9

Räcker det inte med:

response.write "<img src=""img_" & rs("poang") & ".gif"" border=0>"

Där img_0.gif är en blank bild.

pirroMedlem sedan aug. 2001226 inlägg
#10

nj då måste man ha typ 9000000000 bilder om man har hög poäng...

McDMedlem sedan mars 20002 520 inlägg
#11

hihi tack för funktionen

pirroMedlem sedan aug. 2001226 inlägg
#12

min?

solbulleMedlem sedan mars 20015 287 inlägg
#13

Pirro: Jo men nu skulle han väl iofs bara eg visa en eller flera av samma bild. Både ditt o mitt förslag bygger på att man får göra flera olika bilder.
En annan variant är ju att loopa utskriften av bilden så många gånger man vill ha den - typ som du gjort men med samma bild.(?) Blev jag luddig nu?

128 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
125 ms — hämta tråd, inlägg och bilagor (db)