response.redirect

[Rodrigo Pensky]

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
%>

[Rodrigo Pensky]

Nossa que dificuldade estou tendo nesse projeto rsrsrs quero agradecer a todos que

estão tentando me ajudar!

Então deixa eu explicar melhor, tem mesmo como fazer o login e redirecionar puxando o link do banco de dados?

Vou postar os arquivos aqui zipado para vocês darem uma olhada:

Arquivos.zip

Não sei se neste forum é permitido postar arquivos caso seja me avisem que eu removo!

[bareta]

eu acho q já tinha citado alguns pontos desse script aqui.... o tópico ta com um tamanho absurdo pela duvida, recomendo deletar os arquivos e refazer usando as dicas adquiridas aqui.....

isso não existe:

If Rs("usuario").EOF Then

o certo é

if rs.eof then

deve ser colocado antes de:

Link = Rs.Fields("Link")

não esqueça de tirar o

response.end

e de ter atenção a estes detalhes na sua próxima aventura.