Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

designmix

Erro na linha 8 ()

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

no caso seriam antes dos dois redirecionamentos...

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

nada ainda da erro

 

Essas coisa so acontece comigo mesmo

hehehehheh

 

mesma coisa .. ai esta

o erro

Tipo de erro:ADODB.Recordset (0x800A0E78)Operação não permitida quando o objeto está fechado./dpi/login/acesso.asp, line 14
ASP [/tr][tr]<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

call abre_conexao

strSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"

set acesso = conn.Execute(strSQL)

call fecha_conexao

 

if acesso.eof then

Response.Redirect"entrar.htm"

else

Session("login")=login

Session("usuario")= acesso("usuario")

Session("Email")= acesso("Email")

Session("login")= acesso("login")

Response.Redirect"identificado.asp"

end if

acesso.ActiveConnection = Nothing

 

call fecha_conexao

 

%>

[/tr]
:wacko: :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tente agora com esse.

<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

call abre_conexao

strSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"

set acesso = conn.Execute(strSQL)

 

if acesso.eof then

call fecha_conexao

Response.Redirect"entrar.htm"

else

Session("login")=login

Session("usuario")= acesso("usuario")

Session("Email")= acesso("Email")

Session("login")= acesso("login")

call fecha_conexao

Response.Redirect"identificado.asp"

end if

%>

[/tr]

Compartilhar este post

Link para o post
Compartilhar em outros sites

FabricioGomes    0

FabricioGomes
Postado

como eu disse, se fechar a conexao somente uma vez, tera que ser feito apos o execute, porem, deve desconectar o recordset, com "activeconection = nothing" antes de fechar...... heheheheabraços ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

Valeu o que faria se nao tivesse vcs hehehhehe VALEU MESMO >> http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

beleza galera agora funciono tudo normal so que ..

 

Mais AGORA quero saber como faço para que cada usuario va para uma pagina de acordo com seu login e senha

 

VOU COLOCAR O ME SCRIPT AQUI PARA você VE SE DA PARA FAZER ISSO NESSE MESMO.

 

O QUE PRECISO CRIAR PARA FAZER ISSO. NO DB VOU TER QUE CRIAR UM CAMPO COM UM LINK .DE CADA USUARIO

 

ENTAR.HTM

 

ASP [/tr][tr]

<html>

<head>

<title>Entrar</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000">

<form method="get" action="acesso.asp">

<table width="22%" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>

<td width="44%">

<div align="right"><font size="2" face="Arial" color="#000000">login</font><font size="2" face="Arial" color="#f08810">:</font></div>

</td>

<td width="56%">

<div align="left">

<input type="text" name="login" size="11" maxlength="11">

</div>

</td>

</tr>

<tr>

<td width="44%" height="35">

<div align="right"><font size="2" face="Arial" color="#000000">senha</font><font size="2" face="Arial" color="#f08810">:</font></div>

</td>

<td width="56%" height="35">

<div align="left">

<input type="password" name="senha" size="11" maxlength="15">

</div>

</td>

</tr>

<tr>

<td width="44%">  </td>

<td width="56%">

<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif">

<input type="submit" name="Submit" value="entrar">

</font> </div>

</td>

</tr>

</table>

<p></p>

</form>

</body>

</html>

 

 

[/tr]

 

ACESSO.ASP

ASP [/tr][tr]

 

 

<%@ Language=VBScript %>

<!--#include file="../_conn/bib_conexao.asp"-->

 

<%

 

login=(Request.QueryString("login"))

senha=(Request.QueryString("senha"))

 

call abre_conexao

strSQL = "SELECT * FROM admin WHERE login='"&login&"' AND senha='"&senha&"'"

set acesso = conn.Execute(strSQL)

 

if acesso.eof then

call fecha_conexao

Response.Redirect"entrar.htm"

else

Session("login")=login

Session("usuario")= acesso("usuario")

Session("Email")= acesso("Email")

Session("login")= acesso("login")

call fecha_conexao

Response.Redirect"identificado.asp"

end if

%>

 

[/tr]

 

Identificado.ASP

 

ASP [/tr][tr]<html>

<head>

<title>Identificado</title>

</head>

<body topmargin="0" leftmargin="0" background="images/fundo1.gif">

<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="639" background="images/topo.jpg" height="63">

<tr>

<td width="641" valign="bottom">

<div align="right"></div>

</td>

</tr>

</table>

</div>

<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="640" height="70">

<tr>

 

<td width="471" bgcolor="#FFFFFF" rowspan="2" valign="top" height="379">

<div align="center">

<p> </p>

<p><font size="2" face="Arial" color="#f08810">Olá,

<% response.write session("Usuario") %>

<% response.write session("login") %>

 

<br>

bem-vindo ao<br>

Seu Site</font></p>

</div>

<p align="center"> <a href="logout.asp">Sair do Sistema</a>

</td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</div>

<div align="center">

<table border="0" cellpadding="0" cellspacing="0" width="640" bgcolor="#FFFFFF">

<tr>

<td valign="bottom">

<p align="right">

</td>

</tr>

</table>

</div>

</body>

</html>

[/tr]

 

logout.asp

 

ASP [/tr][tr]<html>

<head></head>

<body>

<%

session.abandon

response.write"Logout feito com sucesso!!"

response.redirect "Entra.htm"

%>

</body>

</html>

[/tr]
:blink: :wacko:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como assim uma pagina de acordo com login e senha

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito