<%@LANGUAGE = VBScript%> <% Dim mySQL Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Dim ArtistID Randomize() myConn.Open mySQL = "SELECT MAX(arID) AS massimo FROM Artisti" rs.Open mySQL, myConn MaxArtistID = rs("massimo") rs.Close Do If MaxArtistID = 0 Then Exit Do ArtistID = CInt((MaxArtistID - 1) * Rnd() + 1) mySQL = "SELECT arID, arPath, arNome, arCognome, arTipiOpere, arTecniche " & _ "FROM Artisti " & _ "WHERE arID = " & ArtistID & " AND arNascosto IS NULL" rs.Open mySQL, myConn If Not rs.EOF Then %>

<% PlaceImage "artists/" & rs("arPath") & "/fotos/default.jpg", 120 %>

<%= rs("arCognome") %> <%= rs("arNome") %>
Types of art: <%= rs("arTipiOpere") %>
Techniques: <%= rs("arTecniche") %>

<% Exit Do End If rs.Close Loop rs.Close myConn.Close %> <% Dim MaxOperaID Dim OperaID myConn.Open mySQL = "SELECT MAX(opID) AS massimo FROM OpereArtisti" rs.Open mySQL, myConn MaxOperaID = rs("massimo") rs.Close For r = 1 To 2 %> <% For c = 1 To 4 Do If MaxOperaID = 0 Then Exit Do OperaID = CInt((MaxOperaID - 1) * Rnd() + 1) mySQL = "SELECT opID, opIndice, opTitolo, arPath, arNome, arCognome " & _ "FROM OpereArtisti " & _ "INNER JOIN Artisti ON OpereArtisti.opIDArtista = Artisti.arID " & _ "WHERE opID = " & OperaID & " AND opNascosto IS NULL" rs.Open mySQL, myConn If Not rs.EOF Then %> <% Exit Do End If rs.Close Loop rs.Close Next %> <% Next myConn.Close %>


"> <% PlaceImage "artists/" & rs("arPath") & "/operas/" & CStr(rs("opIndice")) & ".jpg", 100 %> <%= rs("opTitolo") %> by <%= rs("arCognome") %> <%= rs("arNome") %>