<% Response.Buffer=TRUE Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> Servicios a candidatos "> <% DNI = Session("Cand_DNI") Set objConexion = Session("Cand_Conexion") 'busquedas iniciales Set rsetOpciones = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT T_Opciones.* FROM T_Opciones WHERE T_Opciones.DNICandidato = '" + DNI + "'" rsetOpciones.Open sSQL, objConexion, adOpenKeySet Session("Privacidad")=rsetOpciones("Privacidad") periodicidad = rsetOpciones("Periodicidad") bp1 = rsetOpciones("BP1") bp2 = rsetOpciones("BP2") bp3 = rsetOpciones("BP3") rsetOpciones.Close Set rsetOpciones = Nothing 'Si es la primera vez que accedo a la pagina de servicios, registro la sesion if (Session("Cand_InicioSesion")=True) then NumSesion = CStr(Session.SessionID) Fecha = CStr(Date) Hora = CStr(Time) DNI = CStr(Session("Cand_DNI")) iSQL = "INSERT INTO T_Sesiones(NumSesion,Fecha,Hora,DNI) VALUES('" + NumSesion + "','" + Fecha + "','" + Hora + "','" + DNI + "')" objConexion.Execute(iSQL) end if %>
Ayuntamiento de Cádiz Ayuntamiento de Cádiz
Instituto de Fomento, Empleo y Formación
Cerrar sesión de trabajo Ayuda
<% url="../Curriculums/Fotografia - " + CStr(Session("Cand_DNI")) +".jpg" %>
Bolsa de Empleo

<% =CStr(CStr(Session("Cand_Nombre")) + " " + CStr(Session("Cand_Apellido1")) + " " + CStr(Session("Cand_Apellido2")))%>

 Servicios a candidatos
Servicios a candidatos

Introduzca su curriculum vitae, suba un archivo con su cv, ...

Curriculum Vitae

Rellenar CV
Ver/Imprimir CV
Modificar CV
 
Subir archivo
Borrar archivo

Busque ofertas, inscribase en ellas, vea las empresas anunciantes, ...

Búsqueda de Ofertas de empleo
Buscador de ofertas
Buscar por Empresas
 
 
 
 
Servicios
 
Modificar datos
de acceso
personales
 
Mensajería y contactos
 
Personalizar
 
Darse de baja

 

 

 

¡ATENCIÓN! Pon al día tu curriculum. Titulaciones actualizadas.

 

 

Agenda del día (<%=Date()%>)
<% 'Caducidad del curriculum Set rsetCandidatos = Server.CreateObject("ADODB.Recordset") sSQL = "select * from C_CandidatosListado_CV where dni = '" & dni & "'" rsetCandidatos.Open sSQL, objConexion, adOpenKeySet if not rsetCandidatos.Eof then %>
Su curriculum va a caducar <% end if rsetCandidatos.Close Set rsetCandidatos = Nothing %>
Ofertas encontradas
<% Set objEmpConexion = Session("Emp_Conexion") if CInt(periodicidad)=0 then if (Session("Cand_InicioSesion")=True) then Session("Cand_InicioSesion")=False if CStr(bp1)="Si" then Set rsetBP = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_BusquedasPersonales WHERE ((DNICandidato = '" + DNI + "') AND (idBusqueda = 1))" rsetBP.Open sSQL, objConexion, adOpenKeySet CIF=rsetBP("CIFEmpresa") Area=rsetBP("Area") Puesto=rsetBP("Puesto") Provincia=rsetBP("Provincia") Pais=rsetBP("Pais") TipoContrato=rsetBP("TipoContrato") Remuneracion=rsetBP("Remuneracion") Experiencia=rsetBP("Experiencia") Titulacion=rsetBP("NETitulacion") Especialidad=rsetBP("NEEspecialidad") Jornada=rsetBP("Jornada") TipoOferta=rsetBP("TipoOferta") PalabraClave=rsetBP("PalabraClave") rsetBP.Close Set rsetBP = Nothing criterio="" if (Area<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + " (Area='" + CStr(Area) + "') " end if if (Puesto<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Puesto='" + CStr(Puesto) + "') " end if if (Provincia<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Provincia='" + CStr(Provincia) + "') " end if if ((Pais<>"Sin Definir") AND (Pais<>""))then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Pais='" + CStr(Pais) + "') " end if if (TipoContrato<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(TipoContrato='" + CStr(TipoContrato) + "') " end if if (CInt(Remuneracion)<>-1) then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Remuneracion >= " + CStr(Remuneracion) + ") " end if if (CInt(Experiencia)<>-1) then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Experiencia >= " + CStr(Experiencia) + ") " end if if (Titulacion<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Titulacion='" + CStr(Titulacion) + "') " end if if (Especialidad<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Especialidad='" + CStr(Especialidad) + "') " end if if (Jornada<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Jornada=" + CStr(Jornada) + ") " end if if (TipoOferta<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(TipoOferta='" + CStr(TipoOferta) + "') " end if 'palabra clave if (criterio<>"") then criterio = " WHERE ( " + criterio + " )" end if if CStr(CIF)<>"Sin Definir" then 'solo una empresa Session("Cand_NumOftBP1")=0 Set rsetEmpresas= Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_EmpresasRegistradas WHERE CIF='" + CStr(CIF) + "'" rsetEmpresas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetEmpresas.Eof) then NombreTabla = "T_Ofertas_" + CStr(CIF) Set rsetOfertas = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla + CStr(criterio) +" ORDER BY FechaPublicacion" rsetOfertas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetOfertas.EOF) then rsetOfertas.MoveLast rsetOfertas.MoveFirst Session("Cand_NumOftBP1")=CInt(rsetOfertas.RecordCount) end if rsetOfertas.Close Set rsetOfertas = Nothing end if rsetEmpresas.Close Set rsetEmpresas = Nothing else 'cualquier empresa Session("Cand_NumOftBP1")=0 Set rsetEmpresas= Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_EmpresasRegistradas" rsetEmpresas.Open sSQL, objEmpConexion, adOpenKeySet do until rsetEmpresas.EOF NombreTabla = "T_Ofertas_" + CStr(rsetEmpresas("CIF")) Set rsetOfertas = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla + CStr(criterio) +" ORDER BY FechaPublicacion" rsetOfertas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetOfertas.EOF) then rsetOfertas.MoveLast rsetOfertas.MoveFirst Session("Cand_NumOftBP1")= CInt(Session("Cand_NumOftBP1")) + CInt(rsetOfertas.RecordCount) end if rsetOfertas.Close Set rsetOfertas = Nothing rsetEmpresas.MoveNext loop end if else Session("Cand_NumOftBP1")=-1 end if if CStr(bp2)="Si" then Set rsetBP = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_BusquedasPersonales WHERE ((DNICandidato = '" + DNI + "') AND (idBusqueda = 2))" rsetBP.Open sSQL, objConexion, adOpenKeySet CIF=rsetBP("CIFEmpresa") Area=rsetBP("Area") Puesto=rsetBP("Puesto") Provincia=rsetBP("Provincia") Pais=rsetBP("Pais") TipoContrato=rsetBP("TipoContrato") Remuneracion=rsetBP("Remuneracion") Experiencia=rsetBP("Experiencia") Titulacion=rsetBP("NETitulacion") Especialidad=rsetBP("NEEspecialidad") Jornada=rsetBP("Jornada") TipoOferta=rsetBP("TipoOferta") PalabraClave=rsetBP("PalabraClave") rsetBP.Close Set rsetBP = Nothing criterio="" if (Area<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + " (Area='" + CStr(Area) + "') " end if if (Puesto<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Puesto='" + CStr(Puesto) + "') " end if if (Provincia<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Provincia='" + CStr(Provincia) + "') " end if if ((Pais<>"Sin Definir") AND (Pais<>""))then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Pais='" + CStr(Pais) + "') " end if if (TipoContrato<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(TipoContrato='" + CStr(TipoContrato) + "') " end if if (CInt(Remuneracion)<>-1) then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Remuneracion >= " + CStr(Remuneracion) + ") " end if if (CInt(Experiencia)<>-1) then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Experiencia >= " + CStr(Experiencia) + ") " end if if (Titulacion<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Titulacion='" + CStr(Titulacion) + "') " end if if (Especialidad<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Especialidad='" + CStr(Especialidad) + "') " end if if (Jornada<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Jornada=" + CStr(Jornada) + ") " end if if (TipoOferta<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(TipoOferta='" + CStr(TipoOferta) + "') " end if 'palabra clave if (criterio<>"") then criterio = " WHERE ( " + criterio + " )" end if if CStr(CIF)<>"Sin Definir" then 'solo una empresa Session("Cand_NumOftBP2")=0 Set rsetEmpresas= Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_EmpresasRegistradas WHERE CIF='" + CStr(CIF) + "'" rsetEmpresas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetEmpresas.Eof) then NombreTabla = "T_Ofertas_" + CStr(CIF) Set rsetOfertas = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla + CStr(criterio) +" ORDER BY FechaPublicacion" rsetOfertas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetOfertas.EOF) then rsetOfertas.MoveLast rsetOfertas.MoveFirst Session("Cand_NumOftBP2")=CInt(rsetOfertas.RecordCount) end if rsetOfertas.Close Set rsetOfertas = Nothing end if rsetEmpresas.Close Set rsetEmpresas = Nothing else 'cualquier empresa Session("Cand_NumOftBP2")=0 Set rsetEmpresas= Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_EmpresasRegistradas" rsetEmpresas.Open sSQL, objEmpConexion, adOpenKeySet do until rsetEmpresas.EOF NombreTabla = "T_Ofertas_" + CStr(rsetEmpresas("CIF")) Set rsetOfertas = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla + CStr(criterio) +" ORDER BY FechaPublicacion" rsetOfertas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetOfertas.EOF) then rsetOfertas.MoveLast rsetOfertas.MoveFirst Session("Cand_NumOftBP2")= CInt(Session("Cand_NumOftBP2")) + CInt(rsetOfertas.RecordCount) end if rsetOfertas.Close Set rsetOfertas = Nothing rsetEmpresas.MoveNext loop end if else Session("Cand_NumOftBP2")=-1 end if if CStr(bp3)="Si" then Set rsetBP = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_BusquedasPersonales WHERE ((DNICandidato = '" + DNI + "') AND (idBusqueda = 3))" rsetBP.Open sSQL, objConexion, adOpenKeySet CIF=rsetBP("CIFEmpresa") Area=rsetBP("Area") Puesto=rsetBP("Puesto") Provincia=rsetBP("Provincia") Pais=rsetBP("Pais") TipoContrato=rsetBP("TipoContrato") Remuneracion=rsetBP("Remuneracion") Experiencia=rsetBP("Experiencia") Titulacion=rsetBP("NETitulacion") Especialidad=rsetBP("NEEspecialidad") Jornada=rsetBP("Jornada") TipoOferta=rsetBP("TipoOferta") PalabraClave=rsetBP("PalabraClave") rsetBP.Close Set rsetBP = Nothing criterio="" if (Area<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + " (Area='" + CStr(Area) + "') " end if if (Puesto<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Puesto='" + CStr(Puesto) + "') " end if if (Provincia<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Provincia='" + CStr(Provincia) + "') " end if if ((Pais<>"Sin Definir") AND (Pais<>""))then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Pais='" + CStr(Pais) + "') " end if if (TipoContrato<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(TipoContrato='" + CStr(TipoContrato) + "') " end if if (CInt(Remuneracion)<>-1) then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Remuneracion >= " + CStr(Remuneracion) + ") " end if if (CInt(Experiencia)<>-1) then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Experiencia >= " + CStr(Experiencia) + ") " end if if (Titulacion<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Titulacion='" + CStr(Titulacion) + "') " end if if (Especialidad<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Especialidad='" + CStr(Especialidad) + "') " end if if (Jornada<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(Jornada=" + CStr(Jornada) + ") " end if if (TipoOferta<>"Sin Definir") then if (criterio<>"") then criterio = criterio + " AND " end if criterio = criterio + "(TipoOferta='" + CStr(TipoOferta) + "') " end if 'palabra clave if (criterio<>"") then criterio = " WHERE ( " + criterio + " )" end if if CStr(CIF)<>"Sin Definir" then 'solo una empresa Session("Cand_NumOftBP3")=0 Set rsetEmpresas= Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_EmpresasRegistradas WHERE CIF='" + CStr(CIF) + "'" rsetEmpresas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetEmpresas.Eof) then NombreTabla = "T_Ofertas_" + CStr(CIF) Set rsetOfertas = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla + CStr(criterio) +" ORDER BY FechaPublicacion" rsetOfertas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetOfertas.EOF) then rsetOfertas.MoveLast rsetOfertas.MoveFirst Session("Cand_NumOftBP3")=CInt(rsetOfertas.RecordCount) end if rsetOfertas.Close Set rsetOfertas = Nothing end if rsetEmpresas.Close Set rsetEmpresas = Nothing else 'cualquier empresa Session("Cand_NumOftBP3")=0 Set rsetEmpresas= Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM T_EmpresasRegistradas" rsetEmpresas.Open sSQL, objEmpConexion, adOpenKeySet do until rsetEmpresas.EOF NombreTabla = "T_Ofertas_" + CStr(rsetEmpresas("CIF")) Set rsetOfertas = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla + CStr(criterio) +" ORDER BY FechaPublicacion" rsetOfertas.Open sSQL, objEmpConexion, adOpenKeySet if (Not rsetOfertas.EOF) then rsetOfertas.MoveLast rsetOfertas.MoveFirst Session("Cand_NumOftBP3")= CInt(Session("Cand_NumOftBP3")) + CInt(rsetOfertas.RecordCount) end if rsetOfertas.Close Set rsetOfertas = Nothing rsetEmpresas.MoveNext loop end if else Session("Cand_NumOftBP3")=-1 end if end if %> <% select case CInt(Session("Cand_NumOftBP1")) case -1: %>

La búsqueda personalizada 1 no está automatizada.

<% case 0: %>

No se han encontrado ofertas para la busqueda personalizada 1.

<% case else: %>

Se ha(n) encontrado <%=CStr(Session("Cand_NumOftBP1"))%> oferta(s) para la busqueda personalizada 1.

<% end select %> <% select case CInt(Session("Cand_NumOftBP2")) case -1: %>

La búsqueda personalizada 2 no está automatizada.

<% case 0: %>

No se han encontrado ofertas para la busqueda personalizada 2.

<% case else: %>

Se ha(n) encontrado <%=CStr(Session("Cand_NumOftBP2"))%> oferta(s) para la busqueda personalizada 2.

<% end select %> <% select case CInt(Session("Cand_NumOftBP3")) case -1: %>

La búsqueda personalizada 3 no está automatizada.

<% case 0: %>

No se han encontrado ofertas para la busqueda personalizada 3.

<% case else: %>

Se ha(n) encontrado <%=CStr(Session("Cand_NumOftBP3"))%> oferta(s) para la busqueda personalizada 3.

<% end select %> <% else Session("Cand_InicioSesion")=False %>

Las búsquedas personalizadas no están automatizadas.

<% end if %>
Mensajería

<% NombreTabla = "T_Contactos_" + CStr(Session("Cand_DNI")) Set rsetContactos = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla rsetContactos.Open sSQL, objConexion, adOpenKeySet criterio="" NombreTabla2 = "T_Mensajeria_" + CStr(Session("Cand_DNI")) do until rsetContactos.EOF if CStr(criterio)<>"" then criterio = criterio + " AND " end if criterio = criterio + "(" + NombreTabla2 + ".DatosDe<>'" + CStr(rsetContactos("CIF")) + "')" rsetContactos.MoveNext loop if CStr(criterio)<>"" then criterio="(" + criterio + " AND (DatosA='" + CStr(Session("Cand_DNI")) + "') AND (Nuevo='Si'))" else criterio="((DatosA='" + CStr(Session("Cand_DNI")) + "') AND (Nuevo='Si'))" end if rsetContactos.Close Set rsetContactos = Nothing Set rsetMensajeria = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM " + NombreTabla2 + " WHERE " + CStr(criterio) rsetMensajeria.Open sSQL, objConexion, adOpenKeySet if rsetMensajeria.EOF then msjext=0 else rsetMensajeria.MoveLast rsetMensajeria.MoveFirst msjext=rsetMensajeria.RecordCount end if rsetMensajeria.Close Set rsetMensajeria = Nothing NombreTabla2 = "T_Mensajeria_" + DNI Set rsetMsj = Server.CreateObject("ADODB.Recordset") sSQL2 = "SELECT * FROM " + NombreTabla2 + " WHERE ((DatosA = '" + CStr(DNI) + "') AND (Nuevo='Si'))" rsetMsj.Open sSQL2, objConexion, adOpenKeySet if Not rsetMsj.EOF then rsetMsj.MoveLast rsetMsj.MoveFirst msjint = CInt(rsetMsj.RecordCount) - msjext end if rsetMsj.Close Set rsetMsj=Nothing %> <%if CInt(msjint)>0 then %>Tiene <%=CStr(msjint)%> mensaje(s) nuevo(s) de sus contactos.<%else%>No tiene ningun correo nuevo de sus contactos.<%end if%>

<%if CInt(msjext)>0 then %>Tiene <%=CStr(msjext)%> mensaje(s) externo(s) nuevo(s).<%else%>No tiene ningun correo externo nuevo.<%end if%>
<% Set objConexion = Nothing %>