Comunidade

[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

%>

[Marcos-rj]

Se está dizendo: " Você não tem novas mensagens "

então não vai mostrar nehuma mensagem, pois não tem!

explica melhor!

[bareta]

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...