<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.5 ' 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("EnflcTxtTitFaleConosco")%>
<%=Application("EnflcTxtObrigado")%>
<%=Application("EnflcTxtClique")%> <%=Application("EnflcTxtCliqueCont")%>
<% Else Response.Write Application("EnflcTxtFalhaEnvio") End If %>