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

	Vino Gran Reserva: corresponde a vinos de grandes cosechas que han envejecido un mínimo de dos años en barrica de roble y tres en botella. En vinos blancos, el periodo de envejecimiento es de cuatro 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