<%
Response.ContentType = "text/html"
Dim objConn, rs, sql, appid, appName
appid = 8
appName = "eMX"
Set objConn = GetDatabaseConnection()
sql = "SELECT linkid, shortdescription, clicks, appid, " & _
"CASE WHEN appid = " & appid & " THEN 1 ELSE 0 END as direct_link " & _
"FROM knowledgebase " & _
"WHERE isactive = 1 " & _
"AND (appid = " & appid & " " & _
" OR keywords LIKE '%" & Replace(appName, "'", "''") & "%' " & _
" OR shortdescription LIKE '%" & Replace(appName, "'", "''") & "%') " & _
"ORDER BY direct_link DESC, clicks + 0 DESC, shortdescription ASC"
Response.Write("SQL Query:
")
Response.Write("" & Server.HTMLEncode(sql) & "
")
Response.Write("Results:
")
Response.Write("")
Response.Write("| LinkID | Description | Clicks | AppID | Direct Link |
|---|
")
Set rs = objConn.Execute(sql)
While Not rs.EOF
Response.Write("")
Response.Write("| " & rs("linkid") & " | ")
Response.Write("" & Server.HTMLEncode(rs("shortdescription")) & " | ")
Response.Write("" & rs("clicks") & " | ")
Response.Write("" & rs("appid") & " | ")
Response.Write("" & rs("direct_link") & " | ")
Response.Write("
")
rs.MoveNext
Wend
Response.Write("
")
rs.Close
objConn.Close
%>