这个SELECT语句有问题吗？

[licrazy5201]

我在一个主页面（main.asp）中有四个选择框,
一个是选择年报表，月报表，日报表的选择框，
还有三个分别是选择年，月，日，时段的选择框。
现在我做了四个页面，year.asp,month.asp,day.asp，hour.asp
想通过对第一个选择框对下面四个有所限制。
第一种情况选择“年报表”时，下面四个选择框中的“月”和“日”无效，在“年”选择框中选择一个年份就可以连到year.asp 这个页面！
第二种情况选择“月报表”时，“日”无效，选择年份和月份后就可以连到month.asp这个页面了。
第三种情况选择“日报表”时，下面三个年，月，日的选择框都选好，就可以连到day.asp这个页面了。
现在我又增加了一个时段的选择框，
第四种情况选择“时段”时，下面四个年，月，日，时段的选择框都选好，就可以连到hour.asp这个页面了。

<%
FType=Request("Type")

Fyear=Request("QYear")
FMonth=Request("QMonth")
FDay=Request("QDay")
FHour=Request("QHour")
FHour1=Request("QHour1")
YMD=FYear&"-"&FMonth&"-"&FDay
%>
<%
if Request("QYear")<>" " and Request("QMonth")<>" " and Request("QDay")<>" " and Request("QHour1")<>"" and Request("QHour")<Request("QHour1") then
Dim db,rs,strSql,strconn
Set db=Server.CreateObject("ADODB.Connection")
strconn = "DATABASE=shuili;server=LICRAZY\BOOREE;Uid=sa;Pwd=5201;driver={SQL Server}"
db.Open strconn
%>


set rs1=server.createobject("adodb.recordset")
strsql1="select stcd ,value as value1 from rainday where year(endtm)="&fyear&" and month(endtm)="&fmonth&" and day(endtm)="&fday&" and hour(endtm)="&fhour&" and stcd='01'"
rs1.open strsql1,db,1,1
if not rs1.eof then
出错提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/shiduan2_rain.asp，行51

[Primer2002cn]

strconn = Provider=SQLOLEDB.1;Persist Security Info=False;Uid=sa;Pwd=5201;Initial Catalog=shuili;Data Source=LICRAZY\BOOREE

[pangxiaoya]

fyear等都是number型的吗，要是不是需要加''的，另外缺少end是不是你的
if then
end if
结构缺少end if了

[minghui000]

关注