<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: check_usuario.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 23/08/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- %> <% rodape = "no" navegacaocompra = "fim" page = "check_usuario" passo=1 permissao="read" %> <%If navegacaocompra = "fim" And Request("tipo_acesso") <> "conta" Then%> <%Else%> <%End if%>

		<% ' Resgata o tipo de login do usuario If Session("tipo_login") <> "" Then tipo_login = Session("tipo_login") Else tipo_login = Request.form("tipo_login") End If ' Verifica se o pedido não está sendo refeito com outra forma de pagamento If Request.Form("novoPedido") = "yes" Then ' Recria a sessão do usuário Session("user_id") = Pega_DadoBanco("Pedidos","user_id","sessionID","'"&Session("id_transacao")&"'") Session("novoPedido") = "yes" Session("logado") = "yes" End If ' Resgata os dados postados If session("logado") = "yes" Then e_mail = Session("user_id") cep_cobranca = Replace(Session("cep_cobranca"),"-","") ' Verifica o tipo de login do usuario If tipo_login = "user_cad" Then Usuario_Valido = 2 Else Usuario_Valido = 1 End If Else e_mail = Request.form("user_id") session("user_id") = Request.form("user_id") senha = Request.form("senha") cep_cobranca = Replace(Request.form("cep_cobranca"),"-","") session("logado") = request("logado") ' Autentica o usuário Usuario_Valido = IdentificaUsuario(Conexao, e_mail, senha) End If ' Reenvia a senha de acesso If (Request.form("esquecisenha") = "on") And (Usuario_Valido = "0") Then Call Envia_mail_senha(Request.form("user_id"),"loja","") Usuario_Valido = 3 End If 'Caso o session("cep_frete") esteja vazia, o valor é capturado do XML do pedido If Session("cep_frete") = "" Then If request("tipo_acesso") <> "conta" Then Session("cep_frete") = pegaValorAtrib(Application("DiretorioPedidos")&request("id_transacao")&".xml","dados_pedido","cep_frete") End if End If If Session("id_transacao") <> "" Then If pegaValorAtrib(Application("DiretorioPedidos")&Session("id_transacao")&".xml","dados_pedido","cep_frete") <> Session("cep_frete") Then Session("cep_frete") = pegaValorAtrib(Application("DiretorioPedidos")&request("id_transacao")&".xml","dados_pedido","cep_frete") End If End If 'Verifica se o login será para um usuário cadastrado If (tipo_login = "user_cad") Then ' 0 - usuário cadastrado. Senha não confere ' 1 - usuário não cadastrado ' 2 - usuário OK. ' 3 - reenvio de senha. If Usuario_Valido = "0" Then VarMsgLogin = Application("ChkuTxtMsgLoginSenhaInv") ElseIf Usuario_Valido = "1" Then VarMsgLogin = Application("ChkuTxtMsgLoginUsuarioNaoCad") ElseIf Usuario_Valido = "2" Then VarMsgLogin = Application("ChkuTxtMsgLoginOK") ElseIf Usuario_Valido = "3" Then VarMsgLogin = Application("ChkuTxtMsgLoginSenhaEnv") End If 'Verifica se ocorreu algum erro no login If Usuario_Valido <> "2" AND session("logado") = "" Then %> "> <% response.end End If 'Verifica se o tipo de login não é para acesso a adm da conta If Request("tipo_acesso") <> "conta" Then 'Verifica se está ativo o calculo de frete If application("calculoFrete") = "sim" Then varCepVerif = Session("cep_frete") Else If Session("cep_entrega") <> "" Then Session("cep_frete") = Session("cep_entrega") Else Session("cep_frete") = Session("cep_cobranca") End If varCepVerif = "SEM FRETE" End If 'Verifica se o CEP do frete é igual ao cadastrado If Session("cep_frete") = Session("cep_cobranca") Then AnulaSessionUsuario("_entrega") ativa_dados_entrega = 0 Else Call Encontra_Endereco(Session("cep_frete"),"_entrega") ativa_dados_entrega = 1 End If End If 'Caso o login seja para um novo cadastro Else ' 0 - usuário já cadastrado ' 1 - usuário disponível para cadastrado If Usuario_Valido = "0" Then VarMsgLogin = Application("ChkuTxtMsgLoginUsuarioJaCad") ElseIf Usuario_Valido = "1" Then VarMsgLogin = Application("ChkuTxtMsgLoginOK") End If 'Verifica se houve algum erro no e-mail para o novo cadastro If Usuario_Valido <> "1" Then %> "> <% response.end Else 'Verifica se está ativo o calculo de frete If application("calculoFrete") = "sim" Then varCepVerif = Session("cep_frete") Else If cep_cobranca <> "" Then Session("cep_frete") = cep_cobranca End If varCepVerif = "SEM FRETE" End If Session("email_entrega") = e_mail If Session("cep_frete") = cep_cobranca Or Request("tipo_acesso") = "conta" Then If Request("tipo_acesso") = "conta" Then Call Encontra_Endereco(cep_cobranca,"_cobranca") Else Call Encontra_Endereco(Session("cep_frete"),"_cobranca") End If AnulaSessionUsuario("_entrega") ativa_dados_entrega = 0 Else Call Encontra_Endereco(cep_cobranca,"_cobranca") Call Encontra_Endereco(Session("cep_frete"),"_entrega") ativa_dados_entrega = 1 End If End If End If If Request("tipo_acesso") = "conta" And tipo_login <> "user_new" Then response.redirect "conta_usuario.asp?lang="&varLang response.end End if %> "> "> <% If Request("tipo_acesso") <> "conta" Then %> <% End If %> <% If (tipo_login = "user_new") Then %> <% End If %> <%=Application("ChkuTxtIdentificacao")%>: <%= e_mail %> <%=Application("ChkuTxtAvisoDigiteSenha")%> <%=Application("ChkuTxtSenha")%>:   <%=Application("ChkuTxtConfirmeSenha")%>: <%=Application("ChkuTxtTitDadosCobranca")%> <%Call Mostra_Endereco("cobranca")%> <%=Application("ChkuTxtSelRepeteEndereco")%> <%=Application("ChkuTxtTitDadosEntrega")%> <%Call Mostra_Endereco("entrega")%> " class="BTTN2"> <% If (ativa_dados_entrega = 1) Then %> <% End If %> <%If request("tipo_acesso") <> "conta" Then%> <%End if%>