<%@LANGUAGE = VBScript%> <% If Request.QueryString("artistid") = "" Then Response.Redirect("artists.asp") End If myConn.Open Dim mySQL Dim rs Set rs = Server.CreateObject("ADODB.Recordset") Dim ArtistID ArtistID = Request.QueryString("artistid") mySQL = "SELECT arNome, arCognome, arDescrizione, arPath, arEmail, arSitoInternet, arContatti " & _ "FROM Artisti " & _ "WHERE arID = " & ArtistID rs.Open mySQL, myConn %>
<%= rs("arCognome") %> <%= rs("arNome") %>
 
<% PlaceImage "artists/" & rs("arPath") & "/fotos/default.jpg", 120 %>   <%= Replace(rs("arDescrizione"), chr(13), "
") %>

Links   <% If rs("arEmail") = "" And rs("arSitoInternet") = "" And rs("arContatti") = "" Then %> No links available <% Else If rs("arEmail") <> "" Then %> E-mail: "><%= rs("arEmail") %>
<% End If If rs("arSitoInternet") <> "" Then %> Web: " target="_blank"><%= rs("arSitoInternet") %>
<% End If If rs("arContatti") <> "" Then %> Contact: <%= rs("arContatti") %>
<% End If End If %>

Details of artist   <% rs.Close mySQL = "SELECT teID, teTitolo " & _ "FROM TestiArtisti " & _ "WHERE teIDArtista = " & ArtistID & " AND teNascosto IS NULL " & _ "ORDER BY teIndice" rs.Open mySQL, myConn If rs.BOF And rs.EOF Then %> No details available <% Else Do Until rs.EOF %> "><%= rs("teTitolo") %>
<% rs.MoveNext Loop End If %>


<% rs.Close Dim i i = 1 mySQL = "SELECT opID, opIndice, opTitolo, arPath " & _ "FROM OpereArtisti " & _ "INNER JOIN Artisti ON OpereArtisti.opIDArtista = Artisti.arID " & _ "WHERE opIDArtista = " & ArtistID & " AND opNascosto IS NULL " & _ "ORDER BY opIndice" rs.Open mySQL, myConn If rs.BOF And rs.EOF Then %> No foto available <% Else Do Until rs.EOF If i = 1 Then %> <% End If %> <% i = i + 1 rs.MoveNext If i = 6 or rs.EOF Then i = 1 %> <% End If Loop End If %>
"> <% PlaceImage "artists/" & rs("arPath") & "/operas/" & CStr(rs("opIndice")) & ".jpg", 100 %>
<%= rs("opTitolo") %>
     
<% rs.Close %>