28 giugno 2005 alle 11:37:26

<%
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=""Foto"" 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
%>