<% if Request.QueryString("vino_desde_bodega")<>"" then session("vino_desde_bodega")=Request.QueryString("vino_desde_bodega") session("ver_mas")="no" if Request.QueryString("desde_ver_mas")<>"" then session("ver_mas")="sin_boton" end if if Request.QueryString("bodega_vino")<>"" then session("ver_mas")="vino" session("vino_desde_bodega")=Request.QueryString("bodega_vino") session("vino_desde_precio")=Request.QueryString("precio") session("vino_desde_variedad")=Request.QueryString("variedad") session("vino_desde_ordenar")=Request.QueryString("ordenar") end if if Request.QueryString("variedad_champan")<>"" then session("ver_mas")="champan" session("vino_desde_origen")=Request.QueryString("origen") session("vino_desde_precio")=Request.QueryString("precio") session("vino_desde_variedad")=Request.QueryString("variedad_champan") session("vino_desde_ordenar")=Request.QueryString("ordenar") end if end if if Request.QueryString("codigo")<>"" then bodega = Request.QueryString("codigo") set objconn = server.CreateObject("ADODB.Connection") objconn.Open "bacovirtual" SQL = "Select * from bodegas WHERE bodega = " & bodega & ";" set rsbodegas = server.CreateObject("ADODB.Recordset") set rsbodegas = objconn.Execute(SQL) SQL = "Select * from descripciones WHERE codigo = " & bodega & " ORDER BY orden;" set rsdescripciones = server.CreateObject("ADODB.Recordset") set rsdescripciones = objconn.Execute(SQL) %>

<%if rsbodegas("imagen")<>"" then%> <%else%> <%end if%>

<%do while not rsdescripciones.EOF comentario=replace(rsdescripciones("comentario"),chr(10),"
") if rsdescripciones("imagen")<>"" then %> <%else%> <%end if rsdescripciones.MoveNext loop%>
Foto no disponible" align=left> Bodega <%=rsbodegas("nombre")%>
<%if not rsbodegas("Fundación")="" then%> Fundación: <%=rsbodegas("Fundación")%>
<%end if%>
Bodega <%=rsbodegas("nombre")%>
<%if not rsbodegas("Fundación")="" or not isnull(rsbodegas("Fundación")) then%> Fundación: <%=rsbodegas("Fundación")%>
<%END IF%>
Foto no disponible" align=left> <%=rsdescripciones("titulo")%>
<%if not rsdescripciones("subtitulo")="" then subtitulo=replace(rsdescripciones("subtitulo"),chr(10),"
")%>
<%=subtitulo%> <%end if%>
<%=comentario%>

<%=rsdescripciones("titulo")%>
<%if not rsdescripciones("subtitulo")="" then subtitulo=replace(rsdescripciones("subtitulo"),chr(10),"
")%>
<%=subtitulo%> <%end if%>
<%=comentario%>

">


<%if session("ver_mas")<>"sin_boton" then%> <%if session("ver_mas")="no" then%> > <%else%> <%if session("ver_mas")="vino" then%> &variedad=<%=session("vino_desde_variedad")%>&ordenar=<%=session("vino_desde_ordenar")%>&precio=<%=session("vino_desde_precio")%>"> <%else%> &variedad=<%=session("vino_desde_variedad")%>&ordenar=<%=session("vino_desde_ordenar")%>&precio=<%=session("vino_desde_precio")%>"> <%end if%> <%end if%> <%end if%> <%rsdescripciones.Close set rsdescripciones = nothing rsbodegas.Close set rsbodegas=nothing objconn.Close set objconn=nothing %> <%end if%>