%@ Language="VBScript"%>
Directorio Institucional CEDEPAS Norte
Cajamarca, <%=date()%>
<% set rst = Server.CreateObject("ADODB.Recordset") rst.ActiveConnection = "DSN=Directorio;UserId=web;Password=odaliska$$$;UID=web" rst.Source = "SELECT ID, sigla, cumpdia, cumpmes FROM Institucional WHERE cumpdia = day(getdate()) and cumpmes = month(getdate())" rst.CursorType = 0 rst.CursorLocation = 2 rst.LockType = 3 rst.Open rst_numRows = 0 %>Cumpleaños / Fundación:
<%while not rst.eof%> "> <%=rst("sigla")%> , <% rst.movenext wend rst.close set rst = nothing %>