<% Dim articlecategory Dim articlesubcategory Dim articletype Dim cnnFormToDBselector Dim objRSselector Set cnnFormToDBselector = Server.CreateObject("ADODB.Connection") cnnFormToDBselector.Open strConnString articletopic = Replace(Request.QueryString("topic"),"_"," ") strsqlselector = "select * from kmdata where (articletitle like '"& articletopic &"%')" Set objRSselector = cnnFormToDBselector.Execute(strsqlselector) %> <% Dim cnnFormToDBrelated Dim objRSrelated Set cnnFormToDBrelated = Server.CreateObject("ADODB.Connection") cnnFormToDBrelated.Open strConnString strsqlrelated = "select * from kmrelated where mainarticleid='"& articleid &"'" Set objRSrelated = cnnFormToDBselector.Execute(strsqlrelated) %> <% Function Shorten(sString, sLength) If Len (sString) > sLength Then Shorten = Left(sString,sLength) & "...." Else Shorten = sString End If End Function %> <%= trim(objRSselector.Fields("articletitle")) %> <% Dim cnnFormToDB Dim objRS Set cnnFormToDB = Server.CreateObject("ADODB.Connection") cnnFormToDB.Open strConnString strsql = "select TOP 5 articleid, articletitle from kmdata order by articleid DESC" %> <% Dim cnnFormToDBread Dim objRSread Set cnnFormToDBread = Server.CreateObject("ADODB.Connection") cnnFormToDBread.Open strConnString strsqlread = "select TOP 5 articleid, articletitle from kmdata order by totalhits DESC" %> <% sql_update = "update kmdata set totalhits = totalhits + 1 where articleid ='"& articleid &"'" Set con = Server.CreateObject("ADODB.Connection") con.Open strConnString con.Execute sql_update con.Close Set con = Nothing %>
<%= trim(objRSselector.Fields("articletitle")) %>

Category: <%= trim(objRSselector.Fields("articlecategory")) %> Sub-category: <%= trim(objRSselector.Fields("articlesubcategory")) %>
Document type: <%= trim(objRSselector.Fields("articletype")) %>

<%= trim(objRSselector.Fields("articlematter")) %>

|
<% objRSselector.Close Set objRSselector = Nothing Set cnnFormToDBselector = Nothing %>
BROWSE FEATURES
MOST RECENT
<% Set objRS = cnnFormToDB.Execute(strsql) objRS.MoveFirst Do While Not objRS.EOF %> "> • <%= Shorten(trim(objRS.Fields("articletitle")),28) %>
<% objRS.MoveNext Loop objRS.Close Set objRS = Nothing Set cnnFormToDB = Nothing %>
MOST READ
<% Set objRSread = cnnFormToDBread.Execute(strsqlread) objRSread.MoveFirst Do While Not objRSread.EOF %> "> • <%= Shorten(trim(objRSread.Fields("articletitle")),28) %>
<% objRSread.MoveNext Loop objRSread.Close Set objRSread = Nothing Set cnnFormToDBread = Nothing %>
<% If Not objRSrelated.EOF Then %>
RELATED
<% objRSrelated.MoveFirst Do While Not objRSrelated.EOF %> "> • <%= Shorten(trim(objRSrelated.Fields("relatedarticletitle")),28) %>
<% objRSrelated.MoveNext Loop objRSrelated.Close Set objRSrelated= Nothing Set cnnFormToDBrelated = Nothing %>
<% End If %>