Pesquisar e responder...

[mkboy 1]

Preciso listar todos os dados do banco na tela.Cada registro tem como opcoes: nome email cidade estado...Mas to fazendo errado, como devo proceder!!!

<%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("boletim/fish.MDB") Conn.Open ConStrSet RS = Server.CreateObject("ADODB.Recordset") sql = "select * from coment"set rs = conexao.execute(sql)if rs.oef=true then  response.redirect "erro.asp"end if%><%do while not rs.eofrs.movenextloop%>

<%=nome%><br><%=email%>

:huh:

[silderado 0]

Faça assimSet rs = Server.CreateObject("ADODB.RecordSet")rs.Open "select * from coment", ConnDo while NOT rs.EOF Response.write rs("nome") & rs("email") & "<br>" rs.MoveNextLoopO Erro esta no Objecto de Conexão. .você está usando o conexao ou Conn?????E na hora de mostrar tbm.. olha como eu fiz no loop

[mkboy 1]

Fiz assim:

<%Set Conn = Server.CreateObject("ADODB.Connection")conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("boletim/fish.MDB") Conn.Open ConStrSet rs = Server.CreateObject("ADODB.RecordSet")rs.Open "select * from coment", Connset rs = conn.execute(sql)if rs.oef=true then  response.redirect "erro.asp"end if%><%Do while NOT rs.EOFResponse.write rs("nome") & rs("email") & "<br>"rs.MoveNextLoop%>

Da dando esse erro:

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)Command text was not set for the command object./pescaki/v2/total.asp, line 8

[mkboy 1]

RESOLVIDO!!!Valeu pela atenção!!! :D