<% iTipoPromocion = 1 ' Aereo iTipoDestino = 2 ' Inter Set RS = Server.CreateObject( "ADODB.Recordset" ) sSql = "select idPromocion, Titulo, Cuerpo" sSql = sSql & " from Promocion " sSql = sSql & " where idTipoPromocion=" & iTipoPromocion sSql = sSql & " and visible=1" sSql = sSql & " and idTipoDestino=" & iTipoDestino sSql = sSql & " order by orden" 'Response.Write sSql 'Response.End RS.Open (sSql), session("conexion") if not RS.EOF then xMatriz = RS.GetRows nTot = UBound(xMatriz,2) + 1 else nTot = 0 end if Rs.Close() set Rs=nothing %> +++ AddTravelGroup +++
About us
Leg. 13379 / Disp. 1952
<%if nTot>0 then%> <%for i=0 to nTot-1%>
name=PromoCer<%=xMatriz(0,i)%>> <%=xMatriz(1,i)%>   <%if cint(len(xMatriz(2,i)))>15 then%> <%end if%>
name=PromoAbr<%=xMatriz(0,i)%> style="display:none;"> <%=xMatriz(1,i)%>   <%if cint(len(xMatriz(2,i)))>15 then%> <%end if%>
<%=xMatriz(2,i)%>
<%next%> <%end if%>
  Consulte otras opciones  
Necesita tener el Flash instalado para ver las imagenes