我这个程序一搜索姓名时就出问题？搜索数字没问题了。大家帮忙看看
================
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

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

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

[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。

/demo/TMPdf2wgvffpd.asp，行41

下面是我做的文件：

相关文件：点这儿打开

应该是这个文件：SearchDemo.asp
那个是我编辑这个文件时，预览时的样子。
麻烦大家帮我看看哟，谢谢

DreamweaverMX是这样生成的，我看符合你的语法呀？
======================
<%
Dim rsSearchDemo__varName
Dim rsSearchDemo__varID
Dim rsSearchDemo__varTemp
rsSearchDemo__varName = "%"
rsSearchDemo__varID = "0"
rsSearchDemo__varTemp=request.QueryString("tfSearch")
If (rsSearchDemo__varTemp <> "" and IsNumeric(rsSearchDemo_VarTemp)=True) Then
rsSearchDemo__varID =rsSearchDemo__varTemp
rsSearchDemo__varName =rsSearchDemo__varTemp
ElseIf(rsSearchDemo__varTemp <> "")then
rsSearchDemo__varName =rsSearchDemo__varTemp
End if
%>
<%
Dim rsSearchDemo
Dim rsSearchDemo_numRows

Set rsSearchDemo = Server.CreateObject("ADODB.Recordset")
rsSearchDemo.ActiveConnection = MM_SearchDemo_STRING
rsSearchDemo.Source = "SELECT a.ID,a.NAME,a.RANK,a.DEPT,a.GENDER,a.TELE,b.SALARY, b.CHANGE FROM PersonalInfo a,SalaryInfo b WHERE a.ID=b.ID AND a.NAME=b.NAME AND (a.ID=" + Replace(rsSearchDemo__varID, "'", "''") + " OR a.NAME like '%" + Replace(rsSearchDemo__varName, "'", "''") + "%') ORDER BY a.ID"
rsSearchDemo.CursorType = 0
rsSearchDemo.CursorLocation = 2
rsSearchDemo.LockType = 1
rsSearchDemo.Open()

rsSearchDemo_numRows = 0
%>
==============
可是有错，如何修正呢？