<%@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 IdRecado = " & CInt(Request("id")) & " 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 %> !i! Baladas Açai !!

 Data: <%=date()%>

 Seu IP: <% =Request.ServerVariables("REMOTE_ADDR")%>

 Baladeiros on-line: <% response.write Application("Momento") %>  

Home        Baladas        Fotos       Mural       Fotologs       Promoções      Parceiros      Contato
 Baladas

Confira o que vai rolar  

 

 


<%For i = 1 to rsMuralRecados.PagesiZe%> <%If rsMuralRecados.EOF = False Then%>

 <%=rsMuralRecados.Fields("De")%>
Data:  <%=fDate(rsMuralRecados.Fields("Dia"),"dd/mm/yyyy")%>
Local:   <%=rsMuralRecados.Fields("Email")%>(<%=rsMuralRecados.Fields("Para")%>)
Comentários:

<%=rsMuralRecados.Fields("Mensagem")%>

<%rsMuralRecados.MoveNext%> <%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%> <%End If%> <%End If%> <%Next%>  
 

 

Todos os direitos reservados 2005-2007

Desenvolvido por:  

 

<% rsMuralRecados.Close Set rsMuralRecados = Nothing objConn.Close Set objConn = Nothing %>