这是数据库test表的结构：

id name_a type_a unit qty date

1 主板 845GL 块 5 2007-7-4
2 CPU 2.0G 块 2 2007-7-4
3 内存 256M 条 12 2007-7-4
4 主板 845GL 块 4 2007-7-4
5 CPU 2.0G 块 10 2007-7-10
6 主板 845GL 块 10 2007-7-8
7 内存 512M 条 5 2007-7-11
8 主板 865PE 块 10 2007-7-15
9 CPU 2.5G 块 10 2007-8-5
10 内存 256M 条 5 2007-8-6
11 主板 845GL 块 5 2007-8-11
12 内存 256M 条 10 2007-8-12
13 CPU 2.0G 块 10 2007-8-15
14 主板 845GL 块 2 2007-8-16

<%
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/data.mdb")
select month(date) as 月份,name_a as 硬件名称,type_a as 硬件型号,unit as 单位，sum(qty) as 数量
from test
where year(date)=2007 group by month(date),name_a,type_a
%>

错误类型：
Microsoft VBScript 编译器错误 (0x800A03FD)
缺少 'Case'
/test8.asp, line 4, column 7
select month(date) as 月份,name_a as 硬件名称,type_a as 硬件型号,unit as 单位，sum(qty) as 数量

Dim tSql
Dim rs
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data/data.mdb")
tSql="select month(date) as 月份,name_a as 硬件名称,type_a as 硬件型号,unit as 单位，sum(qty) as 数量 "
tSql=tSql&"from test "
tSql=tSql&"where year(date)=2007 group by month(date),name_a,type_a"
set rs=conn.execuet(tSql)

错误类型：
ADODB.Connection (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/test8.asp, 第 9 行