<% strSQL = "SELECT m.machinenumber, a.appname, ia.machineid, av.version " & _ "FROM installedapps ia " & _ "INNER JOIN machines m ON ia.machineid = m.machineid " & _ "INNER JOIN applications a ON ia.appid = a.appid " & _ "LEFT JOIN appversions av ON ia.appversionid = av.appversionid " & _ "WHERE ia.isactive = 1 AND ia.appid = " & CLng(appid) & " " & _ "ORDER BY m.machinenumber ASC" set rs = objconn.Execute(strSQL) while not rs.eof Response.write("") Dim versionDisplay versionDisplay = rs("version") & "" If versionDisplay = "" Then versionDisplay = "-" %> <% rs.movenext wend objConn.Close %>

Machine	Application	Version
" title="View Machine Details"><%Response.Write(Server.HTMLEncode(rs("machinenumber") & ""))%>	<%Response.Write(Server.HTMLEncode(rs("appname") & ""))%>	<%Response.Write(versionDisplay)%>