Download 

Download

Titolo Sondaggio homepage Random
Descrizione Il codice sotto inserito nella pagina poll-inc.asp permette di visualizzare i sondaggi in modo random.
Per il momento anche se funzionanete può essere migliorato, il vostro aiuto non farebbe male.

-----------------------------------------------

CODICE DA AGGIUNGERE DALLA RIGA 76 IN POI:

' RANDOM POLLS
rSQL = "SELECT MAX(pID) AS MaxId FROM polls"
set oRs = oCn.Execute(rSQL)

If Not oRs.Eof Then
MaxId = oRs("MaxId")
Else
MaxId = 0
End If
oRs.Close
Set oRs = Nothing

Randomize
RandomNumber = Rnd * MaxId + 1
' FINE RAMDOM POLLS

'rSQL = "SELECT prID, pColor, pTitle, prHits, prText FROM polls, pollsresults WHERE pID=prPoll AND pValid=1 AND pID=" & iID
rSQL = "SELECT polls.*, pollsresults.*, polls.pValid, polls.pID, polls.pID FROM polls, pollsresults WHERE (((polls.pValid)=True) AND ((polls.pID)=(" & Cint(RandomNumber) & ") And (polls.pID)=[prPoll]));"

'Response.write rSQL
'Response.End()

Commetata la riga della query, ed dimensionate due nuove variabili :

MaxId
RandomNumber


Spero che possa essere utile.

Ciao a tutti.

Mungo Mauro
Membrro : pathfinder
Data 10/05/05
Click 1761
Dimensione 0 Kb
Scarica adesso...
Torna indietro

Commenti

7 Commenti - 4,7/5 - Voti : 7
Inserito il 16 maggio 2005 alle 14:07:15 da pathfinder.  5/5
 
Ciao raga, ho notato che a volte il valore random è zero, perciò il sondaggio non appare ma appare la stringa sezione vuota.
Qualcuno ha risolto il difetto ?

Grazie
Inserito il 23 maggio 2005 alle 16:21:38 da pierin.  5/5
 
C'è già un sito on line, per poter vedere e valutare la cosa?
Grazie
Inserito il 26 luglio 2005 alle 18:16:36 da marcoasp.  4/5
 
Ciao,
anche se in ritardo, io l'ho risolto in maniera molto banale, ossia dopo la riga

RandomNumber = Rnd * MaxId + 1

ho aggiunto la seguente :

if RandomNumber=0 then RandomNumber = 1

Manca la risoluzione di un problema, lo sto vedendo ora, anche perchè l'ho scaricato adesso e' che cmq anche se la visualizzazione casuale dei sondaggi funziona per qualunque sondaggio visualizzato da sempre lo stesso totale voti, presumibilmente il primo o l'ultimo che si trova nel db.
Buon Lavoro :)
Inserito il 26 luglio 2005 alle 18:40:54 da marcoasp.  5/5
 
Ciao,
dimenticavo:
per quanto riguarda il problema relativo al valore random 0 oltre ad aggiungere la riga (banale) di cui commento precedente ho anche variato la riga

RandomNumber = Rnd * MaxId + 1

in

RandomNumber = Rnd * MaxId

Invece per il problema sempre riferito al commento precedente ossia al fatto del numero indicato come totale voti ho risolto così :

+ o - alla riga 116 e precisamente

While Not oRs.EOF
iTdWidth = Round(100*(oRs("prHits")/MaxHits))

ho aggiunto dopo quest'ultima la seguente :

nbVotes = nbVotes + oRS("prHits")


Pare funzioni, calcolate che io lo utilizzo con SQL server, magari (non credo) con Access andava bene.
8)

Buon Lavoro
Inserito il 26 luglio 2005 alle 18:42:44 da marcoasp.  4/5
 
una giornataccia,
riferito al commento precedente ho anche aggiunto ovviamente prima del ciclo
(riga 116 ca)
While Not oRs.EOF
iTdWidth = Round(100*(oR("prHits")/MaxHits))

la seguente riga

nbVotes = 0

Cià

Marco [lo]
Inserito il 26 luglio 2005 alle 19:01:37 da marcoasp.  5/5
 
rieccomi
putroppo lavorandoci ho trovato qualche altro piccolo bag, ad esempio randomizzando la visualizzazione si hanno problemi quando poi vado a visualizzare la pagina sondaggi, poi il conteggio del totale dei voti va rifatto anche da un'altra parte, quindi se mi dite come rimando tutto il file polls-inc.asp corretto e facciamo prima.....

Cià
Marco [big]
Inserito il 28 luglio 2005 alle 15:08:15 da pathfinder.  5/5
 
Ottima soluzione marcoasp.

Aggiungi - Commenti

Login Anonimo
Messaggio
[b] [i] [u] [s] [url] [img] [cit]
Codice di sicurezza
Vota! / 5

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 115
Membri : 0 offline Anna

Iscritti

 Utenti: 18943
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2820 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 425 Notizie: 180 Sondaggi: 11 Preferiti: 2306481 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi