Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Blocco FotoRandom!

Autore Messaggio
nostranselmus

Eliminato
Eliminato
0 Discussione



Profilo - nostranselmus
27 giugno 2005 alle 14:43:14 Profilo - nostranselmusInvia un messaggio privato Rispondi quotando
Ho inserito il blocco FotoRandom ma non mi carica le foto.. COME MAI??? Le immagini ci sono..
Questo è il codice che ho inserito..

<%
Sub DisplayPhoto()
' IMPORTANTISSIMO!! inserite sempre nel vostro nuovo blocco la riga Sub Display() per poi richiamare il file nell'xml

CreateTopTable "Immagini", GetTranslation("LANG_LISTEN_TO_PHOTO")

Dim oCn, oRs, rSQL, idMIN, idMAX, idSELECT, iPath
on error resume next

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT min(iID) as MIN, max(iID) as MAX FROM images where iValid = 1"
Set oRs = DBRecordSet(oCn, rSQL)
idMIN = Server.URLEncode(oRs("MIN"))
idMAX = Server.URLEncode(oRs("MAX"))
oRs.Close
set oRs = Nothing

Randomize
idSELECT = Int((idMAX-idMIN) * Rnd) + idMIN
rSQL = "SELECT * FROM images where iValid = 1 and iID >= " & idSELECT
Set oRs = DBRecordSet(oCn, rSQL)
iPath = oRs("iSourceSmall")
Response.Write " <table border=""0"" width=""100%"">" & vbCRLF
Response.Write " <td><center>" & vbCRLF
if iPath <> "" then

Response.Write "<a href= " & GLOBAL_SITE_PATH & "images.asp?id=" & idSELECT & "><p align=""center""><img src=""" & iPath & """ border=""2"" width=""120"" alt=""Immagini di repertorio"" hspace=""3""></a>"
Response.Write "<br><font class=""small"">" & oRs("iTitle") & "(" & oRs("iHits") & ")</p>"
End if
Response.Write " </center></td>" & vbCRLF

Response.Write " </table>" & vbCRLF

oRs.Close
set oRs = Nothing
oCn.Close
set oCn = Nothing


CreateBottomTable ""

End Sub
%>


MOLTO probabilmente ho sbagliato io qualcosa.. :-), ma vorrei capire cosa!
mohan

Eliminato
Eliminato
0 Discussione



Profilo - mohan
30 luglio 2005 alle 10:25:36 Profilo - mohanInvia un messaggio privato Rispondi quotando
Se metti meno di tre foto non carica prova e fammi sapere a proposito dove hai preso questo codice Ciaoooooo e buon lavoro

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 : 202
Membri : 0 offline Anna

Iscritti

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

Versioni

Temi