<%sec="0"%> <% function revisaenlace(texto) texto=replace(texto,"Fernando Alonso","Fernando Alonso") texto=replace(texto,"Felipe Massa","Felipe Massa") texto=replace(texto,"Nick Heidfeld","Nick Heidfeld") texto=replace(texto,"Nelsinho Piquet","Nelsinho Piquet") texto=replace(texto,"Kimi Raikkonen","Kimi Raikkonen") texto=replace(texto,"Robert Kubica","Robert Kubica") texto=replace(texto,"Lewis Hamilton","Lewis Hamilton") texto=replace(texto,"Heikki Kovalainen","Heikki Kovalainen") texto=replace(texto,"Jarno Trulli","Jarno Trulli") texto=replace(texto,"Timo Glock","Timo Glock") texto=replace(texto,"Sebastien Buemi","Sebastian Buemi") texto=replace(texto,"Sebastian Bourdais","Sebastien Bourdais") texto=replace(texto,"Mark Webber","Mark Webber") texto=replace(texto,"Sebastian Vettel","Sebastian Vettel") texto=replace(texto,"Nico Rosberg","") texto=replace(texto,"Jenson Button","Jenson Button") texto=replace(texto,"Kazuki Nakajima","Kazuki Nakajima") texto=replace(texto,"Rubens Barrichello","Rubens Barrichello") texto=replace(texto,"Adrian Sutil","Adrian Sutil") texto=replace(texto,"Giancarlo Fisichella","Giancarlo Fisichella") texto=replace(texto,"McLaren","McLaren") texto=replace(texto,"Ferrari","Ferrari") texto=replace(texto,"BMW Sauber","BMW Sauber") texto=replace(texto,"Renault","Renault") texto=replace(texto,"Toyota","Toyota") texto=replace(texto,"Toro Rosso","Toro Rosso") texto=replace(texto,"Red Bull","Red Bull") texto=replace(texto,"Williams","Williams") texto=replace(texto,"Brawn GP","Brawn GP") texto=replace(texto,"Force India","Force India") texto=replace(texto,"Fórmula 1","Formula 1") texto=replace(texto,"pilotos","pilotos") revisaenlace=texto end function Public Function RemoveHTML( strText ) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True strText = Replace(strText, "
", chr(10)) RemoveHTML = RegEx.Replace(strText, "") End Function Function titulillo(strData) Dim I Dim strTemp Dim strChar Dim strOut Dim intAsc strTemp = Trim(strData) For I = 1 To Len(strTemp) strChar = Mid(strTemp, I, 1) intAsc = Asc(strChar) If (intAsc >= 48 And intAsc <= 57) Or _ (intAsc >= 97 And intAsc <= 122) Or _ (intAsc >= 65 And intAsc <= 90) Then strOut = strOut & strChar Else if Hex(intAsc)="20" then strOut = strOut & "-" else strOut = strOut & "%" & Hex(intAsc) End if End If Next titulillo = strOut End Function tituloenl=titulillo(Request.QueryString("titulo")) titulo=RemoveHTML(Request.QueryString("titulo")) CONSTtitle=titulo titulo=Replace(trim(titulo),"-"," ")&"" CONSTkeywords=Replace(trim(titulo)," ",", ")&"" CONSTdescription=Replace(trim(titulo)," "," ")&"" id_noticia=ControlSQLInjection(Request.QueryString("formula1")) Set cn3 = Server.CreateObject("ADODB.Connection") cn3.Open Application("strConnection") strSQL3 = "Select * FROM TB_NOT Where idNot="&id_noticia 'response.write strSQL3 set rs3=cn3.Execute(strSQL3) id=id_noticia 'response.Write(rs3.fields("cuerpo")) Titulonoticia=rs3.fields("titulo") %> ABC.es - Mundial de Formula 1 <% lugar="" foto="" dia=0 mes=0 ano=0 hora=0 min=0 Set cn = Server.CreateObject("ADODB.Connection") cn.Open Application("strConnection") strSQL="SELECT top 1 * From carreras where validado=1" set rs=cn.Execute(strSQL) if not rs.EOF then lugar=rs("lugar") foto=rs("img") dia=rs("dia") mes=rs("mes") ano=rs("ano") hora=rs("hora") min=rs("minuto") end if horas=0 minutos=0 fecha1= ""&dia&"/"&mes&"/"&ano&" "&hora&":"&min&":00" fecha2= Now() horas=DateDiff("h", fecha2, fecha1) if horas<0 then horas=0 else minutos=60-minute(now()) end if %>

"><%response.Write(trim(rs3.fields("Titulo")))%>

<%if rs3.fields("Entradilla") <> "" then%>
<%=revisaenlace(trim(rs3.fields("Entradilla")))%>
<%end if%> <%if rs3.fields("Autor") <> "" then%>

Por <%response.Write(rs3.fields("Autor"))%>
<%end if%>
<%if rs3.fields("miniatura2") <> "" then%>
" width="234" alt="<%=trim(rs3.fields("Titulo"))%>" border="0" /> <%if rs3.fields("aux1") <> "" then%>
Foto: <%=trim(rs3.fields("aux1"))%>
<%end if%>
<%end if%><%=revisaenlace(rs3.fields("cuerpo"))%>
  • RSS
  • " target="_blank">
  • Comparte 
  • ¿qué es esto?