<%@LANGUAGE = VBScript%> <% 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 %> <% rs.MoveNext Loop myConn.Close %>
"><%= rs("arCognome") %> <%= rs("arNome") %> <%= rs("arTipiOpere") %> <%= rs("arTecniche") %>