<% Function PrintFecha(Fecha) SetLocale("es-mx") PrintFecha = FormatDateTime(Fecha,1) End Function function QuotedStr( texto ) QuotedStr = Chr(34) & texto & Chr(34) end function Dim rs Dim rs2 Dim cmd Dim consulta Dim Conexion Dim strCon Dim Clave Dim encabezado Dim Fecha Dim Fecha2 Dim strFecha Dim sector Dim sector2 Fecha = Date() strFecha = DatePart("yyyy",Fecha) & "-" & DatePart("m",Fecha) & "-" & DatePart("d",Fecha) encabezado = "::Portaleconomico, Noticias del estado " Set Conexion = Server.createObject("ADODB.Connection") Set rs = Server.createObject("ADODB.RecordSet") Set rs2 = Server.createObject("ADODB.RecordSet") strcon ="Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.Mappath("database/noticias.mdb") Conexion.open strCon Clave = request.QueryString("clave") cont=0 if( Clave<> "" ) then Consulta = "SELECT * FROM notas WHERE clave=" & Clave rs.open Consulta, Conexion,3,3 IF ( rs.RecordCount>0 ) THEN encabezado = rs("encabezado") END IF else Consulta = "Select MAX(Fecha) FROM notas " rs2.open Consulta, Conexion,3,3 if( rs2.recordcount>0) then fecha = rs2(0) end if strFecha = DatePart("yyyy",Fecha) & "-" & DatePart("m",Fecha) & "-" & DatePart("d",Fecha) consulta = "Select * from notas where notas.fecha=#" & strfecha & "# order by sector" rs2.close rs2.open Consulta, Conexion,3,3 end if %> <%= encabezado%>
<% Fecha=Now() if(clave<>"") then IF ( (rs.RecordCount>0) ) THEN response.Write("
") response.write("" & rs("encabezado") & "") response.write("

" &rs("fuente") &", " & PrintFecha(rs("fecha")) ) response.write("

") 'response.write(rs("estado")&", " & rs("nota") ) Fecha2 = rs("fecha") 'if( DateDiff("d",Fecha,Fecha2)<>0 ) then response.write(rs("estado")&", " & left( rs("nota"), 150 ) &"..." ) 'else ' response.write(rs("estado")&", " & rs("nota") ) ' end if response.write("

") END IF rs.Close end if %>

Para tener acceso a la noticia completa, no dude en registrarse para obtener este y otros beneficios. Solicite su registro mediante el formulario de contacto, o envíenos un correo.
<% if(Clave="") then if( rs2.recordcount>0 ) then sector = rs2("sector") sector2 = sector response.write( "

" & sector & "

") while not rs2.Eof sector2 = rs2("sector") if( sector2<> sector ) then response.write( Chr(13) ) sector = sector2 response.write( "

" & sector & "

") end if Clave = rs2("clave") response.write( Chr(13) ) response.write("" & rs2("encabezado") & "
") 'response.write("" & rs2("encabezado")& "
") 'response.write("

") rs2.movenext wend end if end if Conexion.close %>

 

<% 'Vea mas notas como esta en nuestra Hemeroteca '

'(Disponible para usuarios registrados) %>