请教删除多个的问题

问题在下面粗体字，请高手帮忙。谢谢。

<%
response.write ("<form name=form1 action='.asp?action=replacestr' method='post'>")
Response.Write ("找到<input name='numm' value="""&rs(0)&""" type=text>个")
Response.Write ("把 <input name='searchstr' value='6008'5569' type=text>替换成<input name='targetstr' type=text><input type=submit value='替换'></form>")

sub replacestr()
dim searchstr,targetstr,rs,sql
searchstr=Request.Form("searchstr")
searchstr2=Replace(searchstr,"|",",")
targetstr=Request.Form("targetstr")

//删除生成的页面，这里没有执行。错误显示： 多余的 ) 在查询表达式 'gallery_id in (6008,5569))' 中。 

'for i=0 to 25
sql="select gallery_filepath,gallery_filename,gallery_subclass from gallery where gallery_id in ("&searchstr2&"))"
conn.execute(sql)
filepath=replace(rs("gallery_filepath"),"/","\")
set fso=Server.CreateObject("scripting.FileSystemObject")
if fso.FileExists(rs("gallery_filename")&".htm") then
fso.DeleteFile(rs("gallery_filename")&"*.htm")
end if
'next
end sub
%>