Esta sección tiene la intención de que podais encontrar aquí las últimas noticias y avisos relativos al mundo del triatlón, listadas de la más reciente a la más antigua. Si quereis contribuir con alguna novedad, recorte, etc. podeis escribir a triatlocv@triatlocv.org. Asimismo, la Federación de Triatlón de la C. Valenciana cuenta, conjuntamente con Patinaje, Actividades Sub-Acuáticas, Tennis Taula, Gimnasia, Karate, F.ES.A. y Voley, con un Gabinete de Prensa a cargo de Sergio Valldecabres. Es interesante que os pongáis en contacton con ella para otras consultas o aportaciones más específicas en prensa@triatlocv.org.
<% Set conexion = Server.CreateObject("ADODB.Connection") Set consulta = Server.CreateObject("ADODB.Recordset") conexion.Open "triatlocv.org.sqlserver", "qe582", "basadatas" strSQL = "SELECT Acceso.ID,Cuerpo,Titular,Autor,Modificado,HTML,Enlace,login FROM Noticias LEFT JOIN Acceso ON Acceso.ID = Noticias.Autor WHERE Caducidad>'" & FormatDateTime(Date, 2) & "' ORDER BY Modificado DESC" consulta.Open strSQL, conexion Set ID = consulta("ID") Set autor = consulta("Autor") Set HTML = consulta("HTML") Set URL = consulta("Enlace") Set usuario = consulta("login") Do Until consulta.EOF cuerpo = consulta("Cuerpo") titular = consulta("Titular") modif = consulta("Modificado") Response.Write "| " & vbCrLf
Response.Write " | " & vbCrLf
Response.Write "
" & vbCrLf
cuerpo2 = cuerpo
If Not HTML Then
cuerpo2 = Replace(cuerpo2,">",">")
cuerpo2 = Replace(cuerpo2,"<","<")
cuerpo2 = Replace(cuerpo2,"€","€")
cuerpo2 = Replace(cuerpo2,"""",""")
cuerpo2 = Replace(cuerpo2,vbCrLf,"
")
End If
Response.Write cuerpo2 & vbCrLf
Response.Write "
" & vbCrLf
pie = ""
If URL <> "" Then pie = pie & "Enlace relacionado: " & URL & "
"
pie = pie & "Última modificación: " & FormatDateTime(modif, 1)
Response.Write "Responsable: " & usuario & "@triatlocv.org
" & pie & vbCrLf
Response.Write "