发上代码，请各位高手帮忙看看哪出问题了！！！！在线急等啊！！！

Question

是一个任一或多条件查询的
所有条件都填，可以显示出来，但是任一条件的就不行了，貌似判断没有起作用哦！！
<%
UserName = request("UserName")
renbaoID = request("renbaoID")
SubmitUser = request("SubmitUser")
CarNum = request("CarNum")
FactoryName = request("FactoryName")

strsql="SELECT dbo.Task.RenBaoID, dbo.Task.FactoryName, dbo.Task.CarNum, dbo.MoneyClass.money AS ClassName, dbo.Task.SubmitUser,  dbo.Task.TaskComeTime, dbo.Task.State FROM dbo.Task INNER JOIN dbo.MoneyClass ON dbo.Task.Class = dbo.MoneyClass.Class where SubmitUser like '"&SubmitUser&"'and FactoryName like '"&FactoryName&"' and  renbaoid like '"&renbaoid&"' and  CarNum like '"&CarNum&"' ORDER by TaskComeTime DESC "

Dim sql
       if   renbaoID<>"" Then sql=sql&"and renbaoID like '%"&renbaoID&"%'"   
    if   SubmitUser<>"" Then sql=sql&"and SubmitUser like '%"&SubmitUser&"%'"   
    if   CarNum<>"" Then sql=sql&"and   CarNum like '%"&CarNum&"%'" 
if   FactoryName<>"" Then sql=sql&"and FactoryName like '%"&FactoryName&"%'" 
    
      
    
  'response.write strsql
' 定义变量，很好的习惯
Set rstXML = Server.CreateObject("ADODB.Recordset")
Set rstXML = Application("cnnXML").Execute(strsql)

' 保存xml各式的文件.
Response.ContentType = "text/xml"
  Response.Charset = "gb2132"
'Response.Write"<?xml version=""1.0"" ?>"                    
rstXML.Save Response, 1
Response.Flush ' 关闭数据库连接，释放对象
rstXML.Close
Set rstXML = Nothing
%>

Answer 1

strsql="SELECT dbo.Task.RenBaoID, dbo.Task.FactoryName, dbo.Task.CarNum, dbo.MoneyClass.money AS ClassName, dbo.Task.SubmitUser,  dbo.Task.TaskComeTime, dbo.Task.State FROM dbo.Task INNER JOIN dbo.MoneyClass ON dbo.Task.Class = dbo.MoneyClass.Class where SubmitUser like '"&SubmitUser&"'and FactoryName like '"&FactoryName&"' and  renbaoid like '"&renbaoid&"' and  CarNum like '"&CarNum&"' ORDER by TaskComeTime DESC "     if   renbaoID <> "" Then strsql=strsql&"and renbaoID like '%"&renbaoID&"%'"    
    if   SubmitUser <> "" Then strsql=strsql&"and SubmitUser like '%"&SubmitUser&"%'"    
    if   CarNum <> "" Then strsql=strsql&"and   CarNum like '%"&CarNum&"%'"  
if   FactoryName <> "" Then strsql=strsql&"and FactoryName like '%"&FactoryName&"%'"