<%@LANGUAGE="vb script:parent.mostra.location='mural.asp?mostra'"">Voltar</a></center></span>"
Case 1
display = "<center><span class='texto'>Preencha todos os campos<br>"
display = display & "<a href='java script:history.go(-1)'>Voltar</a></center></span>"
Case 2
display = "<center><span class='texto'>O campo mensagem deve ter no máximo 255 caracteres<br>"
display = display & "<a href='java script:history.go(-1)'>Voltar</a></center></span>"
End Select
Response.write display
Case "mostra"
sql = "SELECT * FROM tabela"
Set rs = conexao.Execute(sql)
While Not rs.EOF
%>
<a href="mailto:<%=rs("email")%>"><%=rs("nome")%></a><span class="texto">: <%=rs("mensagem")%></span><br>
<%
rs.MoveNext
Wend
End Select
End If
%>
</body>
</html>
Aí depois, pra mostrar a página com os comentários e o form na mesma página, fiz isso aqui:
Pergunta
Henderson
Não sei se já tem aqui, mas eu fiz um bem simples, com uma página só de programação.
Aí tem até assim, uma página com dois iframes, um tem o form e o outro tem os comentários.
Assim que o usuário manda o comentário, ele já atualiza a página dos comentários.
Achei que ficou legal, aí to postando aqui.
O banco de dados deve ter o nome de "bd.mdb"
Uma tabela com o nome "tabela"
E os campos:
id -> autonumeração
nome -> texto
email -> texto
comentario -> texto
Uma página de conexao (conexao.asp)
<% caminho = Server.MapPath("bd.mdb") StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho set conexao = Server.CreateObject("ADODB.Connection") conexao.Open(StringdeConexao) %>A página do mural (mural.asp)<%@LANGUAGE="vb script:parent.mostra.location='mural.asp?mostra'"">Voltar</a></center></span>" Case 1 display = "<center><span class='texto'>Preencha todos os campos<br>" display = display & "<a href='java script:history.go(-1)'>Voltar</a></center></span>" Case 2 display = "<center><span class='texto'>O campo mensagem deve ter no máximo 255 caracteres<br>" display = display & "<a href='java script:history.go(-1)'>Voltar</a></center></span>" End Select Response.write display Case "mostra" sql = "SELECT * FROM tabela" Set rs = conexao.Execute(sql) While Not rs.EOF %> <a href="mailto:<%=rs("email")%>"><%=rs("nome")%></a><span class="texto">: <%=rs("mensagem")%></span><br> <% rs.MoveNext Wend End Select End If %> </body> </html>Aí depois, pra mostrar a página com os comentários e o form na mesma página, fiz isso aqui: Uma página com um css básico pra ficar um poco mais bunito, hehe (estilo.css).caixa { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; border: thin solid #000000; } .botao { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; background-color: #FFFFFF; border: thin solid #000000; } a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #0000FF; } .texto { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; color: #000000; }Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.