webForumDet fria alternativet

Select case fler bilder?

ASP

12 svar · 440 visningar · startad av McD

Medlem sedan mars 20002 520 inlägg
Frågan#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????

Medlem sedan juni 200032 967 inlägg
#2

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

Mvh,

Medlem sedan mars 20002 520 inlägg
#3

aha :) testar :e tack tack

Medlem 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?

Medlem sedan juni 200032 967 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,

Medlem sedan mars 20002 520 inlägg
#6

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

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

Medlem sedan mars 20002 520 inlägg
#7

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

Medlem 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**

Medlem 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.

Medlem sedan aug. 2001226 inlägg
#10

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

Medlem sedan mars 20002 520 inlägg
#11

hihi tack för funktionen

Medlem sedan aug. 2001226 inlägg
#12

min?

Medlem 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?

263 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
131 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
128 ms — ändringar (db)