}<%
Dim DB, SQL, rs
Set DB = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.mdb"))
SQL = "SELECT * FROM ciclismo"
rs.open SQL, DB, 3, 3
while not rs.EOF
	response.Write(rs.fields("id"))
	response.Write(rs.fields("titulo"))
	response.Write(rs.fields("fecha"))
	response.Write(rs.fields("introduccion"))
	response.Write(rs.fields("nota"))
	response.Write(rs.fields("foto"))
	response.Write(rs.fields("foto_thumb"))
	response.Write(rs.fields("principal"))
wend
rs.close
%>