<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: envia_fale_conosco.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 08/11/06 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- rodape = "no" %>

	<% msg = "Prezado(a) Administrador, " msg = msg & "Este e-mail foi enviado pelo formulário de contato de sua loja. " FOR EACH count in request.form if request.form.key(count)<>"acao" then msg = msg & "" & request.form.key(count) & ": " &(request.form.item(count)) & " " end if NEXT msg = msg & "IP: " & request.ServerVariables("REMOTE_ADDR") & " " 'chama a função para o envio de e-mail EnviaMail = funcao_mail_html("Formulário de Contato", Application("MailLoja"), msg, 1) 'Checa se o e-mail foi enviado com sucesso If EnviaMail = 0 Then %> <% If Session("logado") <> "" Then %> <% End If %> <%=Application("GblTxtVoltar")%> <%=Application("EnflcTxtTitFaleConosco")%> <%=Application("EnflcTxtObrigado")%> <%=Application("EnflcTxtClique")%> <%=Application("EnflcTxtCliqueCont")%> <% Else Response.Write Application("EnflcTxtFalhaEnvio") End If %>