不好意思，基础太差，请教各位大虾这个匹配该怎么写？
 数据库：mzrq 星期三（文本）
执行下面的查询，令mzrq=当前的星期
 sql1= "SELECT * FROM alertdata WHERE txzt='需要提醒' and syname='"&session("UserName")&"' and szlx='每周定期提醒' and mzrq="&GetWeek(Date())&" "
 <%
Function GetWeek(ThisDay)
If IsDate(ThisDay) Then
   Dim CharWeek
   CharWeek=Weekday(ThisDay)
   Select Case CharWeek
    Case 1
     GetWeek="星期日"
    Case 2
     GetWeek="星期一"
    Case 3
     GetWeek="星期二"
    Case 4
     GetWeek="星期三"
    。。。
%>但是每次执行查询的时候总是在mzrq这里出错，请问我该怎么写呢？请各位大虾指教！

我也试过，但是筛选后没有任何反应也不提示错误，但是没有查询出那个结果（实际存在），请问，还有什么原因？是不是GetWeek(Date())获得的值是日期，还需要转换呢？请指教！谢谢！

对，定义的mzrq类型是文本，改成日期则没法显示星期几这样的类型。但是必须使用按星期进行筛选。

非常感谢啊，我以为今天是星期三啊，输出的结果是周六，我才知道， 谢谢啊！这个方法太有效了！