" />
" />
<%=RS("Titular")%>
"/>
<%
RS.Close
Conn.Close
%>
<%
Function tex(cadena)
cadena = Replace(cadena,vbCrLf," ")
tex = cadena
End Function
Const totalzonas = 5
Randomize
Dim foto
zona = Int((totalzonas * Rnd) + 1)
if zona =1 then
foto="arriba2.jpg"
end if
if zona =2 then
foto="arriba2_2.jpg"
end if
if zona =3 then
foto="arriba2_3.jpg"
end if
if zona =4 then
foto="arriba2_4.jpg"
end if
if zona =5 then
foto="arriba2_5.jpg"
end if
%>
<%
hora=Time()
hora1=CDate("7:25:50")
hora2=CDate("19:25:50")
if hora>hora1 and hora
<%
sSQL="SELECT * FROM noticias WHERE Idnoticia=" & Request.QueryString("Idnoticia") & ""
'constantes ADO VBScript
'Const adCmdText = &H0001
'Const adOpenStatic = 3%>
<%dia = Day(RS("fecha"))
mes = Month(RS("fecha"))
ano = Year(RS("fecha"))
fecha=dia&"/"&mes&"/"&ano
%>
<%texto1 = tex(RS("Descripcion"))%>