这个存储过程的调用错在哪里？

[sheng9hhd]

===========源代码==============
Dim Dataconn
Dim CmdTemp
Dim keywords,city_province,min_regdate,cat,cat2
Dim fanwei
keywords="布什"
city_province="全国"
min_regdate="30"
cat="g" 'NULL
cat2="23" 'NULL
fanwei="2"
Set Dataconn=server.createobject("ADODB.Connection")
Dataconn.Open "DRIVER={SQL Server};Server=127.0.0.1;DATABASE=newsweb;UID=sa;PWD=;"
Set CmdTemp = Server.CreateObject("ADODB.Command")
CmdTemp.CommandType = 4
CmdTemp.CommandText = "dbo.Search_List"
Set CmdTemp.ActiveConnection = Dataconn
Set tmpParam = CmdTemp.CreateParameter("@keywords",200,1,50,keywords)
CmdTemp.Parameters.Append tmpParam
Set tmpParam = CmdTemp.CreateParameter("@city_province",200,1,3,city_province)
CmdTemp.Parameters.Append tmpParam
Set tmpParam = CmdTemp.CreateParameter("@min_regdate",200,1,3,min_regdate)
CmdTemp.Parameters.Append tmpParam
Set tmpParam = CmdTemp.CreateParameter("@cat",200,1,1,cat)
CmdTemp.Parameters.Append tmpParam
Set tmpParam = CmdTemp.CreateParameter("@cat2",200,1,3,cat2)
CmdTemp.Parameters.Append tmpParam
Set tmpParam = CmdTemp.CreateParameter("@fanwei",17,1,1,fanwei)
CmdTemp.Parameters.Append tmpParam

Set rst = CmdTemp.Execute() '行33
'Set rst = Server.CreateObject("ADODB.Recordset") '建立记录集对象
'rst.Open CmdTemp, , 1, 3
If Not rst.Eof Then
While Not rst.Eof
Response.write rst(0) & "-" & rst(1) & "<br>"
rst.Movenext
Wend
End If
rst.close
Set rst = Nothing
Dataconn.close
Set Dataconn = Nothing
==============出错信息===============
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

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

[Microsoft][ODBC SQL Server Driver]字符串数据，右截位

/SQL_ProceDure.asp，行33
---------------------------
啥问题呀？