%
dim oConn, oFunc, id
set oConn = new clsConnection
set oFunc = new clsFunction
id = request.QueryString("id")
if not oFunc.IsNum(id) then
response.Redirect("hospedagens.asp")
end if
%>
<%
oConn.rs.open "select c.cat_id, c.cat_nome, evt_id, evt_name, evt_date, evt_description from tb_produtos e inner join tb_produtos_categoria c ON (c.cat_id = e.cat_id) where evt_activestatus = true and evt_id = " & id , oConn.Conn, 3, 2
if oConn.rs.recordcount = 1 then
%>