Erro Urgente

[smez]

tenho 2 tabelas no meu DB

uma fa e outra album

na tabela fa tem os seguintes campos

id

usuario

e na tabela album

id

sentfrom

foto

como que eu faço para imprimir na pagina de consulta

o nome de usuario e a quantidade de foto que ele tem no album

o sentfrom e onde que ele salva o nome do usuario

eu fiz o seguinte codigo mas está dando erro na hora de imprimir a quantidade de foto que o usuario tem

<%

rs.close

set rs = nothing

set conn=nothing

%>

<%

set rs = Server.CreateObject("ADODB.Recordset")

rs.ActiveConnection = StringdeConexao

rs.Source = "SELECT * FROM fa ORDER by RND(INT(NOW*id)-NOW*id)"

rs.CursorType = 0

rs.CursorLocation = 2

rs.LockType = 3

rs.Open()

rs_numRows = 0

%>

<div align="center">

<center>

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

<% If Not rs.EOF Or Not rs.BOF Then %>

<tr align="center" valign="top">

<td valign="top" align="center" bgcolor="#808080">

<table border="0" cellspacing="1">

<%

startrw = 0

endrw = HLooper1__index

numberColumns = 3

numrows = 3

while((numrows <> 0) AND (Not rs.EOF))

startrw = endrw + 1

endrw = endrw + numberColumns

%>

<tr align="center" valign="top">

<% While ((startrw <= endrw) AND (Not rs.EOF))%>

<td>

<table width="36" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="left" valign="top">

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

<tr>

<td align="center">

<table border="0" cellspacing="1" cellpadding="0">

<%If rs("img") <> "" Then%>

<tr>

<td align="center" valign="middle">

<font size="1" face="Verdana">

<a href="ver_album.asp?id=<%=rs("id")%>&sentfrom=<%=rs("usuario")%>"><img src="usuarios/<%=rs("img")%>" border="0" width="80"><br>

</a>

<%

Conta = "Select COUNT(id) AS total FROM album WHERE sentfrom ="&Rs("sentfrom")&""

Set Ls = Conn.Execute(Conta)

total = Ls("total")

%>

(<b><%=total%></b>)</font></td>

</tr>

<%Else%>

<tr>

<td align="center" valign="middle">

<font size="1" face="Verdana">

<a href="ver_album.asp?id=<%=rs("id")%>&sentfrom=<%=rs("usuario")%>"><img border="0" src="usuarios/sem.jpg" height="80" alt=""><br>

</a>(<b>0</b>)</font></td>

</tr>

<%End If%>

</table></td>

</tr>

</table></td>

</tr>

</table></td>

<%

startrw = startrw + 1

rs.MoveNext()

Wend

%>

</tr>

<%

numrows=numrows-1

Wend

%>

</table>

</td>

</tr>

<% End If ' end Not rs.EOF Or NOT rs.BOF %>

<tr align="left" valign="top">

<% If rs.EOF And rs.BOF Then %>

<td valign="top" align="center" bgcolor="#808080"><font color="#FFFFFF" size="1" face="Verdana" class="textBold">SEM

COBERTURA .</font> </td>

<% End If ' end rs.EOF And rs.BOF %>

</tr>

</table>

</center>

</div>

<%

rs.Close()

%>

o erro da nessa linha

<%

Conta = "Select COUNT(id) AS total FROM album WHERE sentfrom ="&Rs("sentfrom")&""

Set Ls = Conn.Execute(Conta)

total = Ls("total")

%>

(<b><%=total%></b>)</font></td>

[.Andreia.]

na tabela album, ID é igual ao ID do usuario? Se for é só fazer um INNER JOIN, exemplo:

select f.usuario, a.sentfrom, a.foto from album a inner join fa f on f.id = a.id

quanto ao erro, poste o que imprimiu não somente a linha

[smez]

não andreia , o sentfrom que e igual a usuario da outra tabela

[.Andreia.]

então mude os campos que fazem o join

[smez]

não estou usando join

estou usando assim

<%

Conta = "Select COUNT(id) AS total FROM album WHERE sentfrom ="&Rs("sentfrom")&""

Set Ls = Conn.Execute(Conta)

total = Ls("total")

%>

[smez]

help