<% Dim Conn, ConnStr Response.ContentType = "text/xml" ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ConnStr = ConnStr & Server.MapPath("data/centrocosto.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Mode = adModeReadWrite Conn.ConnectionString = ConnStr Conn.Open Dim strSQLAspirantes strAspirantes = "SELECT * FROM Aspirantes" Set rsAspirantes = Server.CreateObject("ADODB.Recordset") rsAreas.Open strSQLAreas, Conn, 1 set rs = Conn.Execute(strSQLAspirantes) rs.MoveFirst() response.write("") response.write("
") while (not rs.EOF) response.write("
") response.write("
" & rs("Cedula") & "
") response.write("
" & rs("Nombres") & "
") response.write("
" & rs("Aspiracion") & "
") response.write("
" & rs("Documento") & "
") response.write("
" & rs("Fecha_Publicacion") & "
") response.write("
") rs.MoveNext() wend rs.close() conn.close() response.write("
") %>
Solicitud Funcionarios - Publicación Vigente
Descripción :
Acto legislativo N° 01 de diciembre 2008
Cedula :
79538818
Documento :
Ver
Fecha publicación :
19 de Mayo de 2009
Descripción :
Acto legislativo N° 01 de diciembre 2008
Cedula :
63391518
Documento :
Ver
Fecha publicación :
19 de Mayo de 2009