response.redirect

[morfel 0]

TENHO O SEGUINTE CODIGO

 

<%
	nome = request.form("login")
	senha = request.form("senha")

	Set conexao = Server.CreateObject("ADODB.Connection")
	conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database.mdb")&";"
	Set tabela = conexao.Execute("SELECT NOM_USUARIO, SEN_USUARIO, ADM_USUARIO, COD_DIRECAO FROM TB_USUARIOS WHERE NOM_USUARIO = """ & nome & """ AND SEN_USUARIO = """ & senha & """ AND ADM_USUARIO = TRUE;")

	if (tabela.EOF = False) then
		session("nome") = nome
		session("senha") = senha
		session("admin") = "Administrador"
	else
		session("nome") = ""
		session("senha") = ""
		session("admin") = ""
	end if

	if (session("nome") = "") and (session("senha") = "") and (session("admin") = "") then
		response.redirect("default.asp?erro=1")
	else
		response.redirect("DIRECIONANDO ELE PARA A PAGINA DELE ")
	end if
%>

AI CADA CLIENTE TEM UMA PAGINA...

 

COME SE FAZ ? CONTO COM A AJUDA

[DSerma 19]

if (session("nome") = "") and (session("senha") = "") and (session("admin") = "") then
		response.redirect("default.asp?erro=1")
	else
		response.redirect("PaginadeClientes.asp?NomeCli=" & Session("Nome"))
	end if

Abraços...

 

PS: Titulo do tópico editado por nao estar de acordo com as regras.

[morfel 0]

na verdade nao quero isto...

 

quero que ao cliente digitar o usuario e senha correto ele vai pegar o viderionamento que esta no banco de dados... tipo www.meusite.com.br/cliente1

[DSerma 19]

Ué.. se você qr redirecionar para um site que está armazenado no BD.. faça assim:

 

if (session("nome") = "") and (session("senha") = "") and (session("admin") = "") then
		response.redirect("default.asp?erro=1")
	else
		response.redirect(tabela.NomeDoCampoOndeEstaAUrlDoCliente)
	end if

 

Abraços...

[morfel 0]

NAO DEU CERTO....

 

OLHA O CODIGO QUE TENHO

 

<%
	nome = request.form("login")
	senha = request.form("senha")

	Set conexao = Server.CreateObject("ADODB.Connection")
	conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database.mdb")&";"
	Set tabela = conexao.Execute("SELECT NOM_USUARIO, SEN_USUARIO, ADM_USUARIO, COD_DIRECAO FROM TB_USUARIOS WHERE NOM_USUARIO = """ & nome & """ AND SEN_USUARIO = """ & senha & """ AND ADM_USUARIO = TRUE;")

	if (tabela.EOF = False) then
		session("nome") = nome
		session("senha") = senha
		session("admin") = "Administrador"
	else
		session("nome") = ""
		session("senha") = ""
		session("admin") = ""
	end if

	if (session("nome") = "") and (session("senha") = "") and (session("admin") = "") then
		response.redirect("default.asp?erro=1")
	else
		response.redirect("	 ")
	end if
%>

ELE SO DIRECIONA QUANDO EU COLOCA UM URL VALIDA

[Ted k' 126]

Favor evite de postar com letras maiusculas, acesse as regras e veja como postar bem suas dúvidas

[morfel 0]

ok... desculpe... conto com a ajuda

[morfel 0]

nao estou conseguindo.... como e que faço este direcionameto...

[Ted k' 126]

response.redirect ("proxima_pagina.asp")

[morfel 0]

ok... isto eu sei fazer sem roblemas.... mais este direcionamento quero colocar dentro de um banco de dados....

 

Ai esta o problema... como chamar o response.redirect chando o endereço que esta no banco de dados??????

[Felipe Fonseca 0]

Amigo nao Tem misterio nao ....

 

Nome | Area

 

Felipe | /Felipe/Felipe/Felipe/index.asp

 

---to ... quando o cmarada fizer o login você carrega a URL em uma variavel.

 

vArea = RS("Area")

response.redirect("& vArea &")