<% If filterType <> "" And filterType <> "installable" Then %>
Clear
<% End If %>
Files
Docs
App Name
Support DL
App Owner
<%
' 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("