<% ' Build SQL query based on filter Dim strSQL strSQL = "SELECT * FROM applications,supportteams, appowners WHERE " &_ "applications.supportteamid=supportteams.supporteamid AND " &_ "supportteams.appownerid=appowners.appownerid AND applications.isactive=1" ' Add isinstallable filter if showing only installable apps (default) If filterType = "installable" Then strSQL = strSQL & " AND applications.isinstallable=1" End If strSQL = strSQL & " Order By appname ASC" set rs = objconn.Execute(strSQL) While Not rs.EOF Response.Write("") ' Show download icon if installpath is set, or if applicationlink is set as fallback If Not IsNull(rs("installpath")) And rs("installpath") <> "" Then Response.Write("") ElseIf Not IsNull(rs("applicationlink")) And rs("applicationlink") <> "" Then Response.Write("") Else Response.Write("") End If If Not IsNull(rs("documentationpath")) And rs("documentationpath") <> "" Then Response.Write("") Else Response.Write("") End If Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Wend objConn.Close %>

Files	Docs	App Name	Support DL	App Owner
					" & Server.HTMLEncode(rs("appname") & "") & "	") Response.Write(Server.HTMLEncode(rs("teamname") & "")) Response.Write("	") Response.Write("" & Server.HTMLEncode(rs("appowner") & "") & "") Response.Write("	") Response.Write(Server.HTMLEncode(rs("sso") & "")) Response.Write("