	¿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")) %>

<% if (fs.FileExists(Server.MapPath("./" & cPath & "images/" & cImg ))) then response.write "" end if %> <%= cShortTitle %>, <%= cTitle %>.
<%= cIntroduction %>... DESEO CONOCER MÁS >>

<% ' 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 %>