asp：标准表达式中数据类型不匹配?

想在后台删除用户，个别用户在删除时，提示标准表达式中数据类型不匹配，错误网页是这样的：

<!--#include file="../cnon.asp"-->
<!--#include file=cookies.asp-->

<%
dim rs,sql,del_username,sql1,sql2,rs1,id,str2,i,all_id,str1,k,username,sql4,str4,a,sql3
all_id=trim(request("selectedid"))
set rs=server.createobject("adodb.recordset")
str1=split(all_id,",")
for k=0 to ubound(str1)
sql="select id from [xinxi] where username='"&trim(str1(k))&"'"
rs.open sql,conn,1,1
do while not rs.eof
id=id +","&rs("id")&""
rs.movenext
loop
rs.close

str2=split(id,",")
for i=1 to ubound(str2)
sql="delete from [xinxi] where username='"&trim(str1(k))&"'"
rs.open sql,conn,1,3
sql1="delete from [shoucang] where scid='"&cstr(str2(i))&"' or username='&

改成这样试试：

<!--#include file="../cnon.asp"-->
<!--#include file=cookies.asp-->
<%
dim rs,sql,del_username,sql1,sql2,rs1,id,str2,i,all_id,str1,k,username,sql4,str4,a,sql3
all_id=trim(request("selectedid"))
set rs=server.createobject("adodb.recordset")
str1=split(all_id,",")
for k=0 to ubound(str1)
sql="select id from [xinxi] where username='"&trim(str1(k))&"'"
rs.open sql,conn,1,1
do while not rs.eof
id=id &","&rs("id")&""
rs.movenext
loop
rs.close

str2=split(id,",")
for i=1 to ubound(str2)
sql="delete from [xinxi] where username='"&trim(str1(k))&"'"
conn.execute(sql)
sql1="delete from [shoucang] where scid='"&cstr(str2(i))&"' or username='"&trim(str1(k))&"' "