!i! Baladas Açai !!

<%@Language="VBScript"%> <%Option Explicit%> <%Response.Expires = 0%> <% 'Ricardo das Neves Carlos 'ricardo@promedia.com.br 'Mural de recados '31/10/2003 %> <% Dim objConn Dim varConn Dim varSql Dim rsMuralRecados Dim i '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("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" objConn.Open varConn 'Seleciona todos os registros ordenando pelo ID varSql = "SELECT * " varSql = varSql & "FROM MuralRecados " varSql = varSql & "ORDER BY IdRecado DESC " '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

Mural

Deixe seu comentário

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

<%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%> );" disabled> <%Else%> );"> <%End If%> <%If rsMuralRecados.EOF Then%> );" disabled> <%Else%> <%If Request.QueryString("Pagina") = "" Then%> );"> <%Else%> );"> <%End If%> <%End If%>

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

Data: <%=rsMuralRecados.Fields("DataInclusao")%> Hora: <%=rsMuralRecados.Fields("HoraInclusao")%>

Baladeiro(a): <%=rsMuralRecados.Fields("De")%>

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

<%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%> );" disabled> <%Else%> );"> <%End If%> <%If rsMuralRecados.EOF Then%> );" disabled> <%Else%> <%If Request.QueryString("Pagina") = "" Then%> );"> <%Else%> );"> <%End If%> <%End If%>

Todos os direitos reservados 2005-2007

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