%@LANGUAGE="VBSCRIPT"%> <% set Rs_noticias = Server.CreateObject("ADODB.Recordset") Rs_noticias.ActiveConnection = MM_cruces_STRING Rs_noticias.Source = "SELECT * FROM noticias ORDER BY fecha DESC" Rs_noticias.CursorType = 0 Rs_noticias.CursorLocation = 2 Rs_noticias.LockType = 3 Rs_noticias.Open() Rs_noticias_numRows = 0 %> <% Dim Rs_publicaciones Dim Rs_publicaciones_numRows Set Rs_publicaciones = Server.CreateObject("ADODB.Recordset") Rs_publicaciones.ActiveConnection = MM_cruces_STRING Rs_publicaciones.Source = "SELECT * FROM publicaciones ORDER BY fecha_posicion DESC" Rs_publicaciones.CursorType = 0 Rs_publicaciones.CursorLocation = 2 Rs_publicaciones.LockType = 1 Rs_publicaciones.Open() Rs_publicaciones_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Rs_publicaciones_numRows = Rs_publicaciones_numRows + Repeat1__numRows %>
<%'***************** AQUI VA EL MAPA*****************************************'%>
| Contacto
|
Hospital de Cruces
94 600 6000 Centralita
|