我的数据库连接方式为：
<%
SET APPLICATION("LWDB")=SERVER.CreateObject ("ADODB.CONNECTION")
APPLICATION("LWDB").OPEN"Dsn=MIEAWEB+;UID=sa;PWD=;"
%>
当我运行包含以下代码的页面时，服务器老是显示错误类型为：变量或者类型不正确，或者不在可以接受的范围内，要不就是与其他数据库冲突。

请问是什么原因？

页面的部分代码为：
Dim rs,sq
     if   Trim(request("EPassword"))="" then
  founderr=true
  Errmsg=Errmsg+"<br>"+"<li>请输入您的密码。</b>"
 end if
  if  Trim(request("Password1"))<>Trim(request("Password2")) then
  founderr=true
  Errmsg=Errmsg+"<br>"+"<li>两次密码不一样。</b>"
 end if
  if founderr then exit sub
    set rs=SERVER.CreateObject ("ADODB.RECORDSET")
    'set rs=server.createobject("adodb.recordset")
    sq="select * from  M_Employee  where E_No='" & ENo & "' and E_Password='"
    sq=sq & EPassword & "' and E_WID in (select W_ID from M_WebSite WHERE W_Domain='" & DoMain & "' or W_Domain='www."
    sq=sq & DoMain & "')"
    Rs.open sq,conn,1,3
   
    If Rs.eof or Rs.bof then
    founderr=true
   Errmsg=Errmsg+"<br>"+"<li>用户名错误,可能不存在。</b>"
    exit sub
    End if
   rs("EPassword")=Trim(request("password1"))
   rs.update
   rs.close
   set rs=nothing
   Response.write "密码修改成功!"
End Sub  
%>