<%if request("id")="" then response.Redirect("programa.asp") end if if isnumeric(request("id"))=false then response.Redirect("programa.asp") end if id= request("id") set rs=server.CreateObject("ADODB.RecordSet") sql="select * from agenda where id=" & id sql = sql & " order by fecha, hora desc" rs.open sql, conn ,1, 1 %> <% randomize aleatorio1= int((4 - 1) * rnd + 1) %>
<% set rsc=server.CreateObject("ADODB.RecordSet") sqlc="select * from categorias where id=" & rs("categoria") rsc.open sqlc, conn, 1, 1 fechas= split(rs("fecha"), "/") dia = fechas(0) mes = fechas(1) ano = fechas(2) select case mes case 01 NombreMes = "Ene" case 02 NombreMes = "Feb" case 03 NombreMes = "Mar" case 04 NombreMes = "Abr" case 05 NombreMes = "May" case 06 NombreMes = "Jun" case 07 NombreMes = "Jul" case 08 NombreMes = "Ago" case 09 NombreMes = "Sep" case 10 NombreMes = "Oct" case 11 NombreMes = "Nov" case 12 NombreMes = "Dic" end select select case dia case 01 NombreDia = "Lunes" case 02 NombreDia = "Martes" case 03 NombreDia = "Miercoles" case 04 NombreDia = "Jueves" case 05 NombreDia = "Viernes" case 06 NombreDia = "Sábado" end select %>
    <%if rs("categoria")=196 then%>
  • 01/07 OCT
  • <%else%>
  • <%=dia%> <%=NOmbreMes%>
    <%=left(rs("hora"),5)%>h. 
  • <%end if%>
  • <%=rs("titulo")%>
    <%=rs("artista")%>
  • <%=rsc("nombre")%>
  • <% ' if request("id") <> "" then ' buscador = "&id=" & request("id") ' else ' buscador = "" ' end if ' if request("fecha") <>"" then ' buscador = buscador & "&fecha=" & request("fecha") ' else ' buscador = buscador ' end if ' if totalpaginas>1 then set rscli = server.CreateObject("ADODB.RecordSet") sql="select * from agenda" rscli.open sql, conn, 1, 1 do while rscli("id") <> rs("id") rscli.movenext loop ' rscli.absoluteposition = rsclientes.absoluteposition %> <% rscli.move -1 if not rscli.bof then anterior=rscli("id") %>
    siguiente evento
    <%end if%> <% rscli.move 2 if not rscli.eof then siguiente=rscli("id") %>
    anterior evento
    <% else %>
    <%end if%>
<%if isnull(rs("foto"))=false then%> " alt="<%=rs("titulo")%>" title="<%=rs("titulo")%>" style="padding-left:0px;padding-right:17px;" height="225" width="225" /> <%end if%> <%if isnull(rs("mapa"))=false then%> " alt="<%=rs("titulo")%>" title="<%=rs("titulo")%>" style="padding-left:17px;padding-right:0px;" height="225" width="225" /> <%end if%>

<%=rs("cuerpo")%>

<%if isnull(rs("archivo"))=false and rs("archivo")<>"" then%>

Descargar: " class="sub2"><%=rs("archivo")%>

<%end if%>
<%rsc.close %>
<%rscli.close%> <%rs.close%>