<%
asp_codigo=request.form("codigo")
set db=server.createobject("adodb.connection")
db.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("bd.mdb")
db.open
axsql = "select * from produto where codigo='"&asp_codigo&"'"
chave = 0
set tpro=server.createobject("adodb.recordset")
tpro.open axsql,db
if not tpro.eof then
if not isnull(tpro("codigo")) then
chave=1
else
chave =0
end if
else
chave=0
end if
if chave=1 then
response.write (tpro("codigo")+"<br>")
response.write (tpro("descricao")+"<br>")
response.write (tpro("preco"))
response.write ("<br>")
else
response.write("produto não encontrado")
end if
%>