hola, podían darme una ayuda con *randomize de imágenes? disculpen escribirse errores, mi español no es muy bueno, agradecido...
tengo un código en *asp que hace el *randomize de imágenes, pero es necesario hacer el *refresh de la página para ver la otra imagen...como puedo evitar eso, de forma a las imágenes rueden todas cuando el usuario abrir la página por la primera vez? voy a enviar el código para comprendan mejor... hace conexión la una base de datos *access...necesito mismo de la ayuda de alguien...agradecido una vez más ...
si alguien quisiera, yo puedo enviar, por email, el programa completo, con la base de datos incluida...soy de Portugal
<%response.cachecontrol="public"%>
<!--#include file="conexao.asp" --> ' la otra página sólo tiene el camino para la base de datos
<%
DIM MIN, MAX
DIM TABELA
DIM I
DIM SQL
set TABELA = Server.CreateObject("ADODB.Recordset")
sql = " SELECT * "
sql = sql & "FROM IMAGEM "
sql = sql & "WHERE DIA_SEMANA = " & WeekDay(now()) & " "
sql = sql & "ORDER BY IMG_COD"
' Este recordset irá conter apenas os registos cujo dia da semana seja igual ao de hoje
' Por exemplo, o Domingo correponde ao 1º dia da semana
' A segunda feira ao 2º dia da semana
' É com base neste dia da semana que construo a condição WHERE
tabela.open sql,conexao,3,3
%>
<html>
<head>
<title>Exemplo de imagens aleatórias</title>
<meta name="Description" content="Mostrar uma imagem diferente por dia">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<BODY BGCOLOR="#ffffff" LINK="#000000" vlink="#666666">
<p>
<basefont face="Ms Sans Serif" size="2">
<!-- #################### CABECALHO ##################### -->
</p>
<p>
<br>
<br>
<center><%
'response.write("<p>Esta página mostra uma imagem diferente por dia.<br>Às segundas feiras mostra umas imagens, às terças outras, ...")
'response.write("<p>Now(): " & now())
'response.write("<p> Imagem do dia -> " & WeekDay(now()))
min = 1
tabela.movelast
max = tabela.recordcount
' Função para obter um número aleatório entre os valores MIN e MAX
Randomize
numero_aleatorio = Int(((max - min + 1) * Rnd) + 1) + (min - 1)
'response.write("<p>MIN -> " & min)
'response.write("<p>MAX -> " & max)
'response.write("<p>Número aleatório -> " & numero_aleatorio)
i = 1
tabela.movefirst
while i < numero_aleatorio
i = i + 1
tabela.movenext
wend
response.write("<p>" & tabela("IMG_DSG") & "<p>")
response.write("<p><img src='img/" & tabela("img_url") & "'></p>")
tabela.close
conexao.close
set tabela = nothing
set conexao = nothing
%>
</center>
</body>
</html>
