表单或网页传递参数ygxm和adddate

根据传递值进行查询

1.如果传递ygxm为空则查询对应adddate(日期)记录

2.如果传递ygxm为不为空,adddate这空则查询对应ygxm的记录

3.如果传递ygxm不为空且adddate也不为空则查询对应adddate(日期)和对应ygxm的记录

请教SQL语句 asp+mssql

我想要下具体的代码，我是新手，呵

很谢谢你，我还想问下
set rs=.....
rs.open ....

那ＲＳ=sql还是其它?

<%
dim ygxm,adddate,rs
ygxm=request("ygxm")
adddate=request("adddate")

if ygxm<>"" and adddate="" then
sql="select * from hz where ygxm = '"&ygxm&"'" '这个比较根据你的实际情况写比较符号
end if
if ygxm="" and adddate<>"" then
sql="select * from hz where adddate = '"&adddate&"'" '这个比较根据你的实际情况写比较符号
end if
if ygxm<>"" and adddate<>"" then
sql="select * from hz where ygxm = '"&ygxm&"' and adddate = '"&adddate&"'" '这个比较根据你的实际情况写比较符号
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Source = "SELECT * FROM dbo.yh WHERE id = " + Replace(rs_yu__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.open
%>

对吗？
可是：
错误类型：
ADODB.Recordset (0x800A0E7D)
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
/shoes/test.asp, 第 32 行

<%
dim ygxm,adddate,rs
ygxm=request("ygxm")
adddate=request("adddate")

if ygxm<>"" and adddate="" then
sql="select * from hz where ygxm = '"&ygxm&"'" '这个比较根据你的实际情况写比较符号
end if
if ygxm="" and adddate<>"" then
sql="select * from hz where adddate = '"&adddate&"'" '这个比较根据你的实际情况写比较符号
end if
if ygxm<>"" and adddate<>"" then
sql="select * from hz where ygxm = '"&ygxm&"' and adddate = '"&adddate&"'" '这个比较根据你的实际情况写比较符号
end if

set rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,3,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=rs("ygxm")%></td>


按上面的语句出现了下面的错误的
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/shoes/test.asp, 第 28 行

rs.open sql,conn,3,1,1（为第２８行）

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突

什么情况下会出现这种错误的
我数据库连接不是用字符串的

能不能告诉我
rs.open sql,conn,3,1,1中
３，２，１
的具体意义呀

谢谢。
<%
Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_gz_STRING
rs.Source = "SELECT * FROM dbo.hz ORDER BY adddate DESC"
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 3
rs.Open()

rs_numRows = 0
rs.PageSize = 20
'这里设定每页显示的记录数
pre = true
last = true
page = trim(Request.QueryString("page"))

if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
这个是正确的查询，可是不能达到我要的那个查询效果，要是改的话，却总是显示上面的错误的