<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.2 ' Data: 12/09/06 ' Arquivo: autentica.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 16/02/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# rodape = "no" permissao="read" page = "autentica" passo=0 'Se a intenção de acesso não for a conta, dará inicio ao processo de fechamento do pedido If request("tipo_acesso") <> "conta" then navegacaocompra = "fim" End If 'Captura o valor postado para URLloja e cria a sessão. If request("URLloja") <> "" Then Session("URLloja") = request("URLloja") End If 'Caso o usuário esteja logado e a intenção é a acessar a conta dele ocorrerá o redirect. If Session("logado") <> "" and request("tipo_acesso") = "conta" Then response.redirect "conta_usuario.asp?tipo_acesso=conta" End If %> <%If navegacaocompra = "fim" and request("tipo_acesso") = "" Then%> <%Else%> <%End if%>

		"> <%If request("tipo_acesso") <> "conta" Then%> <%End if%> <% If Request.form("err_login") <> "" Then %> <% End if %> "> <% If Request.form("err_new_login") <> "" Then %> <% End if %> <%=Application("AutTxtTitUsuarioCad")%> <%=Application("AutTxtEmail")%> "> <%=Application("AutTxtSenha")%>   " class="bttn2"> <%=Application("AutTxtTitEsqueceuSenha")%> <%=Application("AutTxtEsqueceuSenha")%> <%= Request.form("err_login") %> <%=Application("AutTxtNovoUsuario")%> <% '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 'Anula a exibição do frete caso seja vazio varCEPfrete = Session("cep_frete") If varCEPfrete = 0 Then varCEPfrete = "" End If %> <%=Application("AutTxtEmail")%> "> <%=Application("AutTxtCEP")%>   " class="bttn1"> <%= Request.form("err_new_login") %> <% 'Exibe a lista de produtos no carrinho se o acesso não for para conta do usuário. If request("tipo_acesso") <> "conta" Then%> <%End if%>