asp程序之问题！

<!--#include file="Connections/conn.asp" -->
<%
prodname=trim(request.Form("name"))
psize=trim(request.Form("size"))
model=trim(request.Form("model"))
code=trim(request.Form("code"))
weight=trim(request.Form("weight"))
selwt=trim(request.Form("selwt"))
price=trim(request.Form("price"))
selpri=trim(request.Form("selpri"))
fno=trim(session("fno"))
sql="select * from [supply] where user='"&fno&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
supname=cint(rs("keyid"))
rs.close
set rs=nothing

strsql="select * from [product] where supname='"&supname&"' and name='"&prodname&"'"
set rs1=server.CreateObject("adodb.recordset")
rs1.open strsql,c