__
|
||||||||||||||||||||
 |
 |
|||||||||||||||||||
|
||||||||||||||||||||
|
<% Dim Hora Hora = FormatDateTime(now(),vbShortTime) if month(Date) >= 10 then If left(Hora, 2) > 5 and left(hora, 2) < 18 then response.write("  ")
else
response.write("  ")
end if
else
If left(Hora, 2) > 5 and left(hora, 2) < 20 then
response.write(" ")
else
response.write(" ")
end if
end if
%>
|
||||||||||||||||||||
 |
  |
|||||||||||||||||||
|
<%
Dim oConn, rs, SQL
Dim nombre
Dim Contador
set rs=createobject("ADODB.Recordset")
SQL="SELECT * FROM Noticias ORDER BY Fecha DESC"
rs.open SQL, "DSN=aytocobena-noticias"
if rs.EOF then
Response.Write("Ninguna noticia nueva")
else
PintarTabla
end if
rs.Close
set rs = nothing
'oConn.Close
'set oConn = nothing
'===========================================
Sub PintarTabla ()
'Response.Write( "
")
'Response.Write (" | ")
Response.Write ("________________________________
|
|||||||
|
Ayuntamiento de Cobeña © 2007 Política de Privacidad • SGB Mapa Web |
")
Response.Write ("