Como vejo se a rsQuery está vazia ?

[feasso 0]

SQLstring =  "SELECT TA.ID_Agente,TA.Nome_Agente, TUA.ID_Unidade, TAC.ID_CategACesso "&_
		" FROM TAgente TA " &_
	   " LEFT JOIN TUnidadeAgente TUA on (TUA.ID_Agente = TA.ID_Agente) " &_
	" INNER JOIN TAgenteCat TAC ON (TAC.ID_Agente = TA.ID_Agente) " &_
		" WHERE TA.Login_Agente  ='"& Replace(Request.Form("Login_Agente"),"'","''") &_
	"' AND TA.Senha_Agente   ='"& PwdCrip &_
	"' AND TA.Ativo_Agente = 1" &_
	" AND TA.Senha_Agente <> ''" 
  
Set rsQuery = Conn.Execute(SQLstring)

Como vejo se a rsQuery está vazia ???

[Jow Xavier 0]

SQLstring =  "SELECT TA.ID_Agente,TA.Nome_Agente, TUA.ID_Unidade, TAC.ID_CategACesso "&_

" FROM TAgente TA " &_

" LEFT JOIN TUnidadeAgente TUA on (TUA.ID_Agente = TA.ID_Agente) " &_

" INNER JOIN TAgenteCat TAC ON (TAC.ID_Agente = TA.ID_Agente) " &_

" WHERE TA.Login_Agente ='"& Replace(Request.Form("Login_Agente"),"'","''") &_

"' AND TA.Senha_Agente ='"& PwdCrip &_

"' AND TA.Ativo_Agente = 1" &_

" AND TA.Senha_Agente <> ''"

 

Set rsQuery = Conn.Execute(SQLstring)

 

If not rsQuery.EOF Then ' caso ñ vazia

response.write "Não estou vazia"

else

response.redirect "sair.asp"

end if

[nagaozen 1]

SQLstring =  "SELECT TA.ID_Agente,TA.Nome_Agente, TUA.ID_Unidade, TAC.ID_CategACesso "&_
		" FROM TAgente TA " &_
	   " LEFT JOIN TUnidadeAgente TUA on (TUA.ID_Agente = TA.ID_Agente) " &_
	" INNER JOIN TAgenteCat TAC ON (TAC.ID_Agente = TA.ID_Agente) " &_
		" WHERE TA.Login_Agente  ='"& Replace(Request.Form("Login_Agente"),"'","''") &_
	"' AND TA.Senha_Agente   ='"& PwdCrip &_
	"' AND TA.Ativo_Agente = 1" &_
	" AND TA.Senha_Agente <> ''" 
  
Set rsQuery = Conn.Execute(SQLstring)

Como vejo se a rsQuery está vazia ???

Meu, não codifica assim, o VB tem um problema sério de desempenho para concatenação de strings. Se quiser colocar o SQL em várias linhas para facilitar a "readbilidade" - eita p**** como é difícil traduzir as coisas! - Utilize sempre o join(array(), " "). Por exemplo:

 

dim query : query = join(array( _
"SELECT ...", _
"FROM ...", _
"WHERE ...", _
"ORDER BY ...", _
), " ")

Para saber se o campo está vazio você usa o Rs.eof como o Xavier comentou:

 

<%

set Rs = Conn.execute(query)
if( Rs.eof ) then
    statements
else
    while( not Rs.eof )
        statements
        Rs.movenext
    wend
end if
set Rs = nothing

%>