<% 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 %>
Sobre a Empresa
<% 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 %>