ASP 函数报错，帮忙看一下！

[cangyuqihun]

Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

function DesignerMonthTotalTemplate(date yuefen,string designer)
	dim i,sql,rs
	Set rs = Server.CreateObject( "ADODB.Recordset" )
	i=0
	sql = "SELECT * FROM CY_Template WHERE c_design=" & designer & "AND MONTH(c_time)=" & MONTH(yuefen)
	rs.Open sql, oConn, 1, 1
	
	If rs.Bof and rs.Eof then
		MonthTotalTemplate=i
	Else
		Do While Not rs.Eof
			i=i+1
			rs.Movenext						
		Loop
	End If
	rs.close
	set rs=nothing
	MonthTotalTemplate=i	
end function

[灬上海爽爷]

rs.Open sql, oConn, 1, 1
改成
rs.Open sql, oConn, 1, 3
看看有没有具体报错。

[CainLai]

没具体提示哪一行？语法错误？具体注意SQL语句里面 变量的类型 跟引号的使用？

[CainLai]

特别是那个designer的类型 是字符串的话 应该用c_design='" & designer & "' and ...

[晓风拂月]

if not rs.eof and not rs.bof then
Do While Not rs.Eof
i=i+1
rs.Movenext
Loop
else
MonthTotalTemplate=i
.....
end if
这样就可以了

[mokson]

关于代码调试问题，向楼主介绍一款罕见的专业级的调试工具： AspStudio2005 ，
下载地址：http://download.csdn.net/source/2840663

[LeoZ2002]

你function没返回值的噢

[mz48602]

你写这个函数想干嘛？