<%@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_mano\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 = 10 rsMuralRecados.CacheSize = 10 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 de Jaú - 2 Anos !!!

 Data: <%=date()%>

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

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

Home        Baladas        Mol        Agulhadas       Pagando Mico        Fotos       Mural       Fotologs       Promoções      Parceiros      Contato
 MOL - Mano Off Line

Tire sua dúvidas com o Mano  

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

 

 

Nome :
E-mail :
Pergunta:
 
 
Nome :  <%=rsMuralRecados.Fields("De")%>
Pergunta : 

<%=rsMuralRecados.Fields("Email")%>
Resposta : 

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