Ciao a tutti amici,
sentite ho un problemone....
Ho questo script (che ora vi elenco)
mi sapreste dire come faccio a dirgli di far comparire l'immagine in random e non sequenziale???
Ve ne sarei molto grato AIUTATEMIIIII
<%
Dim rsRandPic
Dim rsRandPic_numRows
Dim strSql
If Request.QueryString("iPic") <> "" Then
strSql = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 AND PIC_ID > " & Request.QueryString("iPic") & " ORDER BY PIC_ID ASC"
Else
strSql = "SELECT * FROM PICTURES WHERE PIC_APPROVED = 1 ORDER BY PIC_ID ASC"
End If
%>
<%
Set rsRandPic = Server.CreateObject("ADODB.Recordset")
rsRandPic.ActiveConnection = MM_connDUpics_STRING
rsRandPic.Source = strSql
rsRandPic.CursorType = 0
rsRandPic.CursorLocation = 2
rsRandPic.LockType = 1
rsRandPic.Open()
rsRandPic_numRows = 0
%>
<%
If rsRandPic.EOF or rsRandPic.BOF then
Response.Redirect("view.asp")
End If
%>
<%
Dim imgWidth, imgHeight, imgPercent, imgFixWidth, imgFixHeight
imgWidth = rsRandPic.Fields.Item("PIC_WIDTH").Value
imgHeight = rsRandPic.Fields.Item("PIC_HEIGHT").Value
imgFixWidth = 618
imgPercent = (imgFixWidth/imgWidth)
imgFixHeight= (imgHeight*imgPercent)
%>
<link href="assets/DUpics.css" rel="stylesheet" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function OpenImage(img){
foto1= new Image();
foto1.src=(img);
Controlla(img);
}
function Controlla(img){
if((foto1.width!=0)&&(foto1.height!=0)){
viewFoto(img);
}
else{
funzione="Controlla('"+img+"')";
intervallo=setTimeout(funzione,20);
}
}
function viewFoto(img){
largh=foto1.width+20;
altez=foto1.height+20;
stringa="width="+largh+",height="+altez;
finestra=window.open(img,"",stringa);
}
// End -->
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="1" colspan="2" align="center" bgcolor="#FFFFFF">[img]assets/_spacer.gif[/img]</td>
</tr>
<tr>
<td height="16" align="left" valign="middle" bgcolor="#000000" class="textBold"><font color="#FFFFFF"><%=(rsRandPic.Fields.Item("PIC_NAM E").Value)%></font></td>
<td height="16" align="right" bgcolor="#000000" class="textBold"><font color="#FFFFFF">Votes:
<%=(rsRandPic.Fields.Item("PIC_VOTE_COUNT").Value) %></font></td>
</tr>
<tr>
<td height="1" colspan="2" align="center" bgcolor="#FFFFFF">[img]assets/_spacer.gif[/img]</td>
</tr>
<tr>
<form name="VOTE" method="post" action="voting.asp">
<td colspan="2" align="center" valign="middle" bgcolor="#FF0000"> <table width="100%" border="0" cellpadding="0" cellspacing="0" background="assets/rate_bar.gif">
<tr align="center" valign="middle">
<input type="hidden" name="PIC_VOTE_VALUE" value="<%=(rsRandPic.Fields.Item("PIC_VOTE_VALUE") .Value)%>">
<input type="hidden" name="iPic" value="<%=(rsRandPic.Fields.Item("PIC_ID").Value)% >">
<input type="hidden" name="PIC_VOTE_COUNT" value="<%=(rsRandPic.Fields.Item("PIC_VOTE_COUNT") .Value)%>">
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">1</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">2</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">3</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">4</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">5</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">6</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">7</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">8</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">9</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">10</font></td>
</tr>
<tr align="center" valign="middle">
<td> <input type="radio" name="voteValue" value="1" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="2" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="3" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="4" onclick="this.form.submit()">
</td>
<td> <input name="voteValue" type="radio" onclick="this.form.submit()" value="5" checked>
</td>
<td> <input type="radio" name="voteValue" value="6" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="7" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="8" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="9" onclick="this.form.submit()">
</td>
<td> <input type="radio" name="voteValue" value="10" onclick="this.form.submit()">
</td>
</tr>
</table></td>
</form>
</tr>
<tr>
<td height="1" colspan="2" align="center" bgcolor="#FFFFFF">[img]assets/_spacer.gif[/img]</td>
</tr>
<tr>
<td colspan="2" align="center" bgcolor="#999999"> <table border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td align="center" valign="middle" bgcolor="#CCCCCC">')" BORDER="0">[img]pictures/<%=(rsRandPic.Fields.Item([/img]" width = "<%= imgFixWidth %>" height = "<%= imgFixHeight %>" alt = "Download <%=(rsRandPic.Fields.Item("PIC_NAME").Value)%> (<%=(rsRandPic.Fields.Item("PIC_WIDTH").Value)%>Wx <%=(rsRandPic.Fields.Item("PIC_HEIGHT").Value)%>H) " border="0" align="absmiddle"></td>
</tr>
</table></td>
</tr>
</table>
<%
rsRandPic.Close()
%>
Rispondi quotando
