18 luglio 2005 alle 11:05:47

<%
Sub DisplayGallery()

Dim oCn, oRs, rSQL, idArray, idRandom, idSELECT, idAuthor, iPath1, iPath2, iPath3, iPath4, iPath5, iHits, iTitle, iPath

CreateTopTable "RandGallerie", GetTranslation("LANG_RANDOMGALLERY")

on error resume next

Set oCn = DBConnexion(DB_MAIN)
rSQL = "SELECT gID, gUser, gFoto1, gFoto2, gFoto3, gFoto4, gFoto5, gHits FROM gallerie where gStato = true "

Set oRs = DBRecordSet(oCn, rSQL)
idArray = oRs.getRows
oRs.Close
set oRs = Nothing
oCn.Close
set oCn = Nothing

Randomize
idSELECT = Int((ubound(idArray, 2) - lbound(idArray, 2) + 1) * Rnd + lbound(idArray, 2))
idRandom = idArray(0, idSELECT)
idAuthor = idArray(1, idSELECT)
iPath1 = idArray(2, idSELECT)
iPath2 = idArray(3, idSELECT)
iPath3 = idArray(4, idSELECT)
iPath4 = idArray(5, idSELECT)
iPath5 = idArray(6, idSELECT)
iHits = idArray(7, idSELECT)
'iPath = (iPath1 - iPath2 +1) * Rnd + iPath

'idSELECT = Int((ubound(idArray, 2) - lbound(idArray, 2) + 1) * Rnd + lbound(idArray, 2))

Response.Write "<br><a href= " & GLOBAL_SITE_PATH & "galleria.asp?id=" & idAuthor & "><p align=""center""><img src=""" & GLOBAL_SITE_PATH & iPath3 & """ border=""0"" width=""100"" height=""100""></a>"
Response.Write "<br><font class=""small"">" & idAuthor & " - (" & iHits & ")Click "

on error goto 0

CreateBottomTable ""

End Sub

%>