|
|
 |
|
<%
If Request.QueryString("Id")= "" then
Response.Redirect "noticies.asp"
End If
Id = Request.QueryString("Id")
' conexion a la base de datos
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open conexion_neo
sql = "SELECT * FROM noticias WHERE Id="&Id&""
RS.Open sql, oConn,1,1
titulo = RS("titulo")
subtitulo = RS("subtitulo")
contenido = RS("contenido")
fecha = RS("fecha")
grup = RS("grupo")
autor = RS("autor")
imagen = RS("imagen1")
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
|
|
|
|
;)
]