Várias tabelas

[nadai 0]

è o seguinte eu to precisando seleciona uma tabela com o nome de uma festa e a data dela....so q pra isso eu tenho q pega o nome da pessoa e o id da lista aonde ela coloco seu nome....para ae sim mostra a festa e a data....so q naum ta danu certo naum do jeito q eu fiz....

 

 

nome=session("nome")sobre=session("sobrenome")completo=nome&" "&sobreset reg5=server.CreateObject("adodb.recordset")sql5="select TOP 5 * from tb_nomes where nome='"&completo&"'"reg5.Open sql5, con, 3, 3Total = reg5.recordcountDo while reg5.EOF=falseid=reg5("id")reg5.movenextloopset reg6=server.CreateObject("adodb.recordset")sql6="select*from tb_listas where id="&id&""reg6.Open sql6, con, 3, 3Do Until reg6.EOF or reg6.BOFid2=reg6("idfesta")reg6.movenextloopset reg7=server.CreateObject("adodb.recordset")sql7="select*from tb_festas where id="&id2&""reg7.Open sql6, con, 3, 3

[nadai 0]

e auto numeraçao sim.....mais esse espaço entre o asterisco,...naum tem nd ve...sempre usei assim e sempre da certo.....

[Salgado 4]

Posta o erro que está dando.