asp变量

asp变量求助
Set dayin=Server.CreateObject("Adodb.Recordset")
SqlT="select top 10 id,url,yl_30in,yl_dayin,yl_in,out,title from detail where verity=1 order by yl_dayin desc,id"
dayin.open SQLT,conn,1,1
if dayin.EOF and dayin.BOF then
menudayin=menudayin&"<li>暂时没有内容</li>"
else
While (Not dayin.EOF)
if xiaoyu_dong=2 then
menudayin = menudayin &"<li>&nbsp;<a href='goto.asp?id="&dayin("id")&"' title='"&dayin("title")&"' target='_blank'>"
else
if xiaoyu_dong=1 then
menudayin = menudayin &"<li>&nbsp;<a href='url/?"&dayin("id")&".htm' title='"&dayin("title")&"' target='_blank'>"
else
menudayin = menudayin &"<li>&nbsp;<a href='url/0"&dayin("id")&".htm' title='"&dayin("title")&"' target='_blank'>"
end if
end if
if dayin("yl_dayin")>499 then
menudayin=menudayin&"<font color=#ff0000><b>"&dayin("Title")&"</b></font></a></LI>"
else
if dayin("yl_dayin")>299 then
menudayin=menudayin&"<font color=#008000><b>"&dayin("Title")&"</b></font></a></LI>"
else
if dayin("yl_dayin")>199 then
menudayin=menudayin&"<font color=#ff0000>"&dayin("Title")&"</font></a></LI>"
else
if dayin("yl_dayin")>49 then
menudayin=menudayin&"<font color=#008000>"&dayin("Title")&"</font></a></LI>"
else
menudayin=menudayin&""&dayin("Title")&"</a></LI>"
end if
end if
end if
end if
numRows3=numRows3+1
dayin.MoveNext
Wend
end if
dayin.close
Set dayin = Nothing

strOut=Replace(strOut,"<{{menudayin}}>",menudayin)


上面的规则不变，我想让 out > yl_dayin*2 就不显示应该怎么改啊，求解

------解决方案--------------------
SqlT="select top 10 id,url,yl_30in,yl_dayin,yl_in,out,title from detail where verity=1 and out <= yl_dayin*2 order by yl_dayin desc,id"