<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
<%
Dim Meses(12)
Meses(1) ="Enero"
Meses(2) ="Febrero"
Meses(3) ="Marzo"
Meses(4) ="Abril"
Meses(5) ="Mayo"
Meses(6) ="Junio"
Meses(7) ="Julio"
Meses(8) ="Agosto"
Meses(9) ="Septiembre"
Meses(10) ="Octubre"
Meses(11) ="Noviembre"
Meses(12) ="Diciembre"
Dim Dias(7)
Dias(1) = "Domingo"
Dias(2) = "Lunes"
Dias(3) = "Martes"
Dias(4) = "Miercoles"
Dias(5) = "Jueves"
Dias(6) = "Viernes"
Dias(7) = "Sabado"
Dim miFecha
Function PrintFecha(Fecha)
Dim diaSemana
Dim diaMes
Dim Mes
Dim ano
diaSemana = Dias(DatePart("w",Fecha))
diaMes = DatePart("d",Fecha)
Mes = Meses(DatePart("m",Fecha))
ano = DatePart("yyyy",Fecha)
PrintFecha = diaSemana & ", " & diaMes & " de " & Mes & " de " & ano
End Function
%>
<%
If (session("usuario")="") then
response.redirect "sorry.htm"
End IF
Dim sector, cont
Dim strcon, Fecha
Dim rs, Conexion, Consulta
Dim estado, clave
clave = request.QueryString("clave")
Set Conexion = Server.createObject("ADODB.Connection")
Set rs = Server.createObject("ADODB.RecordSet")
strcon ="Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.Mappath("database/noticias.mdb")
Conexion.open strCon
Consulta = "select * from notas where clave="&clave
rs.open Consulta, Conexion,3,3
if( rs.RecordCount>0 ) then
response.write("
" & rs("encabezado") & "
")
response.write("")
response.write( " " & rs("estado") & ", " & rs("nota") & "
")
'response.write(rs("fuente") & ", " & diaSemana(WeekDay(rs("fecha"))) & " " & Day(rs("fecha")) &" " & Mes( Month(rs("fecha"))) &" " & Year(rs("fecha") ) )
response.write(rs("fuente") & ", " & PrintFecha( rs("fecha") ) )
End If
rs.close
Conexion.close
%>
Regresar
Portal Económico, Todos los derechos reservados ® 2003
info@portaleconomico.com
