帮我看看这段代码,怎么是死循环啊?

<%
dim StrTitle,StrKeyword,IntClassid,IntOrder
StrKeyword=FunSql(Request.QueryString("K"),False)
IntClassid=FunSql(Request.QueryString("C"),true)
IntOrder=FunSql(Request.querystring("Order"),true)
strSql="select N_title,id,N_ClickCount,N_CreateFile,N_time,N_url from R_news where N_Del=0 and N_CreateFile=1"
if IntClassid<>0 then
strSql=strSql&"and N_Class="&IntClassid&" "
end if
if StrKeyword<>"" then
strSql=strSql&"and (N_Title like '%"&StrKeyword&"%' or N_EditAuthor like '"&StrKeyword&"' or N_keyword like '%"&StrKeyword&"%' or N_Author like '"&StrKeyword&"') "
end if
'select case IntOrder
'case 1
strSQL=strSql&"order by id desc"
'case 2
'strSQL=strSql&"order by N_ClickCount desc"