% Response.Buffer = True %>
<% Response.Flush() %>
<%
Session.Timeout = 1000
server.ScriptTimeout = 5000
call OpenConnection
dim ResultSearch
dim QuerySearch
set ResultSearch=SERVER.CreateObject("ADODB.Recordset")
QuerySearch = "select top 20 txtSearchKeyword,count(txtSearchKeyword) as count1 from designlg.tbl_SearchKeyword where txtdomain='dp-architecturaldrawings.biz' and txtVersion='English' and txtDisplay='Yes' group by txtSearchKeyword order by count1 desc"
set ResultSearch = Server.CreateObject("ADODB.Recordset")
ResultSearch.open QuerySearch, NewConnection
if ResultSearch.eof or ResultSearch.bof then
response.Write("No result found.")
else
do while not ResultSearch.eof
count1 = 0
if (isnull(ResultSearch("count1")) or ResultSearch("count1")="") then
count1 = 0
else
count1 = ResultSearch("count1")
end if
response.Write("" & trim(ResultSearch("txtSearchKeyword")) & "
")
ResultSearch.movenext
Response.Flush()
loop
Response.Flush()
end if
set ResultSearch = Nothing
call CloseConnection
%>