Sorteio Registros

[Guest - qwert133 -]

Eu tenho um codigo de sistema de fotos, onde eu quero que ele randomize os registros da tabela e não repita até chegar ao fim, pois o sistema é de votação, ai quando você vai votando vai passando as fotos, tipo, :

Das fotos não repeti já está funcionando, passa todas as fotos cadastradas e quando termina vai para uma outra página,

O unico problema agora que tenho é fazer com q as fotos não fique na mesma ordem toda vez, assim:

ela fica na ordem de cadastro: foto1, foto2, foto3, foto4...

eu queria colocar para ela aparecer randomizado...

o codigo é esse:

<%

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>

[Victor]

é só você usar o if, tipo assim:

<%if request.form("botao") <> "" then
randomize.....
else
RecSet("foto")
end if%>

Tipo assim, caso tenha mais alguma dúvida é só postar que nós te ajudaremos!!!

[]'s

Victor

[Guest - Qwert133 -]

Faltou esse codigo que é o que a votação usa no formulario, e no fim redireciona para a mesma pagina:

<%

set cmdVoting = Server.CreateObject("ADODB.Command")

cmdVoting.ActiveConnection = MM_connDUpics_STRING

cmdVoting.CommandText = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")

cmdVoting.CommandType = 1

cmdVoting.CommandTimeout = 0

cmdVoting.Prepared = true

cmdVoting.Execute()

Response.Cookies(Request.Form("iPic")) = Request.Form("voteValue")

Response.Cookies(Request.Form("iPic")).Expires = Date + 1000

Response.Redirect "default.asp?iPic=" & Request.Form("iPic")

%>

Eu acho que é aqui, que tem que mudar alguma coisa, no

Response.Redirect "default.asp?iPic=" & Request.Form("iPic")

pois é nele que as fotos vão passando, aqui que teria q randomizar;