<% 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 'Reserva' order by id" RS.Open SQL, oConn, 2, 2 %>

	Vino Reserva: Corresponde a vinos muy seleccionados, con un envejecimiento mínimo entre barrica y botella de tres años, uno de ellos al menos en barrica. En vinos blancos, el periodo de envejecimiento es de dos años.
	<% 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