<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Response.Buffer=1
%>
<%
if IsEmpty(Request("Id")) then
Response.Redirect("AvisosCategorias.asp")
end if
Dim nId
nId = Request("Id")
' Conexion a la base
Dim Conn
Set Conn = ConexionAbre
Dim sql
Dim rsAviso
Set rsAviso = Server.CreateObject("ADODB.Recordset")
sql = "Select a.*, r.Descripcion as RubDescripcion, r.IdCategoria as IdCategoria, c.Descripcion as CatDescripcion"
sql = sql & " from (Avisos a left join AvisosRubros r on a.IdRubro = r.Id) left join AvisosCategorias c on r.IdCategoria = c.Id where a.Id = " & nId
rsAviso.Open sql, Conn
if rsAviso.EOF then
ErroresMuestra "Aviso inexistente", "AvisosCategorias.asp"
end if
Dim nIdRubro
Dim strRubroDescripcion
Dim nIdCategoria
Dim strCategoriaDescripcion
nIdRubro = rsAviso("IdRubro")
nIdCategoria = rsAviso("IdCategoria")
strRubroDescripcion = rsAviso("RubDescripcion")
strCategoriaDescripcion = rsAviso("CatDescripcion")
%>
SUNCHANET > Sunchales en Internet :: Servicios > Enlaces
