help me?

Question

if rs.EOF then
response.write "<script language=JavaScript>" & chr(13) & "alert('没有此材料！');" & "history.back()" & "</script>" 
else
name=rstemp("basename")
'unit=rstemp("baseunit")idList=split(id,"','")
for i=0 to ubound(idlist)
sqlstr="insert into shop(stuffno,stuffname,buydate) values('"&IDList(i)&"','"&name&"','"&addtime&"')"
objconn.execute(SQLstr)
next
end if 
'rs.open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('这本图书已添加到你的购物蓝中！');" & "history.back()" & "</script>" 
set rs=nothing
set rstemp=nothing
set conn=nothing%>