<% FUNCTION getdia(udata) getdia = DatePart("d", udata) END FUNCTION FUNCTION getmes(udata) getmes = DatePart("m", udata) END FUNCTION FUNCTION getano(udata) getano = DatePart("yyyy", udata) END FUNCTION set connClass = server.createobject("adodb.connection") connClass.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/config/tri_class.mdb") set rs = server.createobject("adodb.recordset") sql = "SELECT * FROM categorias ORDER BY categoria ASC" rs.open sql, ConnClass, adOpenStatic %> Emprego - Trilimpa

Voltar - Back     Fórum   Livro de Visitas   Contactos
Neste espaco, pode efectuar a sua candidatura as vagas disponiveis, ou simplesmente colocar o seu anuncio para um cargo a que gostaria de se candidatar
<% rs.movenext IF NOT rs.EOF THEN udata = 0 ct = 0 SQLct = "SELECT COUNT(id) AS cont FROM anuncios WHERE anuncios.id_categoria = " & rs("id") & "" rscount.Open SQLct, ConnClass ddata = "-" IF NOT rscount("cont") = 0 THEN '111111 ct = rscount("cont") sqldata = "SELECT data From anuncios WHERE anuncios.id_categoria = " & rs("id") & "" rsdata.Open sqldata, ConnClass WHILE NOT rsdata.EOF IF NOT rsdata.EOF THEN rdata = rsdata("data") IF rdata > udata THEN udata = rdata END IF END IF rsdata.movenext WEND rsdata.close rdia = getdia(udata) rmes = getmes(udata) rano = getano(udata) ddata = rdia & "-" ddata = ddata & rmes ddata = ddata & "-" ddata = ddata & rano END IF '111111 rscount.Close END IF %>
Oferta
 O espaço de Ofertas está destinado às ofertas propostas pela empresa contratadora. Aqui só a empresa poderá efectuar alterações.
  Para ver as ofertas basta clicar em Oferta.
 
Procura
 O espaço de Procura está destinado àquelas pessoas que procuram emprego. Aqui poderão enviar  a sua  própria candidatura. 
  Para isso basta clicar em Procura.