<% Set dbDirectorio = Server.CreateObject("ADODB.Connection") dbDirectorio.Open "DIRECTORIO" cntstitulo1="Seguimiento de Proceso en el Area" Set rsArea = dbDirectorio.Execute("SELECT * FROM Areas17") %>

	<%response.write(cntstitulo1)%>
Marzo-Diciembre 2011

---

Area:
<% Do While Not rsArea.Eof if rsArea("Tipo")=1 then Response.Write("" & rsArea("AREA") & "" & Chr(10)) end if rsArea.MoveNext Loop rsArea.MoveFirst %>
Password