ASP não abre BD

[daniloprates 0]

Fala Galera!!!

 

To fazendo um site em ASP+Access. To com um problema:

A maioria das páginas está com lentidão na hora de acessar o banco. Demora muito. E algumas páginas simplesmente não abrem. Fica rodando rodando e não abre a bendita página. Alguém sabe me dizer o q tá acontecendo? To desesperado jah!!!!!

Valeu!!!

 

Conexão com o BD:

strConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("bd/dados.mdb") 	Set objConexao = Server.CreateObject("ADODB.Connection")	objConexao.Open strConexao

Recuperação dos dados:

<%Set Rs = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM LojasEstado Order by NomeEstado"Rs.open strSQL, objConexao Do while not Rs.EOF%><% Do While not Rs.Eof %><% = Rs("Nome") %><%Rs.MovenextLoop%>

[cesar 0]

c ta fazendo 2 loops..

 

 

<%Set Rs = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM LojasEstado Order by NomeEstado"Rs.open strSQL, objConexao [B]Do while not Rs.EOF[/B]%><% [B]Do While not Rs.Eof [/B]%><% = Rs("Nome") %><%Rs.MovenextLoop%>

[daniloprates 0]

Ah, não, isso foi erro, o de cima não tem.

[dimarcinho 0]

nao manjo mto de instruções SQL, mas naum precisaria especificar o ASC ou DESC ?! bom, eu realmente nao sei, mas caso seja, tenta assim:

 

e tb, eh possivel q tenha q especificar os tipos de cursores

tenta aih soh

 

<%

Set Rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM LojasEstado Order by NomeEstado ASC"

Rs.open strSQL, objConexao, 3, 3

 

Do While not Rs.Eof

response.write Rs("Nome")

Rs.Movenext

Loop

%>

[cesar 0]

Tenta fechar a conexão e limpar o recordset<%Set Rs = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM LojasEstado Order by NomeEstado"Rs.open strSQL, objConexaoDo While not Rs.Eofresponse.write Rs("Nome")Rs.MovenextLoopobjConexao.closeset objConexao = nothingrs.closeset rs = nothing%>