<% Plazo=Request.Form("Tiempo") Ordenar=Request.Form("Orden") set oConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") set rs1 = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY fecha DESC" SQL1 = "SELECT * FROM Mensajes WHERE Control=0 and Respuestas=0 ORDER BY fecha DESC" if Plazo="Hoy" then n=0 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha=#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="Ayer" then n=1 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha=#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="1 semana" then n=7 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="2 semanas" then n=15 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="1 mes" then n=30 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="2 meses" then n=60 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="3 meses" then n=90 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="6 meses" then n=180 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Plazo="1 año" then n=365 fechagenerica=DateAdd("d",Date(),-n) diahoy=Left(fechagenerica,2) meshoy=Mid(fechagenerica,4,2) anohoy=Right(fechagenerica,2) if right(diahoy,1)="/" then diahoy=Left(fechagenerica,1) meshoy=Mid(fechagenerica,3,2) end if fechagenerica=meshoy & "/" & diahoy & "/" & anohoy SQL = "SELECT * FROM Mensajes WHERE Control=0 AND Fecha>#" & fechagenerica & "# ORDER BY fecha DESC" end if if Ordenar="Titulo" then SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY Titulo ASC" end if if Ordenar="Autor" then SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY Nombre ASC" end if if Ordenar="Respuestas" then SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY Respuestas DESC" end if if Ordenar="Lecturas" then SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY Leido DESC" end if if Ordenar="Fecha" then SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY Fecha DESC" end if if Ordenar="Valoracion" then SQL = "SELECT * FROM Mensajes WHERE Control=0 ORDER BY Apunt DESC" end if oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("libro.mdb") rs.Open SQL, oConn, 1, 2 rs1.Open SQL1, oConn, 1, 2 %>

 Nº de mensajes en el libro: <%=rs.recordCount%>
 Nº de mensajes sin respuesta: <%=rs1.recordCount%>
Ver todos los mensajes sin respuesta

PUBLICAR UN NUEVO MENSAJE 
 BUSCAR MENSAJES EN EL LIBRO

Introduce texto de búsqueda  
 

ORDENAR MENSAJES

FILTRAR MENSAJES

Ordenar mensajes por:  

Mostrar mensajes de:    

<%while not rs.EOF %> <% rs.movenext wend rs.Close set rs = nothing rs1.Close set rs1 = nothing oConn.Close set oConn = nothing %>
Título Autor Respuestas Lecturas Fecha Valoración
  " class="enlace2"><%=rs("Titulo")%> <%=rs("Nombre")%> [<%=rs("Respuestas")%>] [<%=rs("Leido")%>] <%=rs("Fecha")%> <% dim i i=rs("Apunt") if i>0 and i<=1 then %> <% end if if i>1 and i<=2 then %> <% end if if i>2 and i<=3 then %> <% end if if i>3 and i<=4 then %> <% end if if i>4 and i<=5 then %> <% end if %>

Enviar sugerencias: info@hoteltrespicos.net          Volver a la web

                       Administración