<%@ Language=VBScript %> <% Option Explicit %> <% Dim appid, rs appid = Request.Querystring("appid") ' Basic validation - must be numeric and positive If Not IsNumeric(appid) Or CLng(appid) < 1 Then Response.Redirect("displayapplications.asp") Response.End End If appid = CLng(appid) ' Convert to long integer Dim theme theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF ' Simple query with validated integer Dim strSQL strSQL = "SELECT a.*, s.teamname, s.teamurl, o.appowner, o.sso " & _ "FROM applications a " & _ "INNER JOIN supportteams s ON a.supportteamid = s.supporteamid " & _ "INNER JOIN appowners o ON s.appownerid = o.appownerid " & _ "WHERE a.appid = " & appid set rs = objconn.Execute(strSQL) If rs.EOF Then Response.Redirect("displayapplications.asp") objConn.Close Response.End End If %>
" alt="Card image cap">
" alt="profile-image" class="profile">

<%=Server.HTMLEncode(rs("appname") & "")%>

Support Team:

App Owner:

SSO:

<% Dim installPath, docPath, appLink installPath = rs("installpath") & "" appLink = rs("applicationlink") & "" docPath = rs("documentationpath") & "" If appLink <> "" Then Response.Write("

Application Link:

") End If If installPath <> "" Then Response.Write("

Installation Files:

") End If If docPath <> "" Then Response.Write("

Documentation:

") End If %>
<% Dim teamUrl teamUrl = rs("teamurl") & "" If teamUrl <> "" Then Response.Write("

" & Server.HTMLEncode(rs("teamname")) & "

") Else Response.Write("

" & Server.HTMLEncode(rs("teamname")) & "

") End If %>

@geaerospace.com" title="Click here for Teams Chat"><%=Server.HTMLEncode(rs("appowner") & "")%>

<%=Server.HTMLEncode(rs("sso") & "")%>

<% If appLink <> "" Then Response.Write("

Launch Application

") End If If installPath <> "" Then Response.Write("

Download Installation Files

") End If If docPath <> "" Then Response.Write("

View Documentation

") End If %>
Application Notes
<%Response.Write(rs("appname"))%>:
<%Response.Write(rs("applicationnotes"))%>
Related Knowledge Base Articles
<% ' Query knowledge base articles for this application ' Use keyword matching similar to search.asp - match on app name in keywords/description Dim rsKB, sqlKB, appName appName = rs("appname") & "" ' Search for articles where keywords or shortdescription contain the app name ' Also include articles explicitly linked via appid ' Sort by clicks (highest first), then prioritize directly linked articles sqlKB = "SELECT linkid, linkurl, shortdescription, COALESCE(clicks, 0) as clicks, " & _ "CASE WHEN appid = " & appid & " THEN 1 ELSE 0 END as direct_link, " & _ "CAST(COALESCE(clicks, 0) AS SIGNED) as clicks_num " & _ "FROM knowledgebase " & _ "WHERE isactive = 1 " & _ "AND (appid = " & appid & " " & _ " OR keywords LIKE '%" & Replace(appName, "'", "''") & "%' " & _ " OR shortdescription LIKE '%" & Replace(appName, "'", "''") & "%') " & _ "ORDER BY clicks_num DESC, direct_link DESC" Set rsKB = objConn.Execute(sqlKB) If Not rsKB.EOF Then %>
<% ' Declare loop variables once outside the loop Dim kbClicks, kbDesc, kbClicksNum While Not rsKB.EOF ' Get click count with proper error handling On Error Resume Next kbClicks = rsKB("clicks") If Err.Number <> 0 Or IsNull(kbClicks) Or kbClicks = "" Then kbClicks = 0 End If ' Convert to number for comparison kbClicksNum = CLng(kbClicks) If Err.Number <> 0 Then kbClicksNum = 0 kbClicks = 0 End If ' Get description kbDesc = rsKB("shortdescription") If Err.Number <> 0 Or IsNull(kbDesc) Then kbDesc = "[No description]" End If On Error Goto 0 %> <% rsKB.MoveNext Wend %>
Article Clicks
" target="_blank" title="<%=Server.HTMLEncode(kbDesc)%>" style="font-size: 1rem;"> <%=Server.HTMLEncode(kbDesc)%> <% ' Display click count with badge styling (improved contrast for readability) If kbClicksNum = 0 Then Response.Write("" & kbClicks & "") ElseIf kbClicksNum < 10 Then Response.Write("" & kbClicks & "") ElseIf kbClicksNum < 50 Then Response.Write("" & kbClicks & "") Else Response.Write("" & kbClicks & "") End If %>
<% Else ' No knowledge base articles found Response.Write("

") Response.Write("") Response.Write("No knowledge base articles found for this application.") Response.Write("

") End If rsKB.Close Set rsKB = Nothing %>
Edit Application
">
" required maxlength="50">
" maxlength="255">
" maxlength="512" placeholder="https://app.example.com or application://..."> Direct URL to launch or access the application
" maxlength="255" placeholder="\\server\share\installer.exe or http://...">
" maxlength="512" placeholder="\\server\docs or http://...">
" maxlength="255" placeholder="app-logo.png"> Place image in ./images/applications/ folder
>
>
>
>
>
Cancel
<% rs.Close Set rs = Nothing objConn.Close %>