韩国护肤产品:这个asp的代码如何修改数据库

conn.asp
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("admin/#wanghai_db.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
下面这个是要修改数据库的，我加了个修改框，但不能用，不知错在哪请指教
com_id=session("com_id")
DIM totalPut
DIM CurrentPage
DIM TotalPages
DIM i,j
const MaxPerPage=20
'if not isempty(request("upid")) then
'call upid
'end if
'if not isempty(request("delid")) then
'call del
'end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if

if not isempty(request("selAnnounce")) then
idlist=request("selAnnounce")
if instr(idlist,",")>0 then
dim idarr
idArr=split(idlist)
dim id
for i = 0 to ubound(idarr)
id=clng(idarr(i))
select case request.form("action")
case "up_offer"
call up_offer(id)
case "del_offer"
call del_offer(id)
end select
next
else
select case request.form("action")
case "up_offer"
call up_offer(clng(idlist))
case "del_offer"
call del_offer(clng(idlist))
end select
end if

rs.close
end if
set rs=nothing
sub showContent (totalput,MaxPerPage)
do while not rs.eof%>
<tr class="hand" align="center" bgcolor="#ffffff" onmouseover="this.style.backgroundColor='EFFCFE'" onmouseout="this.style.backgroundColor='#ffffff'">
<td><%=rs("id")%></td>
<td>
<%set rs2=server.createobject("adodb.recordset")
sql2 = "select * from products where pro_id="&rs("pro_id")
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
response.write "-"
else
Response.Write(rs2("pro_name"))
end if
rs2.close
set rs2=nothing%>
</td>
<td> <input type="text" name="price<%=i%>" size="6" maxlength="6" value="<%=rs("price")%>">
<input type="hidden" name="old_price<%=i%>" value="<%=rs("price")%>">
/<span class="red_12px">
<input type="text" name="price_in<%=i%>" size="6" maxlength="6" value="<%=rs("price_in")%>">
<input type="hidden" name="old_price_in<%=i%>" value="<%=rs("price_in")%>">
</span></td>
<td><%=rs("idate")%></td>
<td>
<%if rs("pas")=true then Response.Write("<b><font color=red>√</font></b>") else Response.Write("<b><font color=gray>×</font></b>") end if%>
</td>
<td><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>'></td>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr align="center" bgcolor="#C7F3FF">
<td>操作</td>
<td height="30" colspan="5" align="right" bgcolor="#C7F3FF" class="red"><input type="radio" name="action" value="up_offer">
更新
<input type="radio" name="action" value="del_offer">
删除  <input name="button" type="button" onClick="check()" value='提交'></td>
</tr>
</form>
</table>sub up_offer(id)
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="update offer set idate=now() where id="&cstr(id)
conn.execute sql
if err.Number<>0 then
err.clear
response.write "更 新 失 败 !<br>"
end if
End sub
%>