%
dim oConn, oFunc, id
set oConn = new clsConnection
set oFunc = new clsFunction
id = request.QueryString("id")
if not oFunc.IsNum(id) then
response.Redirect("empresa.asp?id=64")
end if
%>
<%
oConn.rs.open "select evt_id, evt_name, evt_date, evt_description from tb_empresa where evt_activestatus = true and evt_id = " & id , oConn.Conn, 3, 2
if oConn.rs.recordcount = 1 then
%>
<%
else
%>
<%
end if
oConn.rs.close
%>
<%
oConn.rs.open "select evt_id, evt_name, evt_date, evt_description from tb_empresa where evt_activestatus = true and evt_id = " & id , oConn.Conn, 3, 2
if oConn.rs.recordcount = 1 then
%>
<%= 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_empresa_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(vbcrlf)
oConn.rs.movenext
wend
%>
<%
end if
oConn.rs.close
set oConn = nothing
%>