<% Option Explicit ' Las siguientes líneas sirven para evitar la caché del explorador Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 on error resume Next Private Function f_GetValue(avValor) Dim lvVal if IsNull(avValor) then lvVal="" Else lvVal=Server.HTMLEncode(avValor) lvVal=Replace(lvVal,"\","\\") lvVal=Replace(Replace(lvVal, "'", "´"),vbcrlf," ") end If f_GetValue=lvVal End Function Private Sub f_CargaOfertas() Dim lRs Dim i,x dim lConn dim lsConnStr on error resume next '----------------------- Se crea el RecordSet Set lRs = Server.CreateObject("ADODB.RecordSet") lsConnStr="PROVIDER=SQLOLEDB.1;Initial Catalog=wapps;Data Source=10.0.0.200;network=DBMSSOCN;UID=WEBUSR;PWD=FHU76YUI" Set lConn = Server.CreateObject("ADODB.Connection") lConn.ConnectionTimeout = 20 ' (intenta conectar durante 20 segundos max.) lConn.Open lsConnStr ' Response.Write ""& vbCrLf lRs.Open "select puesto, data, area, lugar, funciones, pobl, exp, contrat, T_Contrato, remun, ref, usr from BT_GENERAL where activa='1'", lConn x=0 If (Err.number=0) Then Response.Write "
" Response.Write "" While Not(lRs.EOF And Err.Number=0) if (x MOD 2=0) Then response.Write""&VbCrLf Else Response.Write ""&VbCrLf end If lRs.MoveNext x=x+1 Wend Response.Write "
"&vbcrlf else Response.Write " "&vbcrlf end If Response.Write "
" ' background-image:url(fondo2.gif); Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""&VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""& VbCrLf Response.Write ""&VbCrLf Response.Write "
"& f_GetValue(lRs("PUESTO")) &""& f_GetValue(lRs("LUGAR")) &"

     " Response.Write f_GetValue(lRs("FUNCIONES")) &"

 Experiencia: "& f_GetValue(lRs("EXP")) &"
 Contratación: "& f_GetValue(lRs("CONTRAT")) &" Área: "& f_GetValue(lRs("AREA")) &"
 Remuneración: "& f_GetValue(lRs("REMUN")) &" Fecha: "& f_GetValue(lRs("data")) &"
 Tipo de contrato: "& f_GetValue(lRs("T_Contrato")) &" Población: "& f_GetValue(lRs("pobl")) &"
 Referencia de la oferta: "& f_GetValue(lRs("REF")) &"" Response.Write " Inscribirse " Response.Write "
" Response.Write "
" if (x MOD 2=0) Then response.Write"
" Response.Write "
" Else lsErr="Error: " & Err.description response.write lsErr Err.Clear end If lConn.Close set lRs=Nothing Set lConn=Nothing 'response.write err.description End Sub %> GPO Ingeniería - Bolsa de trabajo
Home | Intranet | Contact | A+  A   A++  
Company

 

Job center

Job Centre is only visible in Spanish, in order to access it click here

We are waiting for you
If your profile fits in any of our offers and you want to take part of GPO’s working team, send us your CV in .doc or .pdf format to the following e-mail address:

qualitat@gpo.es

All information supplied in the candidature process is taken in account and remitted to the Department where their profile fits better. All the CVs are saved during 3 months time. If in this time period we haven’t contacted you that means your candidacy has been discarded.
According to the Organic Law 15/99, of 13th of December about the Protection of Personal Data , the personal data provided to GPO is going to be treated in totally confidential way and it is only going to be used with professional purposes and never to sell or transfer it to third parties. Discarded CVs are going to be destroyed jointly with any other personal data.
GPO Ingeniería, S.A. Aragón 390 5ª planta. 08013 Barcelona Tel. (+ 34) 932 470 069. Fax (+34) 932 316 969 gpo@gpo.es
Company | Activities | International | Clients | Latest news | Jobs | Castellano | Català | Intranet | Contact | Legal Warning
Developed by GPO Ingeniería SA - 2007