Select Não Funciona

[ju_rezende]

olá pessoal tenho 2 selects, mas não estão funcionando estão dando erro. Alguém poderia me dar uma ajudinha?

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe (operador faltando) na expressão de consulta 'codigo='.

/tulio/tulio/tulio/tulio/luxuria/listarcometario.asp, line 47

Meu codico

<table width="770" border="1" cellpadding="0" cellspacing="0" bordercolor="#666666">

<%db = server.MapPath ("dados\luxuria.mdb")

set con = server.CreateObject("adodb.connection")

con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tulio\tulio\tulio\luxuria\luxuria.mdb;Persist Security Info=False"

sql= "select * from Comentario order by data desc"

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

rs.open sql,con,3,3

%>

<% do while rs.eof = false

dim codigo

codigo=rs("codigo")

sql1= "select * from blog where codigo="& codigo

'response.write codigo

'response.end

set rs1= server.CreateObject("ADODB.Recordset")

rs1.open sql1,con,3,3%>Linha 47

<tr>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<% = rs1("titulo")%>

</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<% = rs("nome")%>

</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<% = rs("email") %>

</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<% =rs("comentario") %>

</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<% =rs("data") %>

</font></td>

<td> <font size="2" face="Arial, Helvetica, sans-serif">

<% =rs("hora") %>

</font></td>

<td bgcolor="#333333"><div align="center"><a href="confirmadelcomentario.asp?cod=<%=rs("id")%>"><font face="Arial Unicode MS" size="2" ><strong>Deletar</strong></font></a></div></td>

</tr>

<%rs.movenext

loop%>

</table>

Abraços

[Guest Visitante]

é muito provável que algum registro da tabela Comentario esteja com o campo codigo em branco

[bareta]

o codigo não esta indo, provavelmente não tem nada cadastrado na tabela.... então adicionei uma verificação pra isso

teste

<table width="770" border="1" cellpadding="0" cellspacing="0" bordercolor="#666666">
<%db = server.MapPath ("dados\luxuria.mdb")
set con = server.CreateObject("adodb.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tulio\tulio\tulio\luxuria\luxuria.mdb;Persist Security Info=False"
sql= "select * from Comentario order by data desc"
set rs= server.CreateObject("ADODB.Recordset")
rs.open sql,con,3,3
if rs.eof then
response.write "nada cadastrado"
else
%>
<% do while rs.eof = false 
dim codigo
codigo=rs("codigo")
sql1= "select * from blog where codigo="& codigo

set rs1= server.CreateObject("ADODB.Recordset")
rs1.open sql1,con,3,3%>
<tr> 
<td> <font size="2" face="Arial, Helvetica, sans-serif"> 
<% = rs1("titulo")%>
</font></td>
<td> <font size="2" face="Arial, Helvetica, sans-serif"> 
<% = rs("nome")%>
</font></td>
<td> <font size="2" face="Arial, Helvetica, sans-serif"> 
<% = rs("email") %>
</font></td>
<td> <font size="2" face="Arial, Helvetica, sans-serif"> 
<% =rs("comentario") %>
</font></td>
<td> <font size="2" face="Arial, Helvetica, sans-serif"> 
<% =rs("data") %>
</font></td>
<td> <font size="2" face="Arial, Helvetica, sans-serif"> 
<% =rs("hora") %>
</font></td>

<td bgcolor="#333333"><div align="center"><a href="confirmadelcomentario.asp?cod=<%=rs("id")%>"><font face="Arial Unicode MS" size="2" ><strong>Deletar</strong></font></a></div></td>
</tr>

<%rs.movenext 
loop
end if%>



</table>

[ju_rezende]

brigada amigo pela ajuda, agora funcionou

abraços