<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM titulares0 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write ""&result.Fields("subtitulo")&"
" Response.Write ""&result.Fields("titulo")&"
" Response.Write "
" if result("imagen00")<> blank then Response.Write "
" end if if result("imagen400")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "" Response.Write "
" 'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>



<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM titulares ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write ""&result.Fields("subtitulo")&"
" Response.Write ""&result.Fields("titulo")&"
" if result("imagen00")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "" 'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM titulares2 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write ""&result.Fields("subtitulo")&"
" Response.Write ""&result.Fields("titulo")&"
" if result("imagen00")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "" 'Pasa a la siguiente fila result.MoveNext Response.Write "
" %> <%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM titulares3 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write ""&result.Fields("subtitulo")&"
" Response.Write ""&result.Fields("titulo")&"
" if result("imagen00")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "" 'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM titulares4 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write ""&result.Fields("subtitulo")&"
" Response.Write ""&result.Fields("titulo")&"
" if result("imagen00")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "" 'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

 

 

 

 

 

<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM deportes ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write "
" Response.Write "

"&result.Fields("subtitulo")&"
" Response.Write "

" Response.Write ""&result.Fields("titulo")&"
" if result("imagentapa")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "

" 'Pasa a la siguiente fila'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

 

  <% Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM farmacias ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Response.Write "
" Response.Write "FARMACIAS DE TURNO
" Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write "
" Response.Write ""&result.Fields("dia")&"" Response.Write "
" Response.Write "" &result.Fields("farmacias") & "" 'Pasa a la siguiente fila'Pasa a la siguiente fila result.MoveNext Response.Write "
" Response.Write "
" %>

 

 

<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM deportes2 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write "
" Response.Write "

"&result.Fields("subtitulo")&"
" Response.Write "

" Response.Write ""&result.Fields("titulo")&"
" if result("imagentapa")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "

" 'Pasa a la siguiente fila'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM deportes3 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write "
" Response.Write "

"&result.Fields("subtitulo")&"
" Response.Write "

" Response.Write ""&result.Fields("titulo")&"
" if result("imagentapa")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "

" 'Pasa a la siguiente fila'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

<%'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM deportes4 ORDER BY importancia" Set result = con.Execute(sql) 'Recorre todas las filas del resultado Do While Not result.EOF ' Muestra la fila actual Response.Write "" Loop 'Libera memoria result.Close Set result = Nothing con.Close Set con = Nothing Response.Write "
" Response.Write "
" Response.Write "

"&result.Fields("subtitulo")&"
" Response.Write "

" Response.Write ""&result.Fields("titulo")&"
" if result("imagentapa")<> blank then Response.Write "
" end if Response.Write "" &result.Fields("copete") & "

" 'Pasa a la siguiente fila'Pasa a la siguiente fila result.MoveNext Response.Write "
" %>

 

 
Los diseñadores de este sitio web, no somos responsables de su contenido. Las notas y comentarios son propiedad y responsabilidad de quien las firma.
©2013 - Contenidos: Revista Panorama - Venado Tuerto - Santa Fe - Argentina