Não acha em banco.

[filipefurriel 0]

Galera, é muito dificil eu colocar um poste, pois pesquiso bastante, mesmo assim, parei em algo sinceramente ridiculo, ou seja, não consigo entender o porque de o recordset percorrer a tabela e não encontrar os dados ... segue abaixo minha programação antes de o usuario fazer login ... ele sempre tah caindo no EOF infelizmente, memso tendo o registro, o que será? obs.: tanto o nome da colunas usuariox e senhax estão corretas na tabela, quanto o request que é recebido pelo formulário.

 

<%

vusuario=request.Form("usuario")

vsenha=request.Form("senha")

 

set conexao=server.CreateObject("ADODB.connection")

set rsconexao=server.CreateObject("ADODB.recordset")

conexao.open ConString

 

rsconexao.open ("select * from tab_aluno_geral where usuariox='"& vusuario &"' and senhax='"& vsenha &"'"),conexao

 

 

if rsconexao.EOF=true then

 

response.redirect "secretaria3.asp"

 

else

 

 

vnome=(rsconexao("nome"))

 

 

session("validalogin")=true

response.Redirect("alu_manut.asp?vnome="&vnome)

 

end if

 

set rsconexao=nothing

set conexao=nothing

%>

[Mário Monteiro 179]

printa o valor da sql na tela para ver se aparece corretamente

[xanburzum 169]

ele gera algum erro ?

verifique se os campos estão corretos com o tipo de dados e coloque o bloqueio e tipo do cursos na SQL

 

rsconexao.open ("select * from tab_aluno_geral where usuariox='"& vusuario &"' and senhax='"& vsenha &"'"),conexao,1,3

[filipefurriel 0]

Infelizmente eu já havia pensado em escrever em tela, tirei a especificação da senhax e usuariox e deixei p tds da tabela, no caso ele imprimiu td direitinho com sequencia de <br> ...ok, porém, memso com a adaptação do (1,3) na sql, nada rolou, continua como se ele passasse por td a tabela e nao encontrasse a senha e usuario nas colunas. É importante ressaltar que o tip ode dado esta correto, ou seja, texto nos dois, sendo o usuario como chave primaria. O estranho é que nunca tive esse problema, porém a tabela que eu usava era bem menor, com menos colunas, menos registros, essa deve ter umas 50 colunas. O que devo fazer? O que deve ser?

[xanburzum 169]

você esta executando no localhost ou server?

[filipefurriel 0]

Direto no servidor de hospedagem ... tive preguiça de instalar o iis nesse meu micro ... mas isso nao importa, pois o que importa é a execução do processo ... e ver o resultado não é? Mas oq iss iria afetar?

 

Cara a única forma de acelerar o processo e não ter problema é transferir os dados de usuario e senha dos registros para uma tabela menor ... aih não para no eof. Já fiz e rola normalmente, porém, é chato sabendo que toda vez que o usuario tiver q fazer atualização de registro eu tb terei q abrir update não p uma tabela mas para duas, não precisava disso se eu soubesse o pq de não rolar. Se alg descobrir me fale, porém já dei um jeitinho, oq nunca é bom neh?

[xanburzum 169]

olha este exemplo que uso em muitas aplicações de login

conexao

 <% '----------------------
'    este arq. serve para estabelecer a conexao com o BD em Access
'    de nome quaddra.mdb - para o arquivo login_action.asp

sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

 

form

<% Option Explicit 
'declara as var
dim varmsgeof, bc, data
'recupera a msgeof do erro no login_action
varmsgeof=request.querystring("msgeof")%>

<script language="javascript">
function novajan(){
window.open ("erro_treina.asp","Erro","width=240,height=240,scrollbar=no,status=yes,resize=no")
}
</script>
<script language="JavaScript">
function novajan1(){
window.open("terminar_treina.asp","Encerrar", "width=260,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<script language="JavaScript">
function novajan2(){
window.open("efetuarlog_treina.asp","Encerrar", "width=150,height=240,status=yes,scroolbars=no,toolbar=no")}
</script>
<%
Select case varmsgeof
case 1 'login vazio
response.write("<script>novajan();</script>")
case 2 'senha vazia
response.write("<script>novajan();</script>")
case 3 'login inválido
response.write("<script>novajan();</script>")
case 4 'senha incorreta
response.write("<script>novajan();</script>")
case 5'se user jah logado
response.write("<script>novajan();</script>")
case 6   ' user naun está logado,por isso naun tem permissaun para entrar em atualizacaun/suporte
response.write("<script>novajan2();</script>")
end select %>

<HTML>
<HEAD>
<TITLE>Login Clientes</TITLE>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<BODY bgColor=#ffffff leftMargin=18 topMargin=12>
<table width="100%" border="0" height="445">
 <tr> 
   <td height="378"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#666666"><b><font color="#336699">:: 
       Senhores Clientes para sua maior <br>
       segurança solicitamos sua identificação <br>
       para poder ter acesso a área restrita a você.</font></b></font><font face="Arial, Helvetica, sans-serif" size="1" color="#666666"><b> 
       </b></font></p>
     <p> </p>
     <form name="form1" method="post" action="logincli_action_treina.asp">
       <table width="85%" border="0" cellspacing="0" cellpadding="0" bgcolor="#336699">
         <tr bgcolor="#666666"> 
           <td width="4%" bgcolor="#666699"><img src="imgs/curva.gif" width="10" height="19"></td>
           <td width="96%" bgcolor="#336699"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b><font size="3">:: 
               </font>Porfavor efetue seu login</b></font></div></td>
         </tr>
         <tr bgcolor="#666666"> 
           <td width="4%" bgcolor="#336699"> </td>
           <td width="96%" bgcolor="#336699"> </td>
         </tr>
       </table>
       <table width="85%" border="0" cellspacing="0">
         <tr bgcolor="#336699"> 
           <td colspan="3"><font color="#e6e6e6" face="Verdana, Arial, Helvetica, sans-serif" size="2"><b> Login: 
               
             <input name=login size="12" maxlength="12">
             </b></font></td>
         </tr>
         <tr bgcolor="#336699"> 
           <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#e6e6e6"><b> Senha: 
             <input type=password name=senha size="12" maxlength="12">
                <span class="preto"> 
             <input type="image" border="0" name="imageField" src="imgs/enviar.gif" width="87" height="22">
             </span></b></font></td>
         </tr>
         <tr bgcolor="#336699"> 
           <td height="2" width="41%"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><strong>Esqueceu 
               a senha clike <a href="esqsenha_form_treina.asp">Aqui</a></strong></font></div></td>
           <td width="42%"><div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#e6e6e6"><b>Para 
               efetuar Logo-off clique</b></font></div></td>
           <td height="2" width="17%"><script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0','width','35','height','19','src','logoff','quality','high','pluginspage','http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash','scale','exactfit','bgcolor','#336699','movie','logoff' ); //end AC code
           </script>
             <noscript>
             <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="35" height="19">
               <param name=movie value="logoff.swf">
               <param name=quality value=high>
               <param name="BGCOLOR" value="#336699">
               <param name="SCALE" value="exactfit">
               <embed src="logoff.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" scale="exactfit" width="35" height="19" bgcolor="#336699"> </embed>
             </object>
             </noscript>            </td>
         </tr>
       </table>

     </form>
     </td>
 </tr>
</table>
</BODY></HTML>

 

action

<% Option Explicit
'declara as var
dim varsenha, varlogin, conexao ,rs, SQL, conDBQ, constring, rsselect, sqlselect, rsinsert, sqlinsert, rsupdate, sqlupdate,data
'recupera as var
varlogin=Trim(request.form("login"))
varsenha=Trim(request.form("senha"))
varlogin=Replace(varlogin,"'","")
varsenha=Replace(varsenha,"'","")
if varlogin="" then
response.redirect("logincli_form_treina.asp?msgeof=1")
end if
if varsenha="" then
response.redirect("logincli_form_treina.asp?msgeof=2")
end if
if Session("logado")=True then
response.redirect("logincli_form_treina.asp?msgeof=5")
end if 
%>
<!--#include file="conn/conexao1.asp"-->
<%
call abreconexao
'cria o recordset
Set rs=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM login WHERE login='"&varlogin&"'"
rs.open SQL,conexao,1,3
if rs.eof then
   response.redirect("logincli_form_treina.asp?msgeof=3")
else
	if Lcase (varsenha) <> Lcase(rs("senha")) then
		response.redirect("logincli_form_treina.asp?msgeof=4")
		session("logado")=False
	else
		session("logado")=True
		session("senha")=varsenha
		session("login")=varlogin
		response.Redirect("administracao_treina.asp")
	end if
end if
set rs=nothing
call fechaconexao%>

[filipefurriel 0]

Vou testar depois seu exemplo de Login, mas, oq percebi foi q o erra de não conseguir buscar em banco foi simplismente o fato do tamanho da tabela ... no caso isso tem alguma influencia mesmo? Na verdade essa é minha dúvida, pois de qq forma em uma tabela com no máximo 8 colunas, td roda perfeito e excelente.