<%@Language="VBScript" %>
<%Option Explicit %>
<%
'-----------------------------------------------------------------------------------------------------------------------
' Copyright 2003 Newsoft s.n.c. All Rights Reserved
'
' Software Sviluppato da Alessandro Bizzotto
' Newsoft s.n.c.
' Strada Marchesane, 173
' 36061 Bassano del Grappa (VI)
' tel 0424 504157
' fax 0424 502217
' e-mail newsoft@nsoft.it
'-----------------------------------------------------------------------------------------------------------------------
' on error resume next
' Funzione che genera numeri casuali
Function Random(limite)
Randomize()
Random=int(rnd*limite)+1
End Function
Dim iRandom
iRandom=Random(6)
Dim strFoto, strFondo
Select Case iRandom
Case 1
strFoto = "logo_01.jpg"
strFondo = "sfondo_01.jpg"
Case 2
strFoto = "logo_02.jpg"
strFondo = "sfondo_02.jpg"
Case 3
strFoto = "logo_03.jpg"
strFondo = "sfondo_03.jpg"
Case 4
strFoto = "logo_04.jpg"
strFondo = "sfondo_04.jpg"
Case 5
strFoto = "logo_05.jpg"
strFondo = "sfondo_05.jpg"
Case 6
strFoto = "logo_06.jpg"
strFondo = "sfondo_06.jpg"
End Select
%>
... CENTOPERCENTO ...