<%@Language="VBScript"%> <%Option Explicit%> <%Response.Expires = 0%> <% Dim objConn Dim varConn Dim varSql Dim rsMuralRecados Dim i dim Dia Private Function lZeros(byVal lValue, byVal iLength) lZeros = Right(String(iLength, "0") & Trim(cStr(lValue)), iLength) End Function Private Function fDate(byVal oDate, byVal sFormat) Dim iDay, iMonth, iYear, sWeekDay iDay = DatePart("d", oDate) iMonth = DatePart("m", oDate) iYear = DatePart("yyyy", oDate) sWeekDay = WeekDayName(DatePart("w", oDate)) sWeekDay = UCase(Left(sWeekDay,1)) & Right(sWeekDay,Len(sWeekDay) - 1) fDate = Replace(lcase(sFormat), "w", sWeekDay) fDate = Replace(fDate, "hh", lZeros(DatePart("h", oDate),2)) fDate = Replace(fDate, "nn", lZeros(DatePart("n", oDate),2)) fDate = Replace(fDate, "ss", lZeros(DatePart("s", oDate),2)) fDate = Replace(fDate, "dd", lZeros(iDay,2)) fDate = Replace(Replace(fDate,"mmmm", MonthName(iMonth)),"mmm", MonthName(iMonth, True)) fDate = Replace(fDate, "mm", lZeros(iMonth,2)) fDate = Replace(Replace(fDate, "yyyy", iYear), "yy", right(cStr(iYear),2)) End Function 'Cria a conexão com a base de dados Set objConn = Server.CreateObject("ADODB.Connection") varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" objConn.Open varConn 'Seleciona todos os registros ordenando pelo ID 'SELECT evento FROM eventos WHERE data > HOJE ORDER BY data ASC' varSql = "SELECT * FROM MuralRecados where Dia >= '" & fDate(now, "yyyy-mm-dd") & "' ORDER BY Dia ASC " 'Seta a variável e define as propriedas Set rsMuralRecados = Server.CreateObject("ADODB.Recordset") rsMuralRecados.CursorType = 0 rsMuralRecados.CursorLocation = 3 rsMuralRecados.LockType = 3 rsMuralRecados.PageSize = 7 rsMuralRecados.CacheSize = 7 rsMuralRecados.Open varSql, objConn 'Verifica qual página deve ser exibida If Request.QueryString("Pagina") <> "" Then rsMuralRecados.AbsolutePage = Request.QueryString("Pagina") Else If Not rsMuralRecados.EOF Then rsMuralRecados.AbsolutePage = 1 End If End If %> <% rsMuralRecados.Close Set rsMuralRecados = Nothing objConn.Close Set objConn = Nothing %>

<%For i = 1 to rsMuralRecados.PagesiZe%> <%If rsMuralRecados.EOF = false Then%> <%End If%> <%Next%> <%rsMuralRecados.MoveNext%> <%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%> <%End If%> Dia: " target=_top> <%=fDate(rsMuralRecados.Fields("Dia"),"dd/mm/yyyy") & " - " & rsMuralRecados.Fields("De")%> - <%=rsMuralRecados.Fields("Email") & " (" & rsMuralRecados.Fields("Para")%>)