|
|
 |
 |
|

 |
Este
espaço é todo seu. Você pode colocar seus recados,
torpedos, etc.. Só não pegue pesado ...
Faça do mural o seu novo ponto de encontro e
fique esperto pra não deixar de responder aquele
convite que você está esperando a muito
tempo. Afinal, se você não responder pode
aparecer um outro respondendo por você. |
|
Veja
as mensagens abaixo:
<%
Dim nome_dest, nome_remet, msg, oConn,sMensagem,sImagem
'Declarando a Conexao com o Banco de Dados%>
<%'Cláusula SQL de pesquisa
PESQUISAR = "SELECT * FROM Tab_mural ORDER by Cod_mural desc"
session.LCID = 3081
'Criação do arquivo que conterá o resultado da pesquisa
Set RecSet=oConn.Execute(PESQUISAR)
%>
<%'Caso chegue ao final do RecordSet e não encontre nenhum registro
IF RecSet.EOF=false then
do while NOT RecSet.EOF%>
|
|
| De: |
<%=RecSet("Nome_remete")%> |
<%
if RecSet("Imagem") <> "" then
response.write (" ")
else
Response.Write ("")
end if %>
|
| Para: |
<%=RecSet("Nome_destino")%> |
| Mensagem: |
<%=RecSet("Mensagem")%> |
| Enviado
em: |
<%response.write (" " & RecSet("data") & "")%>
|
<%RecSet.Movenext
loop%>
<%end if%>
|
|
|