<%
if( session("usuario")<>"" ) then
response.write("Bienvenido: " & session("usuario"))
response.write("
Cerrar sesión
")
else
%>
<%
If (session("usuario")="") then
response.redirect "sorry.htm"
End If
Dim sector, cont
Dim strcon, Fecha
Dim rs, Conexion, Consulta
Dim estado, clave
Dim diaSemana(7)
Dim Mes(12)
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("
")
response.write("
" & rs("encabezado") & "
") response.write("
Portal Económico, Todos los derechos reservados ® 2003
portaleconomico@prodigy.net.mx
| Imprimir esta nota. | ") 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("sector") & ") " & rs("fuente") & ", " & PrintFecha( rs("Fecha") ) ) 'response.write( rs("fuente") & ", " & "" ) End If rs.close Conexion.close %>Regresar
Portal Económico, Todos los derechos reservados ® 2003
portaleconomico@prodigy.net.mx