ciao a tutti.
ho un piccolo problema:
devo far vedere una serie di immagini da database (access) che cambino ogni tot secondi (diciamo 5).
Finora ho usato la funzione random, ma alla fine non mi soddisfa appieno.
Ora vorrei che me le visualizzasse una per una in ordine cambiando ogni 5 secondi.

Questo era il mio codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim Num_img_random
Num_img_random=1
%>

<script language="JavaScript">
<!--

var sURL = unescape(window.location.pathname);

function doLoad()
{
// the timeout value should be the same as in the "refresh" meta-tag
setTimeout( "refresh()", 2*2000 );
}

function refresh()
{
// Questa versione della funzione refresh inserisce una nuova
// pagina nella storia del browser. Ciò è utile per
// i browsers che supportano JavaScript 1.0.
//
window.location.href = sURL;
}
//-->
</script>

<script language="JavaScript1.1">
<!--
function refresh()
{
// Questa versione NON inserisce una nuova pagina nella storia
// del browser. La maggior parte dei browser recupera
// il documento dal web server, sia che sia già presente nella
// cache del browser o meno.
//
window.location.replace( sURL );
}
//-->
</script>

<script language="JavaScript1.2">
<!--
function refresh()
{
// Questa versione della funzione refresh verrà invocata
// dai browsers che supportano Javascript 1.2
//

// L'argomento nella funzione location.reload determina
// se il browser deve recuperare il documento dal
// web-server.
//
window.location.reload( false );
}
//-->
</script>
<body topmargin="0" onLoad="doLoad()">

<%

strAccessDB = "db/bgeco..mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=dbase.mdb;" & Server.MapPath(strAccessDB)

Conn.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
query = "SELECT * FROM fotona"
rs.Open query,Conn,3,3
if not rs.EOF then
N = Num_img_random 'numero di record casuali da visualizzare
Randomize
max = rs.RecordCount-1
redim arr(max)
'popolo l'array da 0 al numero di record
for i=0 to max
arr(i)=i
next
'mischio i numeri in modo casuale
for i=0 to max
casuale = Int((max)*Rnd)
temp = arr(i)
arr(i) = arr(casuale)
arr(casuale) = temp
next
'visualizzo gli N record casuali
for i=0 to N-1
rs.Move arr(i)
Dim images
testo= rs("titolo")
scelta=rs("foto")
occhiello=rs("occhiello")

%>
<style type="text/css">
.gino {
width: 375px;
height: 523px;
overflow: hidden;
border: 1px solid #000;
}

.gino p {
background-image: url(images/fotosfondo.png);
width: 377px;
height: 90px;
overflow: hidden;
color: #000;
border: 0px solid red;
display: block;
position: relative;
top: -90px;
font-family: Arial narrow;
font-size: 16px;
color: #000000;
padding: 2px;

}

.Stile1 {font-family: Arial, Helvetica, sans-serif}
</style>

<div align="center">
<table border="0" width="250" id="table1" cellspacing="0" cellpadding="0" align="left">
<tr>
<td bgcolor="#CCCCCC" align="LEFT" height="32" style="stile1"><div class="gino">
[img]db/images/<%=scelta%>[/img]

<%=testo%>
<%=occhiello%></p></div></td>
</tr>
</table>
</div>
<font face="Verdana" style="font-size: 2pt"> </font>
<%
rs.MoveFirst
next
end if
%>

qualcuno mi aiuta gentilmente?

graize