Ir para conteúdo
Fórum Script Brasil

jariju

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    3

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que jariju postou

  1. jariju

    Erro No Recordset

    pergunta respondeu ao jariju de jariju em Dreamweaver

    Fiz tudo novamente, inclusive um novo banco, criei a página de login ( CHAMADA login.asp ) e uma que deveria recever os dados após o filtro ( SESSÃO ). O resultado foi erro novamente. Estou deixando o código que desta fez está mais limpo. ------------------------------------------------------------- Página de Login ( login.asp ) ------------------------------------------------------------- <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/teste.asp" --> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("usuario")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="teste.asp" MM_redirectLoginFailed="login.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_teste_STRING MM_rsUser.Source = "SELECT usuario, senha" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM user WHERE usuario='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form action="<%=MM_LoginAction%>" method="POST" name="formulario" id="formulario"> <input name="usuario" type="text" id="usuario"> <input name="senha" type="password" id="senha"> <input type="submit" name="Submit" value="Login"> </form> </body> </html> ----------------------------------------- Página que é exibido o erro e que deveria exibir o nome do usuário após ter filtrado a variável de sessão: ( teste.asp ) ----------------------------------------- <%@LANGUAGE="VBSCRIPT"%> <!--#include file="Connections/teste.asp" --> <% Dim Rs_usuario__MMColParam Rs_usuario__MMColParam = "1" If (Request.Form("MM_username") <> "") Then Rs_usuario__MMColParam = Request.Form("MM_username") End If %> <% Dim Rs_usuario Dim Rs_usuario_numRows Set Rs_usuario = Server.CreateObject("ADODB.Recordset") Rs_usuario.ActiveConnection = MM_teste_STRING Rs_usuario.Source = "SELECT * FROM user WHERE usuario = '" + Replace(Rs_usuario__MMColParam, "'", "''") + "'" Rs_usuario.CursorType = 0 Rs_usuario.CursorLocation = 2 Rs_usuario.LockType = 1 Rs_usuario.Open() Rs_usuario_numRows = 0 %> <html> <head> <title>Documento sem t&iacute;tulo</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <div align="center"> <p>&nbsp;</p> <p>Aqui est&aacute; o filtro da vari&aacute;vel de Sess&atilde;o: <%=(Rs_usuario.Fields.Item("nome").Value)%></p> </div> </body> </html> <% Rs_usuario.Close() Set Rs_usuario = Nothing %> ------------------------------------------------------------------ Se usar LIKE onde uso = , funciona normal !!!
  2. jariju

    Erro No Recordset

    pergunta respondeu ao jariju de jariju em Dreamweaver

    O problema é que só é exibido o erro quando uso o critério = , quando uso "contém" ou outro, não da erro.
  3. jariju
    Boa tarde !!! Estou com uma grande dúvida: Várias vezes criei um sistema de login, e logo utilizava a sessão criada para filtrar os registros da tabelas que utilizo no site. Agora estou criando da mesma forma, só que está dando o seguinte erro: Tipo de erro: ADODB.Field (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /intranet/municipios/lista_municipio.asp, line 458 O erro acima é exibido somente quando uso o critério = no Recordset , se utilizar LIKE ou outro o erro não é exibido, e sim um registro que corresponda a consulta. Sempre utilizei o mesmo procedimento que estou utilizando agora, e não deu erro. Já estou a uma semana fazendo vários teste e não consegui resolver o problema, a única conclusão que cheguei foi que não posso utilizar o = , e na verdade preciso que o registro seja igual. Se alguém puder me ajudar vou ficar muito agradecido ---------------------------------------------------------------------------------------------- Eis o código que está dando erro:
×
×
  • Criar Novo...