<%@ Language=VBScript %> <% Dim appid, rs, theme, kbClicks, kbDesc, kbClicksNum Dim strSQL, installPath, docPath, appLink, teamUrl Dim rsKB, sqlKB, appName, rsSupportTeams, sqlSupportTeams Dim rsAppOwners, sqlAppOwners appid = Request.Querystring("appid") ' Get highlight parameter for shared links Dim highlightId highlightId = Request.QueryString("highlight") ' 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 theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF ' Simple query with validated integer 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 %>
Link Copied! This link will show the search term and highlight the result
" alt="<%=Server.HTMLEncode(rs("appname") & "")%>" onclick="openLightbox()" title="Click to enlarge">
" alt="profile-image" class="profile">

<%=Server.HTMLEncode(rs("appname") & "")%>
<% Dim appDescription appDescription = rs("appdescription") & "" If appDescription <> "" Then Response.Write("

" & Server.HTMLEncode(appDescription) & "

") End If %>

Support Team:

App Owner:

SSO:

<% 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 %>
<% 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
<%=Server.HTMLEncode(rs("appname") & "")%>:
<%=rs("applicationnotes") & ""%>
Related Knowledge Base Articles
<% ' Query knowledge base articles directly linked to this application sqlKB = "SELECT linkid, linkurl, shortdescription, COALESCE(clicks, 0) as clicks " & _ "FROM knowledgebase " & _ "WHERE isactive = 1 AND appid = " & appid & " " & _ "ORDER BY clicks DESC" Set rsKB = objConn.Execute(sqlKB) If Not rsKB.EOF Then %>
<% 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 ' Check if this row should be highlighted Dim rowClass, kbLinkId kbLinkId = rsKB("linkid") rowClass = "" If highlightId <> "" And CStr(kbLinkId) = CStr(highlightId) Then rowClass = " class='highlighted-result'" End If %> > <% rsKB.MoveNext Wend %>
Article Clicks Share
<%=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 %>