<% SQL = "SELECT TOP 6 tsearch.pagetitle, tsearch.page, tsearch.description, COUNT(tsearch.id) AS Views FROM tsearch INNER JOIN tblWebsiteLog ON { fn CONCAT('/', tsearch.page) } = tblWebsiteLog.PageRef WHERE NOT(tsearch.page LIKE 'index.htm') GROUP BY tsearch.pagetitle, tsearch.page, tsearch.description ORDER BY Views DESC" Set rsOthersView = Conn.Execute(SQL) Response.ContentType = "application/xml" %> http://<%= Request.ServerVariables("SERVER_NAME") %>/offshore-news/sovereign-news/latest-news.htm Sovereign Group Latest News en-gb <% While (Not(rsOthersView.EOF)) Set objView = Server.CreateObject("Scripting.Dictionary") For Each Item In rsOthersView.Fields strData = "" strData = Replace(CStr(Item), "-->","") strData = StringContentToXHTML(strData) strData = Replace(strData,"''","'") strData = Server.HTMLEncode(CStr(strData)) strData = Replace(strData,VBCRLF, "
" & VBCRLF) objView.Add Item.Name, strData Next strPage = "" arrPage = Split(objView("pagetitle"),"-") strPage = arrPage(Ubound(arrPage) - 1) & " - " & arrPage(Ubound(arrPage)) %> http://<%= Request.ServerVariables("SERVER_NAME") %>/<% Response.Write(objView("page")) %> http://<%= Request.ServerVariables("SERVER_NAME") %>/<% Response.Write(objView("page")) %> <%= (objView("description")) %> This page has been viewed by others <%= objView("Views") %> times <% rsOthersView.MoveNext Wend %>