<%Option Explicit %> <% Dim RS, SQL, oConn, opcion opcion = Request.QueryString("opcion") If opcion <> "" then Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= "& Server.MapPath ("\data\valencia.mdb")) SQL = " Select * from valencia Where indicativo like '" & opcion & "' " Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, oConn, 3, 1 %>

<% Else Response.Redirect "index.htm" End if %>

<% If RS("nota") <> "" then Response.Write("") Response.Write("") End If %> <% If RS("introduccion") <> "" then Response.Write("") Response.Write("") End If %> <% If RS("ingredientes") <> "" then %> <% If RS("preparacion") <> "" then %> <% End If %> <% If RS("comentario") <> "" then %> <% End If %> <% Response.Write RS("titulo") %> ") Response.Write("(" & RS("nota") & ")") Response.Write(" ") Response.Write(RS("introduccion")) Response.Write("   Ingredientes     <% Response.Write(RS("ingredientes")) End If %>   <% If RS("foto")<>"" then Response.Write(RS("foto")) End if %>   Elaboración <% Response.Write(RS("preparacion")) %>   <% Response.Write(RS("comentario"))%>