<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: autentica.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 28/04/08 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# rodape = "no" permissao="read" page = "autentica" passo=0 ' Altera a página para ambiente seguro, caso necessário. If InStr(Application("URLSiteSeguro"), "https") <> 0 And Request.Form() = "" And Request("ambiente") <> "seguro" Then Response.redirect Application("URLSiteSeguro") & "/autentica.asp?ambiente=seguro&" & Request.QueryString() End If '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?lang="&Request("lang")&"&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 IsNumeric(varCEPfrete) Then If varCEPfrete = 0 Then varCEPfrete = "" End If 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%>