<%@ Language=VBScript %>
<%'On Error Resume Next
Dim status, Data
status = ""
Data = dataf(now())
VisitaNumero = application("sessao")
visita = application("visitando")
call check
if len(status)>0 then
call formulario
else
call envia_email("abchidraulica.com.br:25","abc@abchidraulica.com.br",asunto,"abc@abchidraulica.com.br","gearles@ieg.com.br","adao@gessope.com.br",mensagem(),1,0)
call enviado
end if
Sub enviado
Response.Write "
"
Response.Write "Os dados abaixo foram enviados com sucesso
"
If campo("nome")<> "" then Response.Write "Nome: " & campo("nome") & " "
If campo("email")<> "" then Response.Write "E-Mail: " & campo("email") & " "
If campo("fone")<> "" then Response.Write "Fone: " & campo("fone") & " "
If campo("fax")<> "" then Response.Write "Fax: " & campo("fax") & " "
If campo("assunto")<> "" then Response.Write "Assunto: " & campo("assunto") & " "
If campo("mensagem")<> "" then Response.Write "" & "Mensagem: " & campo("mensagem") & ""
Response.Write "
"
End Sub
Function mensagem()
dim msg
If campo("nome")<> "" then msg = msg & "Nome: " & campo("nome") & chr(13)
If campo("email")<> "" then msg = msg & "E-Mail: " & campo("email") & chr(13)
If campo("fone")<> "" then msg = msg & "Fone: " & campo("fone") & chr(13)
If campo("fax")<> "" then msg = msg & "Fax: " & campo("fax") & chr(13)
If campo("assunto")<> "" then msg = msg & "Assunto: " & campo("assunto") & chr(13)
If campo("mensagem")<> "" then msg = msg & "Mensagem------------------------" & chr(13) & campo("mensagem") & chr(13) & "---------------------------------" & chr(13)
mensagem = msg
end function
Function dataf(vardata)
select case weekday(vardata)
case 1 : dias = "Domingo, " : case 2 : dias = "Segunda-feira, " : case 3 : dias = "Terça-feira, "
case 4 : dias = "Quarta-feira, " : case 5 : dias = "Quinta-feira, " : case 6 : dias = "Sexta-feira, " : case 7 : dias = "Sábado, "
end select
dia = day(vardata)
Select Case month(vardata)
case 1 : mes = "Janeiro" : case 2 : mes = "Fevereiro" : case 3 : mes = "Março"
case 4 : mes = "Abril" : case 5 : mes = "Maio" : case 6 : mes = "Junho"
case 7 : mes = "Julho" : case 8 : mes = "Agosto" : case 9 : mes = "Setembro"
case 10 : mes = "Outubro" : case 11 : mes = "Novembro" : case 12 : mes = "Dezembro"
End Select
ano = year(vardata)
dataf = dias & dia & " de " & mes & " de " & ano
end Function
Function envia_email(servidorporta,email,assunto,para1,para2,para3,mensagem,prioridade,retorno)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = servidorporta
JMail.Sender = email
JMail.Subject = assunto
JMail.AddRecipient para1
JMail.AddRecipient para2
JMail.AddRecipient para3
JMail.Body = mensagem
JMail.Priority = prioridade
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'JMail.AppendBodyFromFile "c:\mail\standard_footer.txt"
'JMail.AddAttachment "c:\products\MyProduct.exe"
JMail.LazySend = True '(ONLY add this line if you're having problems)
JMail.Execute
'JMail.Close
'Set JMail = nothing
if retorno <> 0 then Response.Write retorno
'# Fim da rotina que envia a mensagem -----------------
End Function
sub check
if len(campo("nome")) < 3 then : status = status & "Nome: inválido " end if
if len(campo("mensagem")) < 3 then : status = status & "Mensagem: inválida " end if
email = trim(request.form("email")) : emtm = len(trim(email)) : emar = InStr(1,trim(email),"@") : empt = InStr(1,trim(email),".")
if request.form("email")<>"" then
if emtm<9 OR empt=0 then
status = status & "Email: email inválido "
end if
end if
end sub
function campo(cp)
campo = Request.Form(cp)
end Function
%>
Serviço de Mensagem da ABC HIDÁULICA
<%sub formulario%>
<%end sub%>