[求助]我的程序问题

<%
dim founderr,errmsg
founderr=false
errmsg=""

if request.querystring("pic_id")="" then
founderr=true
errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
dim picid
if not isInteger(request.querystring("pic_id")) then
founderr=true
errmsg=errmsg+"<br>"+"<li>非法的图片id参数。"
else
picid=cint(request.querystring("pic_id"))
end if
end if

if founderr then
call diserror()
else

sql="select pic_name,pic_url,pic_count from pic where pic_id="&picid
set rs=conn.execute(sql)
dim picurl
picurl=rs("pic_url")
sql="UPDATE pic SET pic_count = pic_count + 1 where pic_id="&picid
conn.execute(sql)

%>

各位大哥，这段程序哪里出错了啊？ 图片老是出现这个错误