<% ' Get and validate appid Dim appid appid = Request.Querystring("appid") ' Basic validation - must be numeric and positive If Not IsNumeric(appid) Or CLng(appid) < 1 Then Response.Redirect("displayknowledgebase.asp") Response.End End If ' Get the application name Dim strSQL, rsApp strSQL = "SELECT appid, appname FROM applications WHERE appid = " & CLng(appid) & " AND isactive = 1" Set rsApp = objConn.Execute(strSQL) If rsApp.EOF Then rsApp.Close Set rsApp = Nothing objConn.Close Response.Redirect("displayknowledgebase.asp") Response.End End If Dim appname appname = rsApp("appname") rsApp.Close Set rsApp = Nothing %> <% Dim theme theme = Request.Cookies("theme") IF theme = "" THEN theme="bg-theme1" END IF %>
Knowledge Base: <%=Server.HTMLEncode(appname)%>
<% Dim rs strSQL = "SELECT kb.* " &_ "FROM knowledgebase kb " &_ "WHERE kb.appid = " & CLng(appid) & " AND kb.isactive = 1 " &_ "ORDER BY kb.lastupdated DESC" Set rs = objconn.Execute(strSQL) If rs.EOF Then Response.Write("") Else Do While Not rs.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.MoveNext Loop End If rs.Close Set rs = Nothing objConn.Close %>
Description Clicks Last Updated
No articles found for this topic.
" & Server.HTMLEncode(rs("shortdescription")) & "" & rs("clicks") & "" & rs("lastupdated") & "