tenho um sistema de login e senha que fu

[Spirit 0]

E aí galera, é o seguinte tenho um sistema de login e senha que está funcionando perfeitamente, mais eu queria o seguinte, no db eu tenho os campos:

 

nome | e-mail | login | senha | url | empresa

 

O formulário de login tem os campos login e senha, só que eu queria que quando fizesse o login o usuário fosse direcionado para o valor do url do bd...Exemplo

 

nome | e-mail | login | senha | url | empresa

----------------------------------------------------------------------------

admin | admin@teste | admin | 123456 | http://www.teste.com.br/admin | admin

 

quando o usuário admin fizesse o login, o doc asp faria a verificação se o login e senha estão corretos e se estiverem redirecionar para a url que está no campo URL do DB....Como faço isso por favor me deem uma luz....

 

 

Thiago Mm.

[Salgado 4]

Seu sistema de login está funcionando correto? Então logo abaixo do ponto onde você termina o login, antes de fechar o BD e o RS você faz um Response.Redirect(RS("URL")).

 

Teste e retorne se te atendeu.

[Spirit 0]

Então logo abaixo do ponto onde você termina o login

Como assim, abaixo do ponto...Me explica direito por que não entendi, eu faço um response.redirect pegando os valores do campo URL, olha só como está o code do login...

<%MM_LoginAction = Request.ServerVariables("URL")If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)MM_valUsername=CStr(Request.Form("login"))If MM_valUsername <> "" Then  MM_fldUserAuthorization=""  MM_redirectLoginSuccess="application.asp" //--> E se eu usar um Response.Redirect Session("MM_URL"), não testei assim, mais será que daria certo <--  MM_redirectLoginFailed="default.asp?erro"  MM_flag="ADODB.Recordset"  set MM_rsUser = Server.CreateObject(MM_flag)  MM_rsUser.ActiveConnection = MM_con_regio_STRING  MM_rsUser.Source = "SELECT login, senha"  If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization  MM_rsUser.Source = MM_rsUser.Source & " FROM db_regio.admin WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"  MM_rsUser.CursorType = 0  MM_rsUser.CursorLocation = 2  MM_rsUser.LockType = 3  MM_rsUser.Open  If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then     Session("MM_Username") = MM_valUsername    If (MM_fldUserAuthorization <> "") Then      Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)    Else      Session("MM_UserAuthorization") = ""    End If    if CStr(Request.QueryString("accessdenied")) <> "" And false Then      MM_redirectLoginSuccess = Request.QueryString("accessdenied")    End If    MM_rsUser.Close    Response.Redirect(MM_redirectLoginSuccess)  End If  MM_rsUser.Close  Response.Redirect(MM_redirectLoginFailed)End If%>

E o código do formulário de login é este:

<form name="login" method="POST" action="<%=MM_LoginAction%>">      <table width="100%"  border="0" cellspacing="2" cellpadding="0">              <tr>                <td height="18"><div align="right"><span class="ver_blue_10">login:</span></div></td>                <td><input name="login" type="text" class="input_white" id="login" size="40">                  </td>              </tr>              <tr>                <td width="19%" height="18"><div align="right" class="ver_blue_10">senha:</div></td>                <td width="81%"><input name="senha" type="password" class="input_white" id="senha4" value="" size="40"></td>              </tr>              <tr>                <td height="31"><div align="right" class="ver_blue_10"></div></td>                <td class="ver_blue_10"><div align="left"><a href="#" onClick="window.open('senha.asp','window','width=500px,height=300px,left=230px,top=150px,toolbar=0,status=0')" style="text-decoration:none; color:#003366;">esqueci minha senha???</a></div></td>              </tr>              <tr>                <td> </td>                <td>         <input name="Submit" type="submit" class="ver_blue_10" value="entrar"></td>              </tr>            </table>      </form>

Como que eu coloco o response redirect aqui....Me dá uma mão aí...Thiago M.

[Salgado 4]

Êita códigozinho do DW! Deixa eu tentar adaptar essa "coisa" (não entenda mal, só acho que o dw facilita mas suja demais o código.

<%

MM_LoginAction = Request.ServerVariables("URL")

If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)

MM_valUsername=CStr(Request.Form("login"))

If MM_valUsername <> "" Then

MM_fldUserAuthorization=""

MM_redirectLoginFailed="default.asp?erro"

MM_flag="ADODB.Recordset"

set MM_rsUser = Server.CreateObject(MM_flag)

MM_rsUser.ActiveConnection = MM_con_regio_STRING

MM_rsUser.Source = "SELECT login, senha, URL"

If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization

MM_rsUser.Source = MM_rsUser.Source & " FROM db_regio.admin WHERE login='" & Replace(MM_valUsername,"'","''") &"' AND senha='" & Replace(Request.Form("senha"),"'","''") & "'"

MM_rsUser.CursorType = 0

MM_rsUser.CursorLocation = 2

MM_rsUser.LockType = 3

MM_rsUser.Open

If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then

MM_redirectLoginSuccess=MM_rsUser("URL")

Session("MM_Username") = MM_valUsername

If (MM_fldUserAuthorization <> "") Then

Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)

Else

Session("MM_UserAuthorization") = ""

End If

if CStr(Request.QueryString("accessdenied")) <> "" And false Then

MM_redirectLoginSuccess = Request.QueryString("accessdenied")

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginSuccess)

End If

MM_rsUser.Close

Response.Redirect(MM_redirectLoginFailed)

End If

%>

[/tr]

Testa ai e veja se rola.

 

Corrigido!

[Spirit 0]

Olha só deu erro:

Tipo de erro:ADODB.Recordset (0x800A0CC1)O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado./regio_application/applications/intranet/default.asp, line 35

E a linha 35 é essa aqui...

MM_redirectLoginSuccess=MM_rsUser("URL")

Que que tenho que fazer aí...Thiago M.

[Salgado 4]

Corrigi no post acima, o Select da SQL não estava pegando o campo URL do BD. Testa lá

[Spirit 0]

Agora rodou redondinho...Valeu....Ei aproveitando o post e sem querer aproveitar de vcs...Eu tenho um form de cadastro, que servirá para inclusão, exclusão, e consulta...Como faço para uma combobox definir a ação do botão...Exemplo:O usuário irá preencher o formulário daí no combobox ele seleciona a opção de Inserir...Insert into bd_form....e se ele seleciona excluir....Delete from bd_form...e tb como faço pro seguinte, não sei se vcs já viram ou fizeram igual, quando o usuário digitar o nome dele completo os outros campos preencherem automaticamente se aquele nome existir no bd, caso não exista continue em branco....Mais essa forcinha que deixo vcs em paz...Thiago M.

[robson.r 0]

No meu caso, está aparecendo isso:

 

Tipo de erro:

ADODB.Recordset (0x800A0BB9)

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

/exemplo_enquete/TMPn1jocixaeo.asp, line 10

 

e a minha linha 10 é

 

MM_rsUser.ActiveConnection = MM_enquete_STRING

 

ALGUÉM POR FAVOR>>>HELP!!

[Mário Monteiro 179]

como esta sua conexao??