<%
myConn.Open
Dim mySQL
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
mySQL = "SELECT arID, arNome, arCognome, arTipiOpere, arTecniche " & _
"FROM Artisti " & _
"WHERE arNascosto IS NULL " & _
"ORDER BY arCognome, arNome"
rs.Open mySQL, myConn
Do Until rs.EOF
%>