<% response.buffer=true ' ------------------------------------------------------------------------------------------------------------------------ function getTipo (elTipo) select case elTipo case "AVENTURA": getTipo="1" case "CULTURAL": getTipo="2" case "SOL Y PLAYA": getTipo="3" case "NATURALEZA": getTipo="4" case "NEGOCIOS": getTipo="5" case "AVENTURA": getTipo="6" case "RURAL": getTipo="7" case "EXÓTICO": getTipo="8" case else getTipo="0" end select end function ' ------------------------------------------------------------------------------------------------------------------------ ' Establece el timeout a 3 minutos para las conexiones que son excesivamente lentas Server.ScriptTimeout = timeOutDB ' ------------------------------------------------------------------------------------------------------------------------ Const porPagina=15 ' Número de artículos por página Dim tableName ' Nombre de la tabla a la que consultar Dim query ' Consulta Dim nxt tableName="reportajes" nxt=0 destino=trim(request("destino")) tipo=trim(request("tipo")) if tipo="" then if destino<>"" then response.redirect destino & "default.asp" end if end if ' Creo el objeto para acceder al fichero de imagen Set fs = CreateObject("Scripting.FileSystemObject") %>


¿QUÉ TIPO DE REPORTAJE BUSCA?


 

 

             ¿O QUÉ DESTINO?            <% ' Establece la conexión con la BD Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionString = StrConnAccessReportajes conn.Open 'Activa la conexión Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn %> <% rs.close Set rs = nothing %>

<% if tipo="" then %> <% else query = "SELECT * FROM " & tableName & " WHERE cKind LIKE '%" & getTipo(tipo) & "%'" ' Establece la conexión con la BD Set conn = Server.CreateObject("ADODB.Connection") conn.Open StrConnAccessReportajes 'Activa la conexión Set rs = Server.CreateObject("ADODB.RecordSet") rs.ActiveConnection = conn %>
<% rs.Open query, conn, 1,3 if rs.eof then Response.write("

No hay reportajes de este tipo. Inténtelo con otra categoría.

") Response.write("

¡GRACIAS!") else total=rs.recordcount ' si no se pasa ningún parámetro "start" se utiliza 1 if request("start")="" then start=1 else start=cint(request("start")) end if rs.move start - 1 %>
 DESTINOS >>>>>>>  <%= tipo %>
<% ' INICIO DE LA SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS '---------------------------------------------------------------------------- tableColor=0 counter=0 for row=start to start + (porPagina -1) counter=counter+1 if rs.eof then exit for ' SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS ' ----------------------------------------------------------------- cPath = trim(rs("cPath")) cTitle = trim(rs("cTitle")) cShortTitle = trim(rs("cShortTitle")) cIntroduction = trim(rs("cIntroduction")) cCountry = trim(rs("cCountry")) cImg = trim(rs("cImg")) %>

<% ' FIN DE LA SECCIÓN EN LA QUE INCLUIR LA EXPOSICIÓN DE LOS CAMPOS CONSULTADOS '---------------------------------------------------------------------------- nxt=start rs.MoveNext next set rs = nothing 'cerrar conexión conn.close set conn=nothing %>

Si desea ver el reportaje completo, haga "click" sobre el texto "DESEO CONOCER MÁS" o sobre la foto del lugar que acompaña a la breve introducción de cada reportaje.

<% if total>porPagina then Response.write("

") Response.write("Más Reportajes: ") hits=0 for n=1 to total step porPagina if n<>1 then response.write " - " hits = hits + 1 if hits<>cint(request("p")) then ' escribe un link que llamará de nuevo a esta página Response.write ("" Response.write hits else Response.write("") Response.write hits Response.write("") end if Response.write "" Response.write " " next if nxt<>1 then ' escribe un link que llamará de nuevo a esta página Response.write (""" then Response.write "&tipo=" Response.write (Server.URLencode(trim(request("tipo")))) end if Response.write """ target=""_parent"">" Response.write "Anterior" Response.write "" Response.write " " end if if (nxt+porPagina-1)"" then Response.write "&tipo=" Response.write (Server.URLencode(trim(request("tipo")))) end if Response.write """ target=""_parent"">" Response.write "Siguiente" Response.write "" Response.write " " end if Response.write("

") end if end if %>

<% end if %>