Pieces Listed Alphabetically

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim qry DIM SQLStmt SQLStmt = "SELECT p.Name AS P_Name, p.Year, p.ID, p.Include, u.Number, i.Name AS I_Name, i.PluralName " SQLStmt = SQLStmt & "FROM Piece AS p " SQLStmt = SQLStmt & "LEFT OUTER JOIN (InstrumentsUsed AS u LEFT OUTER JOIN Instrument AS i ON u.Instrument = i.ID) ON p.ID = u.Piece " SQLStmt = SQLStmt & "WHERE p.Include = TRUE " SQLStmt = SQLStmt & "ORDER BY p.name" Set qry = oConn.Execute(SQLStmt) %> Pieces Listed Alphabetically

Pieces Listed Alphabetically

<% Do While not qry.EOF IF not currentPiece = qry.Fields("ID") Then response.write("") response.write("") response.write("") currentPiece = qry.Fields("ID") response.write("") response.write("") response.write("

") response.write("") response.write(qry.Fields("P_Name")) response.write("") response.write("

") response.write(qry.Fields("Year")) response.write("

") IF qry.Fields("Number") > 1 THEN response.write(qry.Fields("Number") & " " & qry.Fields("PluralName")) ELSE response.write(qry.Fields("I_Name")) END IF Else response.write(", ") IF qry.Fields("Number") > 1 THEN response.write(qry.Fields("Number") & " " & qry.Fields("PluralName")) ELSE response.write(qry.Fields("I_Name")) END IF End IF qry.MoveNext Loop %>

<% qry.Close oConn.Close Set oConn = Nothing Set qry = Nothing %>