banner random asp

[minnie71]

ciao a tutti,
ho preso dal forum questo codice:

<%RANDOMIZE
LowestNumber = 1
HighestNumber = 3
RandomNumber = INT((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
SELECT CASE RandomNumber
CASE "1"%>
[img].\images\Banner01.gif[/img]
<%CASE "2"%>
[img].\images\Banner02.gif[/img]
<%CASE "3"%>
[img].\images\Banner03.gif[/img]
<%END SELECT%>

se i banner sono statici tutto va bene, ma se sono dinamici volevo mettere un for per ciclare sulle case. in questo modo:


if RsBA.RecordCount <> 0 then
RANDOMIZE
LowestNumber = 1
HighestNumber = RsBA.RecordCount
RandomNumber = INT((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
SELECT CASE RandomNumber
for h = 1 to RandomNumber
case h%>
[img]./IMM_BANNER/[/img]" id="imgINpercCerca" BORDER=0><%
next
END SELECT
else
Response.Write ("nessun banner inserito")
end if

mi da errore sulla "case h" come faccio a farlo?

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/GammaDarfo/Banner.asp, line 24
case h



Grazie mille

[minnie71]

ci sono riuscita così:

'Se c'è almeno un banner
if RsBA.RecordCount <> 0 then
RANDOMIZE
LowestNumber = 1
HighestNumber = RsBA.RecordCount
RandomNumber = INT((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
h=1
while not RsBA.EOF and not h=-1
' se il record corrente è il numero di recor indicato dal random, emetto il banner e ESCO dal ciclo forzando H=-1
if h = RandomNumber then
%>[img]./IMM_BANNER/<%=RsBA([/img]" id="imgINpercCerca" BORDER=0><%
h=-1
else
h=h+1
end if
RsBA.MoveNext
wend
RsBA.Close
else
Response.Write ("nessun banner inserito")
end if

[yro]

ciao ho provato quest' ultimo codice ma non mi funziona.

set rs = server.CreateObject("adodb.recordset")
strSQL = "SELECT * from tblbanner where store ='"&STRdesk&"'"
rs.open strSQL, objConn, 0, 3


'Se c'è almeno un banner
if Rs.RecordCount <> 0 then
'response.Write(Rs.RecordCount)
RANDOMIZE
LowestNumber = 1
HighestNumber = Rs.RecordCount
RandomNumber = INT((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)
h=1
while not Rs.EOF and not h=-1
' se il record corrente è il numero di recor indicato dal random, emetto il banner e ESCO dal ciclo forzando H=-1
if h = RandomNumber then

response.Write(rs("banner"))

h=-1
else
h=h+1
end if
Rs.MoveNext
wend
Rs.Close
else
Response.Write ("nessun banner inserito")
end if

mi pare che faccia al caso mio ma anche se non errore, non ho alcuna risposta.