<%@Language="VBScript" LCID="5130"%>
<% Session.LCID=5130 %>
<%
Response.Buffer = True
' ______________________________________________________
'| |
'| Rhombus
'|______________________________________________________|
' ********************* Declaración de Conexión a Base de Datos ***************************************
'Set oConn = Server.CreateObject("ADODB.Connection")
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/noticias/noticias.mdb")
' ************************** Fin de Conexión a Base Datos *********************************************
'id = Lcase(Trim(Request.QueryString("id"))) 'Si se pasa por el form.
' If id = "" Then ' Si no se pasó un número se pasó un texto correspondiente a una categoría y hay que buscar el ID.
' Response.Redirect("/error.asp?tipo=Noticias&msj=No especificó el código de la noticia.")
' Else
' Set rsNoticias = Server.CreateObject("ADODB.Recordset")
' rsNoticias.CursorLocation = 3
' rsNoticias.Open "SELECT * FROM noticias WHERE idnoticia= "& CDbl(id) &";", oConn, 3, 1, 1
'
' If Not rsNoticias.EOF Then
' idnoticia = rsNoticias("idnoticia")
' titulo = rsNoticias("titulo")
' resumen = rsNoticias("resumen")
' articulo = rsNoticias("articulo")
' rsNoticias.Close
' Set rsNoticias = Nothing
' Else
' Response.Redirect("/error.asp?tipo=Noticias&msj=Id de Noticia no encontrado.")
' End If
' End If
%>
ULACIT | Revista Rhombus
<%TituloHeader = "Revista Rhombus"%>
