<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Charset = "utf-8" %> Apolo — Classificados de Empregos Gráficos
Tecnologia, experiência e segurança para quem produz
A APOLO Sistemas Gráficos

Classificados de Empregos Gráficos

Um espaço gratuito para aproximar empresas e profissionais dos mercados gráfico, editorial, de rótulos e de embalagens.

Oportunidades para quem movimenta a indústria gráfica

Pesquise por palavra-chave, categoria e estado ou publique gratuitamente uma vaga ou currículo.

Publicação gratuita
<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("ConexaoEmpregos") Set rs_Categorias = Server.CreateObject("ADODB.Recordset") Set rs_aux = Server.CreateObject("ADODB.Recordset") %>
Empresas e recrutadores

Vagas

Buscar vagas

Vagas por categoria

<% rs_Categorias.Open "SELECT categorias.codigo_categoria, categorias.nome_categoria FROM categorias ORDER BY categorias.ordem, categorias.nome_categoria", Conexao, 3, 3 If rs_Categorias.EOF Then %>

Não existem categorias cadastradas no banco de dados.

<% Else While Not rs_Categorias.EOF rs_aux.Open "SELECT COUNT(codigo_anuncio) AS tot_vagas FROM vagas WHERE codigo_categoria = " & rs_Categorias("codigo_categoria") & " AND aprovado = '1'", Conexao If Not rs_aux.EOF Then tot_vagas = rs_aux("tot_vagas") Else tot_vagas = 0 End If rs_aux.Close %> "> <%=rs_Categorias("nome_categoria")%> <%=tot_vagas%> vagas <% rs_Categorias.MoveNext Wend End If rs_Categorias.Close %>
Profissionais do setor

Currículos

Buscar currículos

Currículos por categoria

<% rs_Categorias.Open "SELECT categorias.codigo_categoria, categorias.nome_categoria FROM categorias ORDER BY categorias.ordem, categorias.nome_categoria", Conexao, 3, 3 If rs_Categorias.EOF Then %>

Não existem categorias cadastradas no banco de dados.

<% Else While Not rs_Categorias.EOF rs_aux.Open "SELECT COUNT(codigo_anuncio) AS tot_curriculos FROM curriculos WHERE codigo_categoria = " & rs_Categorias("codigo_categoria") & " AND aprovado = '1'", Conexao If Not rs_aux.EOF Then tot_curriculos = rs_aux("tot_curriculos") Else tot_curriculos = 0 End If rs_aux.Close %> "> <%=rs_Categorias("nome_categoria")%> <%=tot_curriculos%> currículos <% rs_Categorias.MoveNext Wend End If rs_Categorias.Close %>
Atenção: a Apolo disponibiliza este espaço para aproximação entre empresas e profissionais. A negociação, seleção e verificação das informações são de responsabilidade dos anunciantes e interessados.
<% Set rs_Categorias = Nothing Set rs_aux = Nothing Conexao.Close Set Conexao = Nothing %>