<% sSQL="SELECT * FROM empleo WHERE Id=" & Request.QueryString("Id") & "" 'constantes ADO VBScript 'Const adCmdText = &H0001 'Const adOpenStatic = 3%> <% doc1=RS("anuncioybases") doc2=RS("provisional") doc3=RS("definitiva") doc4=RS("provapro") doc5=RS("definapro") doc6=RS("nota") dia = Day(RS("fecha")) mes = Month(RS("fecha")) ano = Year(RS("fecha")) hora=hour(RS("fecha")) minuto=minute(RS("fecha")) fecha=dia&"/"&mes&"/"&ano&"___"&hora&":"&minuto diaE = Day(RS("examen")) mesE = Month(RS("examen")) anoE = Year(RS("examen")) examen=diaE&"/"&mesE&"/"&anoE %>

Oferta	<%=RS("oferta")%>
Fecha  WEB	<%=Fecha%>	Fecha de Examen	<%=examen%>
Procedimiento de selección	<%=RS("procedimiento")%>
Duración	<%=RS("duracion")%>
Presentación de Solicitudes	<%=RS("solicitudes")%>

Documentos

Anuncio y Bases		Lista Provisional de Admitidos
<%If doc1<>"" Then %> "> Ver Documento ">  >> <%else Response.Write("No existe Documento")%> <%end If%>		<%If doc2<>"" Then %> ">Ver Documento >><%else Response.Write("No existe Documento")%><%end If%>
Lista Definitiva de Admitidos		Lista Provisional de Aprobados
<%If doc3<>"" Then %> ">Ver Documento >><%else Response.Write("No existe Documento")%><%end If%>		<%If doc4<>"" then %> ">Ver Documento >><%else Response.Write("No existe Documento")%><%end If%>
Lista Definitiva de Aprobados
<%If doc5<>"" Then %> ">Ver Documento >><%else Response.Write("No existe Documento")%><%end If%>
Nota Informativa
<%If doc6<>"" Then %> ">Ver Documento >><%else Response.Write("No existe Documento")%><%end If%>

<% RS.Close Conn.Close Set result = Nothing Set con = Nothing %>