E' possibile creare una rotazione?

**Artgallery75** · 05-01-2007, 19:53

Salve.
Ho questo file:
http://www.agenziaprofessionespettac...odellehome.asp
Dove viene stampato a video alcuni dati presenti in un database access!!!
Qui il tutto è basato sulla data di modifica. Volevo sapere se tale file poteva essere adattato in modo che le ragazze venissero visualizzate casualmente.
Poi se è possibile far visualizzare il tutto in orizzontale invece che in verticale.

Questo è lo script che ha un include di connessione:

<%@ Language=VBScript %>
<%
Option explicit
Response.Buffer = true
%>

<%

'Dichiarazione variabili
dim cn, rs, mySQL
dim id
dim sezione
dim urlScheda
dim urlFoto
dim novita
dim intTesto
dim intVolta
dim intSfondo
intVolta="0"

'Apre la connessione al database casting1
call openDBcasting1()
%>

<html>
<head>
<link rel="stylesheet" href="http://www.agenziaprofessionespettacolo.it/link.css" type="text/css">
<title>.:: Modelle ::.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="5%" id="AutoNumber1" height="388" background="http://www.agenziaprofessionespettacolo.it/images/sfondo_menu.jpg">
<tr>
<td width="100%" height="388" background="http://www.agenziaprofessionespettacolo.it/images/sfondo_menu.jpg"><center>
<TABLE border="1" width="140" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" height="706">
<%

urlScheda="http://www.agenziaprofessionespettacolo.it/"
urlFoto="http://www.agenziaprofessionespettacolo.it/immaginette/"

'Recupera le ultime due modelle modificate
mySQL = "SELECT TOP 3 * " _
& "FROM modelle "_
& "ORDER BY dataModifica desc"
set rs = openRSexecute(mySQL)

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#4699f4"
else
intVolta="1"
intTesto="#000000"
intSfondo="#93c4f9"
end if
%>
<TR bgcolor="<%=intSfondo%>">
<TD width="453" height="140" align="left">

MODELLA

<a href="#" onClick="window.open('<%=urlScheda%>scheda.asp?sez ione=modelle&id=<%=rs("id")%>','popup','resizable= yes,width=790,height=550');">
[img]<%=urlFoto%><%=rs([/img]" style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="62" height="49" /></a>
[B]<%=rs("nome")%>

<%=rs("residenza")%>

[b](<%=rs("dataModifica")%>)


</TD>
</TR>
<%
rs.movenext
loop
rs.Close

'Recupera le ultime due showgirls
mySQL = "SELECT TOP 1 * " _
& "FROM showgirl "_
& "ORDER BY dataModifica desc"
set rs = openRSexecute(mySQL)

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#4699f4"
else
intVolta="1"
intTesto="#000000"
intSfondo="#93c4f9"
end if
%>
<TR bgcolor="<%=intSfondo%>">
<TD width="453" height="140" align="left">

SHOWGIRL

<a href="#" onClick="window.open('<%=urlScheda%>scheda.asp?sez ione=showgirl&id=<%=rs("id")%>','popup','resizable =yes,width=790,height=550');">
[img]<%=urlFoto%><%=rs([/img] " style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="62" height="49" /></a>
[B]<%=rs("nome")%>

<%=rs("residenza")%>

[b](<%=rs("dataModifica")%>)

</TD>
</TR>
<%
rs.movenext
loop
rs.Close

'Recupera gli ultimi due modelli
mySQL = "SELECT TOP 1 * " _
& "FROM modelli "_
& "ORDER BY dataModifica desc"
set rs = openRSexecute(mySQL)

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#4699f4"
else
intVolta="1"
intTesto="#000000"
intSfondo="#93c4f9"
end if
%>
<TR bgcolor="<%=intSfondo%>">
<TD width="453" height="140" align="left">

MODELLO

<a href="#" onClick="window.open('<%=urlScheda%>scheda.asp?sez ione=modelli&id=<%=rs("id")%>','popup','resizable= yes,width=790,height=550');">
[img]<%=urlFoto%><%=rs([/img]" style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="62" height="49" /></a>
[B]
<%=rs("nome")%>
<%=rs("residenza")%>

[b](<%=rs("dataModifica")%>)

</TD>
</TR>
<%
rs.movenext
loop
rs.Close

'Recupera gli ultimi due volti_nuovi
mySQL = "SELECT TOP 2 * " _
& "FROM volti_nuovi "_
& "ORDER BY dataModifica desc"
set rs = openRSexecute(mySQL)

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#4699f4"
else
intVolta="1"
intTesto="#000000"
intSfondo="#93c4f9"
end if
%>
<TR bgcolor="<%=intSfondo%>">
<TD width="453" height="140" align="left">

VOLTO NUOVO

<a href="#" onClick="window.open('<%=urlScheda%>scheda.asp?sez ione=volti_nuovi&id=<%=rs("id")%>','popup','resiza ble=yes,width=790,height=550');">
[img]<%=urlFoto%><%=rs([/img]" style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="62" height="49" /></a>
[B]
<%=rs("nome")%>
<%=rs("residenza")%>

[b](<%=rs("dataModifica")%>)


</TD>
</TR>
<%
rs.movenext
loop
rs.Close

set rs = Nothing
call closeDBcasting1()
%>
</TABLE>
</center></td>
</tr>
</table>
</body>
</html>

**ciucciatiilcalzino** · 05-01-2007, 21:37

non è facile ma si può fare
credo che intenri qualcosa del genere http://www.trovashop.it

ti spiego in breve cosa fare
estrai il numero massimo dei tuoi utenti
e la usi in una funzione random di asp
questa ti tira furi un numero casuale compreso in questo tot di numeri che hai
(qui farei una verifica se ti esiste davvero quell'id)
a questo punto lo puoi inserire in un array

rifai il tutto, solo che ai prossimi passagi verifiche che quel id non sia già presente nel tuo array

a questo punto invece di tirare fuori con un ciclo dall db in sequeza le foto
tiri fuori solo quelli con quell'id

potresti anche nei precedenti passaggi di salvataggio id salvarti in un altro array le foto

**Artgallery75** · 05-01-2007, 21:39

Questa deve essere la stringa che dovrei modificare.
Come posso fare a dirgli a tale script ORDER BY casuale?

mySQL = "SELECT TOP 1 * " _
& "FROM modelle "_
& "ORDER BY id desc"

Questo è il nuovo link: http://www.agenziaprofessionespettac...rotmodelle.asp

Il codice ora è così:
<%@ Language=VBScript %>
<%
Option explicit
Response.Buffer = true
%>

<%

'Dichiarazione variabili
dim cn, rs, mySQL
dim id
dim sezione
dim urlScheda
dim urlFoto
dim novita
dim intTesto
dim intVolta
dim intSfondo
intVolta="0"

'Apre la connessione al database casting1
call openDBcasting1()
%>

<html>
<head>
<link rel="stylesheet" href="http://www.agenziaprofessionespettacolo.it/link.css" type="text/css">
<title>.:: Modelle ::.</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0">
<TABLE border="1" width="265" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0" height="118">
<%

urlScheda="http://www.agenziaprofessionespettacolo.it/"
urlFoto="http://www.agenziaprofessionespettacolo.it/imgschede/"

'Recupera le ultime due modelle modificate
mySQL = "SELECT TOP 1 * " _
& "FROM modelle "_
& "ORDER BY id desc"
set rs = openRSexecute(mySQL)

do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#FFFFFF"
intSfondo="#000000"
else
intVolta="1"
intTesto="FFFFFF"
intSfondo="#000000"
end if
%>
<TR bgcolor="<%=intSfondo%>">
<TD width="86" height="116" align="left">scheda.asp?sezione=modelle&id=<%=rs("id")%>','popu p','resizable=yes,width=790,height=550');">[img]<%=urlFoto%><%=rs([/img]" style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="72" height="73" />

<%=rs("nome")%>

<%=rs("residenza")%>

</TD>
<TD width="86" height="116" align="left">scheda.asp?sezione=modelle&id=<%=rs("id")%>','popu p','resizable=yes,width=790,height=550');">[img]<%=urlFoto%><%=rs([/img]" style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="72" height="73" />

<%=rs("nome")%>

<%=rs("residenza")%>

</TD>
<TD width="86" height="116" align="left">scheda.asp?sezione=modelle&id=<%=rs("id")%>','popu p','resizable=yes,width=790,height=550');">[img]<%=urlFoto%><%=rs([/img]" style="border-style: solid; border-color: #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" width="72" height="73" />

<%=rs("nome")%>

<%=rs("residenza")%>

</TD>
</TR>
<%
rs.movenext
loop
rs.Close

set rs = Nothing
call closeDBcasting1()
%>
</TABLE>
</body>
</html>

Discussione: E' possibile creare una rotazione?

Strumenti discussione

Ricerca discussione

Visualizza

E' possibile creare una rotazione?

Ho snellito il tutto!! Però mi da sempre un ordine!!

Permessi di invio