<% Dim SQL, oConn, id1, RS Set oConn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "& Server.MapPath ("\data\vselectos.mdb")) SQL = "Select * from vselectos where clasificacion like 'Joven' order by id desc" RS.Open SQL, oConn, 2, 2 %>

	Vino Joven: vino en su primer o segundo año, que conserva sus características primarias de frescor y afrutado.
	<% While not RS.EOF Response.Write ("") Response.Write("") Response.Write("") Response.Write("") Response.Write ("") RS.MoveNext wend oConn.Close Set RS = nothing Set oConn = nothing %>   " & RS("nombre")& ". " & RS("bodega")& ". " & RS("tipo")& ". Composición: " &RS("composicion") &" Descripción detallada