str="select name from back_infor where bakcdepart='销售部门'"
my_rs.open str,conn,1,1‘第 21 行
if not(my_rs.bof and my_rs.eof) then
do until my_rs.eof
i=i+1
my_rs.movenext
loop
end if
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/dc/hfcount.asp, 第 21 行
以上是我遇到的一个问题，不知道错在哪里？请各位帮我看看！

我按上面说的改了,不行呀,Microsoft VBScript 编译器错误 (0x800A0408)
无效字符
/dc/hfcount.asp, line 23, column 57
str="select cust_name from back_infor where bakcdepart='"销售部门"'"
bakcdepart在数据库中设定为文本型,到底错在哪了?
详细代码如下:

<!--#include file="inc/conn.asp"-->
<%
dim str
dim sql
dim i
dim ii
dim tempstr
dim TempPercent
i=0
ii=0
str="select cust_name from back_infor where bakcdepart='"销售部门"'"
my_rs.open str,conn,1,1
if not(my_rs.bof and my_rs.eof) then
do until my_rs.eof
i=i+1
my_rs.movenext
loop
end if
my_rs.close
set my_rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="select id from sell_depart_cust "
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
do until rs.eof
ii=ii+1
my_rs.movenext
loop
end if
tempstr=i/ii'回访统计率
TempPercent = FormatPercent(tempstr,0,-1)

%>