Problema com loop

[Slaa 0]

Olá, ca estou de novo...Vejam bem... estou com um problema... quero que o administrador tenha a lista que esta disponível no database (access), onde a connexão eh realizada pelo arquivo connexao.asp que encontra-se no arquivo administrador.asp, o problema eh que naum aparece nada. Simplesmente as barras e nada mais. Naum aparece erro algum... apenas a tabela, soh que sem valores, sem nada.Imagino que seja o loop.Eis o código:

<%if objRS.EOF = true thenresponse.write "Nenhum registro encontrado"elseDO WHILE NOT objRS.EOF AND objRS2.EOF AND objRS3.EOF%> <td><span style="font-weight: bold">Numero de clientes :</span></td> <td bgcolor="#EFEFEF"><%=memberid%></td> <td> </td> <td bgcolor="#EFEFEF"> </td> <td> </td> <td bgcolor="#EFEFEF"> </td> </tr><tr> <td width="10%"><span style="font-weight: bold">User:</span></td> <td width="25%" bgcolor="#EFEFEF"><%=objRS("loginname")%></td> <td width="10%"><span style="font-weight: bold">e-mail:</span></td> <td width="25%" bgcolor="#EFEFEF"><%=objRS("email")%></td> <td width="10%"><span style="font-weight: bold">Status:</span></td> <td width="20%" bgcolor="#EFEFEF"><% if estatus = "OK" then%> <font color=green><%=estatus%></font> <% else %><font color=red><%=estatus%><%end if%></font></td> </tr><%objRS.MoveNextobjRS2.MoveNextobjRS3.MoveNextLoopend if%>

Valeu.

[Slaa 0]

BOm, coloca seu codigo inteiro ai.Caso seja esse, faltou uma instrucao sql para fazer a consulta.Abraço.

Enatum, as Instruções de conexão estaum todas no arquivo connexao.asp que eu inclui no arquivo. com o seguinte código:<!-- #include file="connexao.asp" -->para ficar mais fácil de modificar caso seja necessário...Bom, mas ai vaum as instruções:Você vai perceber que esta bem desorganizado, tipico de iniciante, hauahuaha

<%Dim strSQL, strSQL2, strSQL3 Dim objConn, objConn2, objConn3 Dim objRs, objRs2, objRs3 Dim lngMemberID'MembersDim memberID, loginname, loginpassword, nome, emailDim dos, recursosDim estatus' Open DatabaseSet objConn = Server.CreateObject("ADODB.Connection")Set objRs = Server.CreateObject("ADODB.Recordset")objConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb") strloginname = session("loginname")' SELECTstrSQL = "SELECT * FROM Members WHERE LoginName = '" & strLoginName & "'"' Open the DatabaseobjRS.Open strSQL, objConnif objRS.EOF = true thenresponse.redirect ("http://www.hv.com/")else'--------------------------------------------------------------------------------------Set objConn2 = Server.CreateObject("ADODB.Connection")Set objRs2 = Server.CreateObject("ADODB.Recordset")objConn2.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb") strSQL2 = "SELECT * FROM host WHERE LoginName = '" & strLoginName & "'"' Open the DatabaseobjRS2.Open strSQL2, objConn2if objRS2.EOF = true thenresponse.redirect ("http://www.hv.com/")else'--------------------------------------------------------------------------------------Set objConn3 = Server.CreateObject("ADODB.Connection")Set objRs3 = Server.CreateObject("ADODB.Recordset")objConn3.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("001.mdb") strSQL3 = "SELECT * FROM financeiro WHERE LoginName = '" & strLoginName & "'"' Open the DatabaseobjRS3.Open strSQL3, objConn3if objRS3.EOF = true thenresponse.redirect ("http://www.hv.com/")else'--------------------------------------------------------------------------------------'Declaração'MembersmemberID = objrs("memberID") loginname = objrs("Loginname") nome = objrs("nome")email = objrs("email")os = objrs2("os")recursos = objrs2("recursos")estatus = objrs3("status")end ifend ifend if%>

Espero que consiga entender...abraços

[Slaa 0]

Ta ai o codigo.. ajudem por favor!!!....