<% AbreConexion Dim idNota if request("id") = "" or not isnumeric(request("id")) then Response.Redirect ("index.asp") else idNota = request("id") end if Dim rsDatos Set rsDatos=Server.CreateObject("ADODB.Recordset") rsDatos.Open "SELECT id, datos.id_seccion as Sec, f_inicio, ATitulo, ADescrip, precio, precio_tipo, URL, habilita, f_caduca, youtube, Descripcion as Clasificacion, ASeccion as Seccion from Datos INNER JOIN rubros ON rubros.idrubro=datos.id_rubro INNER JOIN websecciones ON websecciones.id_seccion=datos.id_seccion WHERE (f_caduca >= CURDATE() and f_inicio <= CURDATE()) AND Datos.id=" & idNota,Conn if rsDatos.EOF then Response.Redirect "/" end if AddRank(idNota) %> <%=rsDatos("ATitulo")%>, Turismo <%=rsDatos("Seccion")%> en <%=rsDatos("Clasificacion")%>, Aguila Azul EVT, Agencia de Turismo, Santa Teresita, Partido de La Costa , Turismo <%=rsDatos("Seccion")%> en <%=rsDatos("Clasificacion")%>, Aguila Azul EVT, Agencia de Turismo, Santa Teresita, Partido de La Costa"> , Turismo <%=rsDatos("Seccion")%> en <%=rsDatos("Clasificacion")%>, Aguila Azul EVT, Agencia de Turismo, Santa Teresita, Partido de La Costa">
<% If rsDatos("precio") = 0 Then %>

<%=rsDatos("ATitulo")%>

<% else %>

<%=rsDatos("ATitulo")%>

<%=rsDatos("precio_tipo")%> <%=formatnumber(rsDatos("precio"),0)%>

<% end if %>
<% if HayFotos(rsDatos("id")) > 0 and trim(rsDatos("youtube")) <> "" then 'SI fotos + SI video %>
<% MuestraFotos rsDatos("id") %>

<%=rsDatos("ADescrip")%>

<% elseif HayFotos(rsDatos("id")) = 0 and trim(rsDatos("youtube")) <> "" then 'NO fotos + SI video %>

<%=rsDatos("ADescrip")%>

<% elseif HayFotos(rsDatos("id")) > 0 and trim(rsDatos("youtube")) = "" then 'SI fotos + NO video %>
<% MuestraFotos rsDatos("id") %>

<%=rsDatos("ADescrip")%>

<% else 'NO fotos + NO video %>

<%=rsDatos("ADescrip")%>

<% end if %>
 
<% CierraConexion %>