| Current File : C:/Inetpub/vhosts/subidatamaimo.com/httpdocs/index2.asp |
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.Charset = "utf-8"
Function HtmlTexto(valor)
If IsNull(valor) Then
HtmlTexto = ""
Else
HtmlTexto = Server.HTMLEncode(CStr(valor))
End If
End Function
Function TextoRecortado(valor, longitudMaxima)
Dim texto
If IsNull(valor) Then
TextoRecortado = ""
Exit Function
End If
texto = Trim(CStr(valor))
' Eliminación básica de saltos de línea
texto = Replace(texto, vbCr, " ")
texto = Replace(texto, vbLf, " ")
If Len(texto) > longitudMaxima Then
texto = Left(texto, longitudMaxima)
texto = Left(texto, InStrRev(texto, " ") - 1) & "..."
End If
TextoRecortado = Server.HTMLEncode(texto)
End Function
Function NombreMes(numeroMes)
Select Case CInt(numeroMes)
Case 1: NombreMes = "ENE"
Case 2: NombreMes = "FEB"
Case 3: NombreMes = "MAR"
Case 4: NombreMes = "ABR"
Case 5: NombreMes = "MAY"
Case 6: NombreMes = "JUN"
Case 7: NombreMes = "JUL"
Case 8: NombreMes = "AGO"
Case 9: NombreMes = "SEP"
Case 10: NombreMes = "OCT"
Case 11: NombreMes = "NOV"
Case 12: NombreMes = "DIC"
Case Else: NombreMes = ""
End Select
End Function
Dim id(1000)
Dim titular(1000)
Dim fotoppal(1000)
Dim cabecera(1000)
Dim noticiaDia(1000)
Dim noticiaMes(1000)
Dim noticiaAno(1000)
Dim conexion
Dim tabla
Dim blogerid
Dim Conn
Dim RS
Dim sSQL
Dim x
blogerid = "1"
tabla = "entradas"
conexion = "PROVIDER=SQLOLEDB;" & _
"DATA SOURCE=147.135.183.197;" & _
"UID=subidatamaimo;" & _
"PWD=Cocococo1;" & _
"DATABASE=subidatamaimo"
x = 0
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open conexion
sSQL = "SELECT TOP 6 id, titular, foto1, cabecera, dia, mes, ano " & _
"FROM " & tabla & " " & _
"WHERE blogger='" & Replace(blogerid, "'", "''") & "' " & _
"ORDER BY ano DESC, mes DESC, dia DESC, id DESC"
Set RS = Conn.Execute(sSQL)
Do While Not RS.EOF
x = x + 1
id(x) = RS("id")
titular(x) = RS("titular")
fotoppal(x) = RS("foto1")
cabecera(x) = RS("cabecera")
noticiaDia(x) = RS("dia")
noticiaMes(x) = RS("mes")
noticiaAno(x) = RS("ano")
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
<!DOCTYPE html>
<html lang="es">
<head>
<meta charset="utf-8">
<title>Subida a Tamaimo 2026</title>
<meta
name="description"
content="Web oficial de la Escudería Barliamotorsport y de la Subida a Tamaimo">
<meta name="generator" content="Escudería Barliamotorsport">
<meta name="robots" content="index,follow">
<meta
name="viewport"
content="width=device-width, initial-scale=1">
<meta
name="apple-mobile-web-app-title"
content="Subida a Tamaimo">
<meta
name="apple-mobile-web-app-capable"
content="yes">
<meta
name="apple-mobile-web-app-status-bar-style"
content="black">
<link
rel="apple-touch-icon"
href="img/touch-icon-iphone.png">
<link
rel="apple-touch-icon"
sizes="72x72"
href="img/touch-icon-ipad.png">
<link
rel="apple-touch-icon"
sizes="114x114"
href="img/touch-icon-iphone4.png">
<link
rel="apple-touch-icon"
sizes="144x144"
href="img/touch-icon-ipad2.png">
<link
rel="icon"
type="image/vnd.microsoft.icon"
href="img/touch-icon-ipad2.png">
<link
rel="shortcut icon"
href="img/touch-icon-ipad2.png">
<link
rel="stylesheet"
href="css/estilo2.css?v=20260731-redesign-1"
media="all">
<script
type="text/javascript"
src="https://ajax.googleapis.com/ajax/libs/jquery/1.3/jquery.min.js">
</script>
<!-- Mantiene los scripts actuales del menú y del slider -->
<!--#include file="cabecera.asp"-->
</head>
<body
id="index"
class="index hide-left-column hide-right-column lang_es one-column">
<div id="page" class="home-redesign">
<!-- =====================================================
CABECERA
===================================================== -->
<div class="header-container">
<header id="header">
<div class="home-topbar">
<div class="container">
<div class="home-topbar-inner">
<span class="home-topbar-evento">
Subida a Tamaimo 2025
</span>
<a
href="https://www.subidaalboqueron.com"
target="_blank"
rel="noopener noreferrer"
class="home-topbar-enlace">
Subida al Boquerón · Sport Eventos Tenerife
</a>
</div>
</div>
</div>
<div class="home-header-main">
<div class="container">
<div class="header-main">
<div id="header_logo">
<a
href="index.asp"
title="Subida a Tamaimo">
<img
class="logo img-responsive"
src="img/logo2025.jpg"
alt="Subida a Tamaimo"
width="205"
height="57">
</a>
</div>
<!--#include file="menu.asp"-->
</div>
</div>
</div>
</header>
</div>
<!-- =====================================================
SLIDER PRINCIPAL
===================================================== -->
<section
class="home-hero"
aria-label="Información destacada">
<div id="homepage-slider">
<ul
id="homeslider"
class="home-hero-slider">
<!-- DIAPOSITIVA 1 -->
<li class="homeslider-container home-hero-slide">
<img
src="img/patrocinadores.png"
width="2048"
height="747"
alt="Patrocinadores de la Subida a Tamaimo">
</li>
<!-- DIAPOSITIVA 2 -->
<li class="homeslider-container home-hero-slide">
<img
src="img/acantilados.jpg"
width="2048"
height="747"
alt="Santiago del Teide">
<div class="home-hero-overlay"></div>
<div class="home-hero-content">
<span class="home-hero-kicker">
Tenerife · Santiago del Teide
</span>
<h1>
Subida a
<strong>Tamaimo</strong>
</h1>
<p>
Motor, paisaje y emoción en una de las pruebas
más emblemáticas del automovilismo canario.
</p>
<a
class="home-hero-button"
href="https://www.santiagodelteide.org"
target="_blank"
rel="noopener noreferrer">
Descubre el municipio
<span aria-hidden="true">→</span>
</a>
</div>
</li>
<!-- DIAPOSITIVA 3 -->
<li class="homeslider-container home-hero-slide">
<img
src="img/aficion17.jpg"
width="2048"
height="747"
alt="Afición de la Subida a Tamaimo">
<div class="home-hero-overlay"></div>
<div class="home-hero-content">
<span class="home-hero-kicker">
La esencia de la prueba
</span>
<h2>
Nuestra
<strong>afición</strong>
</h2>
<p>
Disfruta del automovilismo con responsabilidad
y siguiendo siempre las indicaciones de seguridad.
</p>
<a
class="home-hero-button"
href="#home-accesos">
Conoce la prueba
<span aria-hidden="true">→</span>
</a>
</div>
</li>
<!-- DIAPOSITIVA 4 -->
<li class="homeslider-container home-hero-slide">
<img
src="img/seguridad.jpg"
width="2048"
height="747"
alt="Seguridad en la Subida a Tamaimo">
<div class="home-hero-overlay"></div>
<div class="home-hero-content">
<span class="home-hero-kicker">
Compromiso de la organización
</span>
<h2>
La seguridad,
<strong>lo primero</strong>
</h2>
<p>
La colaboración del público es imprescindible
para proteger a pilotos, oficiales y aficionados.
</p>
<a
class="home-hero-button"
href="img/cartelseguridad.jpg"
target="_blank">
Ver recomendaciones
<span aria-hidden="true">→</span>
</a>
</div>
</li>
</ul>
</div>
</section>
<!-- =====================================================
PATROCINIO INSTITUCIONAL
===================================================== -->
<section class="home-patrocinio">
<div class="container">
<div class="home-patrocinio-inner">
<div class="home-patrocinio-distintivo">
2025
</div>
<div>
<span>Temporada 2025</span>
<strong>
Subvencionada por el Cabildo de Tenerife
</strong>
</div>
</div>
</div>
</section>
<!-- =====================================================
NOTICIAS
===================================================== -->
<main>
<section class="home-noticias">
<div class="container">
<header class="home-section-heading">
<span>Últimas noticias</span>
<h2>Mantente al día</h2>
<p>
Actualidad, información deportiva y novedades
de la Subida a Tamaimo.
</p>
</header>
<% If x > 0 Then %>
<div class="home-news-grid">
<%
Dim i
Dim limiteNoticias
limiteNoticias = 3
If x < limiteNoticias Then
limiteNoticias = x
End If
For i = 1 To limiteNoticias
%>
<article class="home-news-card">
<a
class="home-news-image"
href="noticia.asp?id=<%=id(i)%>"
aria-label="<%=HtmlTexto(titular(i))%>">
<img
src="fotografias/<%=Server.URLEncode(fotoppal(i))%>"
alt="<%=HtmlTexto(titular(i))%>"
loading="lazy">
<span class="home-news-date">
<strong>
<%=Right("0" & noticiaDia(i), 2)%>
</strong>
<span>
<%=NombreMes(noticiaMes(i))%>
</span>
<small>
20<%=Right("0" & noticiaAno(i), 2)%>
</small>
</span>
</a>
<div class="home-news-body">
<h3>
<a href="noticia.asp?id=<%=id(i)%>">
<%=HtmlTexto(titular(i))%>
</a>
</h3>
<% If Trim(cabecera(i) & "") <> "" Then %>
<p>
<%=TextoRecortado(cabecera(i), 170)%>
</p>
<% End If %>
<a
class="home-news-more"
href="noticia.asp?id=<%=id(i)%>">
Leer noticia
<span aria-hidden="true">→</span>
</a>
</div>
</article>
<%
Next
%>
</div>
<% Else %>
<div class="home-no-news">
No hay noticias publicadas actualmente.
</div>
<% End If %>
</div>
</section>
<!-- =================================================
ACCESOS DESTACADOS
================================================= -->
<section
id="home-accesos"
class="home-accesos">
<div class="container">
<div class="home-access-grid">
<article class="home-access-card">
<span class="home-access-number">01</span>
<h3>La seguridad primero</h3>
<p>
Recomendaciones esenciales para pilotos,
equipos y aficionados.
</p>
<a href="img/cartelseguridad.jpg" target="_blank">
Más información
<span aria-hidden="true">→</span>
</a>
</article>
<article class="home-access-card">
<span class="home-access-number">02</span>
<h3>Nuestra afición</h3>
<p>
La pasión del público convierte Tamaimo
en una cita imprescindible.
</p>
<a href="#homepage-slider">
Descubre la prueba
<span aria-hidden="true">→</span>
</a>
</article>
<article class="home-access-card">
<span class="home-access-number">03</span>
<h3>Santiago del Teide</h3>
<p>
Naturaleza, patrimonio, costa y experiencias
alrededor de la competición.
</p>
<a
href="https://www.santiagodelteide.org"
target="_blank"
rel="noopener noreferrer">
Visitar municipio
<span aria-hidden="true">→</span>
</a>
</article>
<article class="home-access-card">
<span class="home-access-number">04</span>
<h3>Información de la prueba</h3>
<p>
Horarios, documentación, reglamentos,
participantes y resultados.
</p>
<a href="#header">
Consultar el menú
<span aria-hidden="true">→</span>
</a>
</article>
</div>
</div>
</section>
<!-- =================================================
COLABORADOR
================================================= -->
<section class="home-colaborador">
<div class="container">
<div class="home-colaborador-inner">
<span>Entidad colaboradora</span>
<a
href="https://www.cajasiete.com/"
target="_blank"
rel="noopener noreferrer">
<img
src="img/logocajasiete.png"
alt="Cajasiete"
loading="lazy">
</a>
</div>
</div>
</section>
</main>
<!-- Mantiene el pie renovado actual -->
<!--#include file="pie.asp"-->
<div class="clearfix"></div>
</div>
</body>
</html>