Libro de Visitas

<% 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%>	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