<% 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 %>
Produtos -> CATEGORIA: "> <%= oConn.rs("cat_nome") %>
<%= oConn.rs("evt_name") %>
<%= Replace(oConn.rs("evt_description"), CHR(13), "
") %>
<% else %>
Ítem não encontrado!
<% end if oConn.rs.close %>
<% oConn.rs.open "select eim_id, eim_image from tb_produtos_image where eim_activestatus = true and evt_id = " & id, oConn.Conn, 3 ,2 if oConn.rs.recordcount > 0 then %>
<% while not oConn.rs.eof response.Write("") response.Write("") response.Write(" " & vbcrlf) oConn.rs.movenext wend %>
<% end if oConn.rs.close set oConn = nothing %>