response.redirect

Rodrigo Pensky · Abril 13, 2009

Olá galera um bom dia a todos, eu gostaria de saber se alguém sabe se tem como eu puxar um link do banco de dados e colocar no response.redirect ("puxar link no banco de dados") ???

Vou explicar melhor:

Meu Banco de dados é esse:

eu estou ultilizando este código:

<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "<script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        response.redirect ("puxar do banco de dados (link)")
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

Rafael Spilki · Abril 13, 2009

sim... tranquilamente... mas penso que aqueles dois pontos que tem ali no início devem ser retirados...

qual dificuldade você vem encontrando?

Rodrigo Pensky · Abril 13, 2009

A sim beleza, mas qual é o código que eu coloco dentro do response.redirect ("?") para puxar aquele link

Porque cada usuario tera um link diferente!

DeeKilleer · Abril 13, 2009

Faz um select no usuario e pega o link

Dim sql
   sql = "select Link, * usuario where usuario =" & '"Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

'Agora joga no Response.Redirect
Response.Redirect(Link)

Para ficar mais facil, implementei no seu codigo se der erro fala

<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
call fechar_conexao
response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
'Caso tenha achado o usuário, o sistema irá verificar a senha
if usuario("senha")=request.form("senha") then
'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
response.cookies("access")("usuario")=usuario("cod")
'Irá fazer um UPDATE para indicar o último acesso
bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
'Fecharemos a conexão
call fechar_conexao 
'Redirecionaremos para a página principal

response.redirect (Link)
else
'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
call fechar_conexao
response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
end if
end if
%>

Editado Abril 13, 2009 por DeeKilleer

Rodrigo Pensky · Abril 13, 2009

DeeKilleer eu testei aqui e não funcionou

não carregou nada, oque será que esta errado?

DeeKilleer · Abril 13, 2009

Como assim não carregou ? O Link pra pagina ??

Coloque um Response.Write(Link) e veja o que aparece

Se aparecer alguma coisa é porque ele está pegando o link da tabela, agora se não estiver carregando a pagina pode ser varias coisas.

você tem cada link em um diretorio, ou é um link da web ?

Se for da web, tem que por http://www.exemplo.com.br, se estiver em um diretorio, tem que colocar o endereço certo, cuidado com os ../, tem que estar certo! Eu colocaria o endereço inteiro!

Rodrigo Pensky · Abril 13, 2009

Eu coloquei o Response.Write(Link) tmb não abriu a pagina.

Os links eu estou colocando esta assim no banco de dados:

exemplo:

COD: 1

USUARIO: Walter

SENHA: ****

LINK:Http://www.photoprintdigital.com.br/profissional/Walter/Admin.asp

Agora em outro usuario, outro link diferente

COD: 1

USUARIO: Rodrigo

SENHA: ****

LINK:Http://www.photoprintdigital.com.br/profissional/Rodrigo/Admin.asp

o que poderia estar errado?

Rafael Spilki · Abril 13, 2009

Aí é que tá... como está a sua sintaxe?

Link vem de uma consulta ao bd, não?

Se sim, terás que buscar atraves do recordset...

logo a sintaxe ficaria algo como:

response.write rs("campo_link_bd")

o mesmo com response.redirect...

[]'s

Rodrigo Pensky · Abril 13, 2009

Então é só mudar o código Response.Write (Link) por este -> response.write rs("campo_link_bd") ?

DeeKilleer · Abril 13, 2009

não.. O comando Response.Write era para mostrar o link

Mostrou na tela o Link ???

Se mostro é porque ele está puxando do banco

Aparece algum erro ? Se sim, posta ae pra gente..

não era pra dar errado

Quando você digita o email e senha, da certo ? não da erro nenhum ? entra normalmente, só não redireciona é isso ?

Ou senao.. coloca assim

Response.Redirect("Rs.Fields("campo_link_bd"))

Veja se da certo

Editado Abril 13, 2009 por DeeKilleer

DeeKilleer · Abril 13, 2009

Vamos fazer diferente do que você está fazendo.

Crie uma pagina de conexao separada assim

<%
    SET Conexao = Server.CreateObject("adodb.connection")
    Conexao.open "Provider=SQLOLEDB.1;Password=Senha;Persist Security Info=True;User ID=Login;Initial Catalog=Base;Data Source=Servidor"
%>

Agora vamos pegar os itens do formulario

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file = "conexaosql.asp" -->
<%
if request.querystring("action") = "login" then
    set login = server.createobject("ADODB.Recordset")
    login.open    "select * FROM tabela WHERE LOGIN= '"&request.form("login")&"' AND SENHA= '"&request.form("senha")&"'", conexao
    if login.eof then
                      response.write("senha incorreta")
                else
                     response.redirect(RS.Fields("campo_Link")
                end if
%>

agora não tem erro cara...

o botao entrar que você deve ter na pagina quando você for logar, tem que chamar login

porque no Request.QueryString ele pega a ação do botao..

Bele!

Editado Abril 13, 2009 por DeeKilleer

Rodrigo Pensky · Abril 13, 2009

O erro que dá é "A página não pode ser exibida" - "HTTP 500 - erro interno do servidor"

Andei analizando aqui, quando eu tiro esse código abaixo

Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

e mudo o Response.Redirect("Rs.Fields("campo_link_bd") para response.redirect("http://site.com.br/index.asp")

ele funciona, então deve ter um erro ai!

Séra porque eu fiz o banco de bados em mdb?

É porque eu preciso que ele busque o link no banco de dados!

Editado Abril 13, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

DeeKilleer · Abril 13, 2009

O código que você tirou

coloque ele novamente

..

Agora vai em ferramentas/opções de internet/avançadas e tire a opção "Mostrar Mensagens de erro amigaveis http"

Depois rode a pgina novamente e mande o erro ae pra gente

isso no IE, não no mOzilla

Ahhh com certeza deve ser a conexao..

não sabia que você tava usando MDB, pensei que era SQL

MDB conexao é assim

Set Conexao = Server.CreateObject("ADODB.Connection")
Set Infobanco= Server.CreateObject("ADODB.RecordSet") 
Conexao.Open 
"DBQ=D:\web\seu_login\dados\nome_do_banco.mdb;Driver={Microsoft Access Driver (*.mdb)}" 
Infobanco.Open "contatos",Conexao

Editado Abril 13, 2009 por DeeKilleer

Rodrigo Pensky · Abril 13, 2009

O arquivo de conexão esta certo:

_conexao.asp

<%
'Criaremos uma SUB para a conexão para conectarmos com o banco de dados do AccessAdmin
'Detalhe: Não é o banco que será administrado
sub abrir_conexao    
    localbd = "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("dados/banco.mdb")
    set bd=Server.CreateObject("ADODB.Connection")
    bd.open localbd
end sub

'SUB que fechará a conexão
sub fechar_conexao
    bd.close
    Set bd = nothing
end sub
%>

O erro esta dando no arquivo: Logar.asp

<% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        Response.Redirect("Rs.Fields("campo_link_bd"))
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

Editado Abril 13, 2009 por Rodrigo Pensky
Adcionar tag's (Jonathan)

DeeKilleer · Abril 13, 2009

porque o nome do seu CAMPO NA TABELA NÃO È CAMPO_LINK_BD.

è Link

então, nesse comando você poe assim

Response.Redirect(Rs.Fields("Link"))

Rodrigo Pensky · Abril 13, 2009

eu coloquei esse código Response.Redirect(Rs.Fields("Link"))

E deu esse erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

Variável não definida: 'Rs'

/profissional/adm/logar.asp, line 9

Não esta dando erro por causa desse script q esta em sql e o banco de dados esta em mdb?

Dim sql
   sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
   set Rs = server.createobject("ADODB.RecordSet")
   Rs.Open sql, conexao, 3, 3

   'Pega o campo LINK Abaixo
   Rs("Link")
   'declara ele numa variavel
   Link = Rs("Link")

Editado Abril 13, 2009 por Jonathan Queiroz

Rafael Spilki · Abril 13, 2009

Provavelmente no topo do seu script tenha o codigo:

option explicit

indicando que você deve declarar todas as variáveis... ou seja, tem que declarar o rs, ficaria assim:

Dim sql, Rs
sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
set Rs = server.createobject("ADODB.RecordSet")
Rs.Open sql, conexao, 3, 3

'Pega o campo LINK Abaixo
Rs("Link")
'declara ele numa variavel
Link = Rs("Link")

Rodrigo Pensky · Abril 13, 2009

Coloquei esse script

Dim sql, Rs
sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
set Rs = server.createobject("ADODB.RecordSet")
Rs.Open sql, conexao, 3, 3

'Pega o campo LINK Abaixo
Rs("Link")
'declara ele numa variavel
Link = Rs("Link")

E deu esse erro ADODB.Recordset erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /profissional/adm/logar.asp, line 9 SEGUE O CÓDIGO ABAIXO

<% Option Explicit %>
<!--#include file="_conexao.asp" -->
<%
'Criando variáveis
Dim localbd, bd, usuario

Dim sql, Rs
sql = "select Link, * usuario Where usuario = " & "'" & Request.Form("usuario") & "'"
set Rs = server.createobject("ADODB.RecordSet")
Rs.Open sql, conexao, 3, 3

'Pega o campo LINK Abaixo
Rs("Link")
'declara ele numa variavel
Link = Rs("Link")

'Abriremos a conexão criada do include _conexao.asp
call abrir_conexao

'Criaremos um Recordset para selecionar os usuários cadastrados
set usuario=Server.CreateObject("ADODB.Recordset")

'Selecionar de acordo com o Login digitado no campo
usuario.Open "SELECT * from usuario where usuario='"& request.form("usuario") &"'", bd

'Se o usuário não for encontrado, iremos fechar a conexão, dar um alert e voltar 
if usuario.EOF then
    call fechar_conexao
    response.write "&lt;script>history.back(1);alert('Login incorreto. Tente novamente.')</script>"
else
    'Caso tenha achado o usuário, o sistema irá verificar a senha
    if usuario("senha")=request.form("senha") then
        'Se a senha for válida, ele irá gravar um cookie com o codigo do usuario
        response.cookies("access")("usuario")=usuario("cod")
        'Irá fazer um UPDATE para indicar o último acesso
        bd.execute "UPDATE usuario SET ultimoacesso='"&now()&"' WHERE cod="&request.cookies("access")("usuario")&""
        'Fecharemos a conexão
        call fechar_conexao    
        'Redirecionaremos para a página principal
        Response.Redirect(Rs.Fields("Link"))
    else
    'Caso não valide a senha, será dada uma mensagem de senha incorreta e voltará
        call fechar_conexao
        response.write "&lt;script>history.back(1);alert('Senha incorreta. Tente novamente.')</script>"
    end if
end if
%>

Jonathan Queiroz · Abril 13, 2009

Olhe isso aqui:

'Pega o campo LINK Abaixo
Rs("Link")

Você teria que armazenar o valor numa variável

Rodrigo Pensky · Abril 13, 2009

Ixiiii já não estou entendendo mais nada rsrsrsrs

postei o código ai em cima só que da erro que eu especifiquei acima

o que eu faço? por favor?

Jonathan Queiroz · Abril 13, 2009

Aquela linha que postei ali em cima não faz nada, apenas referencia o elemento

Isso é pra dar erro mesmo

Acho que você estava editando o código e esqueceu de alguma coisa

Tente retirar aquelas linhas

Rodrigo Pensky · Abril 13, 2009

Agora deu o erro assim:

Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

Variável não definida: 'conexao'

/profissional/adm/logar.asp, line 10

A Linha 10 é essa:

Rs.Open sql, conexao, 3, 3

Jonathan Queiroz · Abril 13, 2009

O nome do objeto é "usuario", e não "conexao"

Tente usar a variavel "usuario"

Rodrigo Pensky · Abril 13, 2009

Alterei a linha e agora deu o erro

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/profissional/adm/logar.asp, line 10

Jonathan Queiroz · Abril 13, 2009

Qual é essa linha ?

Rodrigo Pensky · Abril 13, 2009

linha 10 Rs.Open sql, usuario, 3, 3

Entrar

response.redirect

Pergunta

Link para o comentário

Compartilhar em outros sites

Top Posters For This Question

Dias Populares

Top Posters For This Question

Dias Populares

52 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns