Ir para conteúdo
Fórum Script Brasil
  • 0

Comunidade


Guest Sérgio cacique

Pergunta

Guest Sérgio cacique

desenvolvi um sistema parecido com o ORKUT mas estou com uma duvida????

não estou conseguindo fazer o seguinte sistema, quando o usuario clica em algum amigo, não esta mostrando as mensagem do usuario escolhido.

aparece assim

" Você não tem novas mensagens "

no banco de dados esta o seguinte::

na tabela usuario tem

id, login, senha, foto

e na tabela Messages

tem sendto, sendfrom

no sendto mostra o nome do usuario que esta recebendo as mensagem

abaixo segue o codigo fonte:

<!--#include file="conn.asp"-->

<%

sql = "SELECT Messages.*, img FROM Usuarios INNER JOIN Messages ON Usuarios.login = Messages.sentfrom WHERE sendto = '" & login & "' ORDER BY datesent DESC"

Set rsMessages = Server.CreateObject("ADODB.Recordset")

rsMessages.Open sql, conn, 3, 3

'Count the amount of new messages

newcount = 0

if not rsMessages.EOF then

rsMessages.Movefirst

do until rsMessages.EOF

if rsMessages("messageread") = False then

newcount = newcount + 1

end if

rsMessages.Movenext

loop

rsMessages.Movefirst

end if

%>

<td width="13%" valign="top" bgcolor="#B01313">

<table border="0" width="100%" cellspacing="0">

<tr>

<td width="100%"><font color="#FFFFFF" size="1" face="Verdana"><img border="0" src="imgs/<%=img%>" width="201"></font></td>

</tr>

<tr>

<td width="100%"><A href="amigo.asp"><img name="img1" border="0" src="amigo.gif" onMouseOver="document.img1.src='amigo1.gif'" onMouseOut="document.img1.src='amigo.gif'"></a></td>

</tr>

<tr>

<td width="100%"><A href="mensagem.asp"><img name="img2" border="0" src="mensagem.gif" onMouseOver="document.img2.src='mensagem1.gif'" onMouseOut="document.img2.src='mensagem.gif'"></a></td>

</tr>

<tr>

<td width="100%"><A href="recado.asp?id="><img name="img3" border="0" src="recado.gif" onMouseOver="document.img3.src='recado1.gif'" onMouseOut="document.img3.src='recado.gif'"></a></td>

</tr>

</table>

</td>

<td width="100%" valign="top">

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" valign="top"><table width="100%" cellspacing=0 cellpadding=3 border=0>

<tr bgcolor="#000000">

<th align="left" bgcolor="#B01313" width="211"><font color="#FFFFFF" face="Verdana" size="1"> <%=login%> - novas mensagens: <%=newcount%> </font></th>

<th align="right" bgcolor="#B01313" width="331"> <font color="#FFFFFF" face="Verdana" size="1">compor

uma mensagem</font> </th>

</tr>

<tr>

<td align="center" colspan=2 width="550">

<font face="Verdana" size=1 color="#FFFFFF">

<%if rsMessages.EOF then%>

<b>Voc&ecirc; n&atilde;o tem novas mensagens </b>

<%else

'Display messages

do until rsMessages.EOF%>

</font>

<table width="100%" cellspacing=0 cellpadding=2 align="center" border=0 bordercolor="#000000">

<tr>

<td width="585"><font face="Verdana" color="#FFFFFF"><b><font size=1>De :

</font></b> <font size=1> <%=rsMessages("sentfrom")%>

</font></font></td>

</tr>

<tr>

<td width="585"><b><font face="Verdana" size=1 color="#FFFFFF">Enviar para: <%=rsMessages("datesent")%></font></b></td>

<td align="right" valign="top" width=152 rowspan=3>

<font face="Verdana" size=1 color="#FFFFFF">

<img src="imgs/<%=rsMessages("img")%>" width="150"><br>

</font>

</td>

</tr>

<tr>

<td width="585"><font face="Verdana" color="#FFFFFF"><b><font size=1>Assunto :</font></b> <font size=1> <%=rsMessages("subject")%></font></font></td>

</tr>

<tr>

<td width="585"><font face="Verdana" color="#FFFFFF"><b><font size=1>Mensagem:</font></b> <font size=1> <%=rsMessages("message")%></font></font></td>

</tr>

</table>

<b><font color="#FFFFFF" face="Verdana"><a href="messagecompose.asp?senduser=<%=rsMessages("sentfrom")%>&subject=<%=Server.URLEncode(rsMessages("subject"))%>" target="usuario">

<font size=1>responder

esta mensagem</font></a><font size=1>&nbsp;|&nbsp;<a href="messagedelete.asp?messageid=<%=rsMessages("id")%>">apagar

esta mensagem</a></font>

</font></b>

<font face="arial,helvetica" size=2>

<hr color="#CCCCCC" style="border-top-style: dotted" noshade>

<%rsMessages.Movenext

loop

end if%>

</font>

</td>

</tr>

</table><%

set rsMessageRead = conn.Execute("UPDATE Messages SET messageread = True WHERE sendto = '" & login & "'")

rsMessages.close

set rsMessages = nothing

conn.close

set conn = nothing

%>

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

na pagina que mostra as mensagens do usuario.... busque pelo id do usuario... ou seja você esta no perfil do usuario x... você quer ver as msg dele

na tabela que contenha essas msg... coloque o id do user que recebe...

ai busque tipo msg_recebidaid e liste...

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...