Dim rs
dim nian
dim yue
dim tian
dim riqi
nian=request("nian")
yue=request("yue")
tian=request("tian")
riqi=dateserial( nian,yue,tian)
set rs=server.CreateObject("ADODB.Recordset")
mySql = "select * from  rpdan "
rs.Open  mysql,conn,1
 rs.filter=" rprushijian='"&riqi&"' "
最后一行代码是有问题吗?
如果要是链接日期型的过滤怎么写呀?

我测试了不是最后代码的问题是这句问题riqi=dateserial( nian,yue,tian)
nian=cint(request("nian"))
yue=cint(request("yue"))
tian=cint(request("tian"))
riqi=dateserial( nian,yue,riqi)
我加上了cint函数也不好用

然后我在nian的这个文本框直接写2005-6-2然后用了下面的方法也不行
nian=year(request("nian"))
yue=month(request("nian"))
tian=day(request("nian"))
riqi=dateserial( nian,yue,riqi)
应该怎么用哪要是想提交日期给ripi 这个变量

把错误信息贴出来

没有错误信息.
但是就是不能根据根据我在三个文本框添加的信息得到信息
我要是用dateserial(2005,6,1)

<form name="form1" method="post" action="">
  <select name="ny" id="ny">
  <% for i=2000 to 2008
  response.Write"<option value='"&i&"'"
  if year(date())=i then response.Write"selected"
  response.Write">"&i&"</option>"
  next%>
  </select>
  年
  <select name="nm" id="nm">
    <% for i=1 to 12
 if i<10 then
 b="0"&i
 else
 b=i
 end if
  response.Write"<option value='"&b&"'"
  if month(date())=i then response.Write"selected"
  response.Write">"&b&"</option>"
  next%>
  </select>
  月
  <select name="nd" id="nd">
    <% for i=1 to 31
 if i<10 then
 b="0"&i
 else
 b=i
 end if
  response.Write"<option value='"&b&"'"
  if day(date())=i then response.Write"selected"
  response.Write">"&b&"</option>"
  next%>
  </select>
  日
  <input type="submit" name="bt" value="提交">
</form>
<% bt=request.Form("bt")
today=request("ny")&","&request("nm")&","&request("nd")
if bt<>"" then
 if isdate(today)=false then
  response.Write "日期有误！"
 else
  response.Write today
 end if
end if
 %>

dateserial(ny,nm,nd)得到的日期为什么不是输入的日期哪?