ASP调试问题请教。

VBScript code

<%
    Dim rs,sql,Url,Love
    Url = request.servervariables("HTTP_HOST") 
    if Url = www.baidu.com or baidu.com then ‘这是第五行
    Response.Redirect("index.asp")
    Response.end
    Else
    Lcy_Ym = split(url,".")
    love = replace(Lcy_Ym(0),"http://","")
     set rs=conn.execute("select * from Lcy_User where Lcy_Ym = '"&love&"'")
    If not rs.eof Then
    response.Write ("<frameset><frame src='love.asp?love="&love&"'></frameset>")
    Else
    Response.Redirect("index.asp")
    End If
    End if
    call close_conn
%>

错误提示：
Microsoft VBScript 运行时错误 错误 '800a01a8' 

缺少对象: 'www' 

/Default.asp，行 5 

if Url = "www.baidu.com" or Url = "baidu.com" then

+1