<%
pg=request.Querystring("p")
if pg = 0 then
pg = 1
end if
Dim conexao,rs,comando
call abre_conexao
comando="SELECT * from ed39 where cod=" & pg
set rs=conexao.Execute(comando)
%>
__EDITORA MERCADO BRASIL________________________________________________________________________________________________________________________________________