<%=Application("SOS_titulo

<% '****************************************************************** ' Suporte Online SuperAsp 1.0 - SuperASP.com.br - Ano 2003 ' Autor: Fabiano Dias - fdmail@ibest.com.br '****************************************************************** ' ' DIREITOS AUTORIAIS DO SUPORTE ONLINE SUPERASP ' ' Você não pode revender este script, alugar, disponibilizar para ' download ou fazer qualquer outro tipo de redistribuição sem a ' nossa autorização. ' ' Este código de programação usa uma técnica de criptografia, que ' identifica sua autoria, ou seja, alterar este código ou revender ' o mesmo sem contatar o autor significa estar infrigindo todas as ' leis de direitos autorais e intelectuais, e como tal passivo de ' todas as aplicações na forma da lei. ' '****************************************************************** Response.Expires=-1000 %> <%=Application("SOS_titulo_janela")%> <% If Request.Form("SOS_usuario") <> "" And Request.Form("SOS_email") <> "" And Request.Form() <> "SOS_assunto" <> "" And Request.Form() <> "SOS_mensagem" Then Response.Cookies("SOS")("usuario") = Request.Form("SOS_usuario") Response.Cookies("SOS")("email") = Request.Form("SOS_email") Response.Cookies("SOS").expires=now+365 strMsg = "" strMsg = strMsg & "" strMsg = strMsg & "" strMsg = strMsg & "" strMsg = strMsg & "" & Application("SOS_titulo") & "

" strMsg = strMsg & "Usuário

" & Trim(Request.Form("SOS_usuario")) & "

" strMsg = strMsg & "Email

" & Trim(Request.Form("SOS_email")) & "

" strMsg = strMsg & "Assunto

" & Trim(Request.Form("SOS_assunto")) & "

" strMsg = strMsg & "Departamento

" & Trim(Request.Form("SOS_departamento")) & "

" strMsg = strMsg & "Mensagem

" & Trim(Request.Form("SOS_mensagem")) & "

" strMsg = strMsg & "" strMsg = strMsg & "" EnviaEmail Application("SOS_servidor"), Application("SOS_componente"), Application("SOS_email_atendimento"), Application("SOS_email_atendimento"), Application("SOS_email_atendimento"), Application("SOS_titulo_email") & " - " & Trim(Request.Form("SOS_departamento")), strMsg %>

<%=Application("SOS_titulo")%>
	MENSAGEM ENVIADA Sua mensagem foi enviada para o nosso suporte Clique aqui para fechar esta janela
SOS - Suporte Online SuperAsp Copyright© 2003 - Todos os direitos reservados

<% Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem) Select Case Componente Case "AspMail" on error resume next Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.FromName = NomeEmail eObjMail.FromAddress = Email eObjMail.RemoteHost = Host eObjMail.AddRecipient "", ParaEmail eObjMail.Subject = Assunto eObjMail.ContentType = "text/html" eObjMail.BodyText = Mensagem eObjMail.SendMail Set eObjMail = nothing Case "AspEmail" on error resume next Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = Host eObjMail.From = Email eObjMail.FromName = NomeEmail eObjMail.AddReplyTo Email eObjMail.AddAddress ParaEmail eObjMail.Subject = Assunto eObjMail.isHTML = true eObjMail.Body = Mensagem eObjMail.Send Set eObjMail = nothing Case "AspQmail" on error resume next Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.QMessage = 1 eObjMail.FromName = NomeEmail eObjMail.FromAddress = Email eObjMail.RemoteHost = Host eObjMail.AddRecipient "", ParaEmail eObjMail.Subject = Assunto eObjMail.BodyText = Mensagem objNewMail.SendMail Set eObjMail = nothing Case "CDONTS" on error resume next Set eObjMail = Server.CreateObject("CDONTS.NewMail") eObjMail.to = ParaEmail eObjMail.from = NomeEmail & "<" & Email & ">" eObjMail.subject = Assunto eObjMail.Importance = 1 eObjMail.BodyFormat = 0 eObjMail.MailFormat = 0 eObjMail.body = Mensagem eObjMail.send Set eObjMail = nothing End Select End Function Else %>

<%=Application("SOS_titulo")%>

EVIAR MENSAGEM PARA O SUPORTE

   Seu nome
   ">
   Email para contato
   ">
   Assunto

   Departamento

   Mensagem

<% End If %>