<%@ Language="VBScript"%> Directorio del CEDEPAS

Directorio Institucional CEDEPAS Norte

Cajamarca, <%=date()%>

Usuario:
Contraseña:

<% 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 %>