<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%=titulo%> <% call cabecera %>
<% call menu %> <% id = Request.QueryString("id") set rs=server.CreateObject("ADODB.Recordset") sql="select * from viajes_organizados where id="&id&"" rs.open sql,Oconn,2,2 select case session("idioma") case 1%>
Viajes organizados
<% if not rs.eof then do while not RS.Eof %>
<%=rs("titulo")%>  (<%=rs("fechaviaje")%>)
" alt="" width="590" height="80" vspace="5" />
Descripción
<%=rs("textolargo")%>
<% if not rs("enlace")="" then %> " class="enlaceslista" target="_blank">(+ detalles ) <% end if%>
 
 
volver al listado
<% rs.movenext loop end if %>
 
<% case 2 %>
Viajes organizados
<% if not rs.eof then do while not RS.Eof %>
<%=rs("titulocat")%>  (<%=rs("fechaviaje")%>)
" alt="" width="590" height="80" vspace="5" />
Descripción
<%=rs("textolargocat")%>
<% if not rs("enlace")="" then %> " class="enlaceslista" target="_blank">(+ detalles ) <% end if%>
 
 
volver al listado
<% rs.movenext loop end if %>
 
<% case 3 %>
Viajes organizados
<% if not rs.eof then do while not RS.Eof %>
<%=rs("tituloing")%>  (<%=rs("fechaviaje")%>)
" alt="" width="590" height="80" vspace="5" />
Descripción
<%=rs("textolargoing")%>
<% if not rs("enlace")="" then %> " class="enlaceslista" target="_blank">(+ detalles ) <% end if%>
 
 
volver al listado
<% rs.movenext loop end if %>
 
<% case else %>
Viajes organizados
<% if not rs.eof then do while not RS.Eof %>
<%=rs("titulo")%>  (<%=rs("fechaviaje")%>)
" alt="" width="590" height="80" vspace="5" />
Descripción
<%=rs("textolargo")%>
<% if not rs("enlace")="" then %> " class="enlaceslista" target="_blank">(+ detalles ) <% end if%>
 
 
volver al listado
<% rs.movenext loop end if %>
 
<% end select %>
<% call banners_derecha %>
<% call pie %>