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>