Jump to content


Photo

Sistema De Mural De Mensagens...


  • Faça o login para participar
33 replies to this topic

#31 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP & Design

Posted 02/11/2003, 15:22

Ae até q deu certo, mas ficou desse jeito

GabrielTestar!o script de mural! Tomara que dê certo!GabrielTestandoAe galera tou testando o script!ateateaatataetaetaetae

Tudo um na frente do outro, num ficou dividido em quadros, mas também só usei o código do Tarkan

<html>
<head>
<body>
<table width="31%">
<%
Set Conexao = createobject("ADODB.Connection")
ConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("banco.mdb")
Conexao.Open ConnString

Set rsListar = Conexao.Execute("select * from mural order by id desc")

Do until rsListar.EOF
%>
  <tr>
    <td width="12%">Nome:</td>
    <td width="88%"><%=rsListar("nome")%>&nbsp;</td>
  </tr>
  <tr>
    <td>T&iacute;tulo:</td>
    <td><%=rsListar("titulo")%></td>
  </tr>
  <tr>
    <td>Mensagem:</td>
    <td><%=rsListar("mensagem")%></td>
  </tr>

<%
rsListar.Movenext
Loop

rsListar.Close
Set rsListar = Nothing

Conexao.Close
Set Conexao = Nothing
%>
</table>[/CODE]



#32 Bart

Bart

    Ativo

  • Usuários
  • 331 posts
  • Sexo:Não informado
  • Localidade:Coromandel
  • Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 15:34

Ae crazy ja ta quase do jeito q eu quero olha ai

Posted Image

eu queria q ficasse mais organizado, tipo desse espaço de um quadro para o outro, pulasse umas 2 linhas de um quadro para o outro pra num ficar tudo amontoado assim

e tipo eu vou arrumar também pra que os quadros não fiquem transparentes, mas isso dá pra arrumar pelo frontpage

#33 crazybaby

crazybaby

    Cyber Eye

  • Banidos
  • PipPipPipPipPipPipPipPipPip
  • 1112 posts
  • Sexo:Não informado
  • Localidade:Divinopolis-MG
  • Interesses:ASP &amp; Design

Posted 02/11/2003, 15:45

tenta assim entaum....

<html>
<head>
<body>
<table width="31%">
<%
Set Conexao = createobject("ADODB.Connection")
ConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("banco.mdb")
Conexao.Open ConnString

Set rsListar = Conexao.Execute("select * from mural order by id desc")

Do until rsListar.EOF
%>
  <tr>
    <td width="12%">Nome:</td>
    <td width="88%"><%=rsListar("nome")%>&nbsp;</td>
  </tr>
  <tr>
    <td>T&iacute;tulo:</td>
    <td><%=rsListar("titulo")%></td>
  </tr>
  <tr>
    <td>Mensagem:</td>
    <td><%=rsListar("mensagem")%></td>
  </tr><tr></tr><tr></tr>

<%
rsListar.Movenext
Loop

rsListar.Close
Set rsListar = Nothing

Conexao.Close
Set Conexao = Nothing
%>
</table>


#34 Bart

Bart

    Ativo

  • Usuários
  • 331 posts
  • Sexo:Não informado
  • Localidade:Coromandel
  • Interesses:Chegando pra ser o melhor!

Posted 02/11/2003, 16:07

Ae agora deu certo, falta agora so arrumar o quadro do jeito que eu quero, pq quando eu modifico um dos quadros fica tudo torto...mas eu vou dar um jeito aqui

vlw a todos q me ajudaram principalmente crazy e Tarkan




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq