<%@ Language=VBScript %>
<%'On Error Resume Next
Dim status, Data
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("ped_con")<> "" then Response.Write "Dados para: " & campo("ped_con") & " "
If campo("empresa")<> "" then Response.Write "Empresa: " & campo("empresa") & " "
If campo("contato")<> "" then Response.Write "Contato: " & campo("contato") & " "
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("produtos")<> "" then Response.Write "" & campo("produtos") & ""
If campo("responder")<> "" then Response.Write "Desejo resposta atravéis de: " & campo("responder") & ""
If campo("minfo")<> "" then Response.Write "OBS.: " & campo("minfo") & ""
Response.Write "
"
End Sub
Function mensagem()
dim msg
If campo("ped_con")<> "" then msg = msg & "Dados para: " & campo("ped_con") & chr(13)
If campo("empresa")<> "" then msg = msg & "Empresa: " & campo("empresa") & chr(13)
If campo("contato")<> "" then msg = msg & "Contato: " & campo("contato") & 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("produtos")<> "" then msg = msg & "Produto(s)------------------------" & chr(13) & campo("produtos") & chr(13) & "---------------------------------" & chr(13)
If campo("responder")<> "" then msg = msg & "Desejo resposta atravéis de: " & campo("responder") & chr(13) & "---------------------------" & chr(13)
If campo("minfo")<> "" then msg = msg & "OBS.: " & campo("minfo") & 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(request.form("empresa")) < 3 then : status = status & "Empresa: nome inválido " end if
if len(request.form("contato")) < 3 then : status = status & "Contato: nome inválido " 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
if len(request.form("produtos")) < 3 then : status = status & "Produto(s): não informado(s) " end if
end sub
function campo(cp)
campo = Request.Form(cp)
end Function
%>
Pedidos/Consultas - ABC HIDRÁULICA