<%
Response.expires = 0
'on error resume next
varcadena="¶m=" & Request.QueryString("param") & "¶m2=" & Request.QueryString("param2") & "&idcategorianoticia=" & Request.QueryString("idcategorianoticia") & "&buscador=" & Request.QueryString("buscador")
if len(trim(Request.QueryString("param")))=0 or not isnumeric(Request.QueryString("param")) then
Response.Redirect "/noticias/categorias.asp"
end if
'if len(trim(Request.QueryString("param2")))=0 or not isnumeric(Request.QueryString("param2")) then
' Response.Redirect "/invitados/noticias/categorias.asp"
'end if
pagina = request.querystring("pagina")
if pagina = "" then
pagina = 1
else
if not isnumeric(pagina) then
pagina = 1
end if
end if
%>
<%
Function extrae2(dato)
extrae2 = mid (dato, (inStrRev (dato,".")+1), len(dato))
end Function
Function extrae(dato)
extrae = mid (dato, (inStrRev (dato,"\")+1), len(dato))
end Function
dim conexion
dim rstdatos
dim rstdatoslistado
dim sql
set conexion=server.CreateObject("adodb.connection")
conexion.Open "dsnforociudadano","forociudadanousr","foro2003ciu"
%>
FORO CIUDADANO
<%
set rstdatos=Server.CreateObject("adodb.recordset")
''''consulta para obtener los datos de la noticia
sql="select categorias_Noticias.idcategoriaNoticia as idcategoriaNoticia, categorias_noticias.descripcion as descripcion, "
sql=sql & "Noticias.idNoticia as idNoticia, Noticias.url1 as url1, Noticias.url2 as url2, Noticias.fecha as fecha, "
sql=sql & "Noticias.imagen as imagen, Noticias.email as email, Noticias.doc as doc, "
sql=sql & "Noticias.cabecera as cabecera, Noticias.detalle as detalle from "
sql=sql & "categorias_noticias inner join Noticias on "
sql=sql & "categorias_noticias.idcategorianoticia = Noticias.idcategorianoticia "
if isnumeric(Request.QueryString("param2")) then
sql=sql & "where idnoticia=" & Request.QueryString("param2")
else
ruta="categorias.asp"
Response.Redirect ruta
end if
sql=sql & "order by fecha desc, cabecera "
rstdatos.open sql,conexion,1,4
''''consulta para obtener el listado de categorías de Reportajes y Fotografías activos
set rstdatoslistado=Server.CreateObject("adodb.recordset")
sql="select idcategorianoticia, Descripcion "
sql=sql & "from categorias_noticias where "
sql=sql & " activo<>0 "
rstdatoslistado.open sql,conexion,1,4
'if err.number<>0 then
' ruta="categorias.asp"
' Response.Redirect ruta
'end if
''''detalle de respuesta%>
<%if rstdatos.EOF then%>
