Il mio problema è il seguente:
<%
randomize()
dim objconn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ= " + Server.MapPath ("immagini.mdb")
objConn.open
dim objrs
dim mysql
dim i, c, j
dim arimg(7)
do while i <= 6
i=i+1
c=cint( rnd()* 10)
arimg(i)= cint((32 - 1 )*rnd() +1)
%>
<%
loop
I=0
do while I<6
i=i+1
j=0
do while j<6
j=j+1
if i<>j then
if arimg(i)=arimg(j) then
arimg(j)= arimg(j)+ 1
end if
end if
loop
loop
i=0
do while i<6
i=i+1
mysql = "SELECT * FROM tablogo where id=" & arimg(i)
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open mysql, objConn
%>
<%
if I=4 then
%>
<tr align="center" valign="middle">
<td>
<script language="Javascript">
function popup(pagina){window.open(pagina, "Loghi", "toolbars=false, resizable=false, width=400, height=450")}
</script>
<%
Response.write "<a href=""Javascript:popup('loghigr.asp?id=" & objrs("ID") & "')"">"
%>
<img src= immagini\<%=objrs("Img") %> alt=<%= objrs("alt")%> border="1" >
</td>
<%
else
%>
<td>
<script language="Javascript">
function popup(pagina){window.open(pagina, "Loghi", "toolbars=false, resizable=false, width=400, height=450")}
</script>
<%
Response.write "<a href=""Javascript:popup('loghigr.asp?id=" & objrs("ID") & "')"">"
%>
<img src= immagini\<%=objrs("Img") %> alt=<%= objrs("alt")%> border="1" ></td>
<%
end if

loop
%>
</tr>
</table>
<% if err.number>0 then
response.write err.number&"<br>"
response.write err.description&"<br>"
response.write err.source
end if
%>
<%
objrs.close
set objrs=nothing
objconn.close
set objconn = nothing
%>

ho questo codice...
Il random funziona correttamente, l'unico problema è che nn mi escono tutte e 6 le immagini...
ES: a volte escono 4 img e 2 no (il bollino con a x rossa) a volte tutte e 6, a volte 3 si e 3 no...
Non riesco a capire il perchè... aiutatemi please.....
PS: il DB contiene 33 record...