É o seguinte: criei um sistema de cadastro e login que está funcionando beleza. (Vc's me ajudaram bastante com ele...hehe).
Preciso dar uma incrementada. Quando o usuário da cidade(leia base) logar no sistema (loga com CNPJ e SENHA) eu quero que ele seja direcionado para a página específica da base dele.
Tenho o seguinte script de autenticação do login.
<%
Dim CNPJ, SENHA, BASE
CNPJ = Request.Form("CNPJ")
SENHA = Request.Form("SENHA")
Dim conObj
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";"
Dim LOCALIZA
LOCALIZA = "SELECT CNPJ, SENHA, BASE FROM CADASTRO WHERE CNPJ='"&CNPJ&"' and SENHA='"&SENHA&"'"
Dim RS, LOGIN
Set RS = conObj.Execute(LOCALIZA)
If RS.EOF Then
LOGIN = false
Else
LOGIN = true
End if
tipo = request.QueryString("BASE")
If LOGIN = true Then
Session ("opstiu") = true
If tipo="MONTES CLAROS" then
%>
<script>
top.window.location.href=('montes_claros.asp')
</script>
<%
elseif tipo="VAZANTE" then
%>
<script>
top.window.location.href=('vazante.asp')
</script>
<%
End if
End if
Else
Response.Redirect("erro.asp")
End if
%>
Não sei onde está o erro ou erros nele. Gostaria que alguém pudesse me orientar no desenvolvimento do restante dele.
Farei a minha parte para continuar aprendendo com vc's.
Desde já agradeço!