<% Dim SQL, oConn, RS, opcion opcion = Request.QueryString("opcion") 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 codigo='"& opcion &"' " RS.Open SQL,oConn %>

	<% Response.Write ("") Response.Write ("") Response.Write ("") Response.Write("") Response.Write("") Response.Write("") Response.Write ("") Response.Write("") Response.Write("") Response.Write("") oConn.Close Set RS = nothing Set oConn = nothing %> "&RS("nombre")&"     " & RS("texto1")&" "&RS("texto2")&"   "&RS("enlace")&"
	Vinos Selectos de Rioja