<%@ Language=VBScript %>
<%'On Error Resume Next
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 mensagem(mens)
Dim msg
msg = msg & ""
msg = msg & ""
msg = msg & "ABC COMPONENTES HIDRÁULICOS LTDA"
msg = msg & "
|
"
msg = msg & ""
msg = msg & mens & " | "
msg = msg & "
"
msg = msg & "Av. Mal Mascarenhas de Morais, 3547 - Imbiribeira
Cep.: 51150-001 Recife - Pernambuco
Tel (0xx81) 3339-1822 - Fax (0xx81) 3339-1460
"
msg = msg & "Site: http://www.abchidraulica.com.br "
msg = msg & "- E-Mail: abc@abchidraulica.com.br"
msg = msg & " | |
"
mensagem = msg
End function
'-----------------------------------------------------------------------------
Function chekmail(email)
email = trim(email) : emtm = len(trim(email)) : emar = InStr(1,trim(email),"@") : empt = InStr(1,trim(email),".")
if email <> "" then
if emtm<9 OR empt=0 OR emar=0 then
a = "F"
else
a = "T"
end if
else
a = "F"
end if
chekmail = a
end function
'-----------------------------------------------------------------------------
Function SLetra(txt,Letra_a_Procurar,Letra_a_Substituir)
dim TextoConvertido, inc, cont
for cont = 1 to len(txt)
inc = mid(txt,cont,1)
if inc = Letra_a_Procurar then inc = Letra_a_Substituir
TextoConvertido = TextoConvertido & inc
next
SLetra = TextoConvertido
end function
'-----------------------------------------------------------------------------
Function send_lista(email,lista,moderador,assunto,host,formato,mensagem,st)
if chekmail(moderador)="F" then
moderador = "adao@gessope.com.br"
else
moderador = moderador & ";adao@gessope.com.br"
end if
Dim operacao
if st = "adicionar" then
operacao = "subscribe"
elseif st = "remover" then
operacao = "unsubscribe"
else
send_lista = "F"
End if
If send_lista <> "F" then
para = lista & "-" & operacao & "-" & Sletra(email,"@","=") & "@" & host
host = "SMTP." & host
send_lista = send_email(moderador,para,host,"","","texto")
If send_lista = "T" then
send_lista = send_email(moderador,email,host,assunto,mensagem,formato)
end if
End if
End Function
'-----------------------------------------------------------------------------
Function send_email(de,para,host,assunto,mensagem,formato)
if formato = "texto" then
formato = 1
elseif formato = "web" then
formato = 0
else
formato = 1
End if
If chekmail(de)="T" And chekmail(para)="T" And len(host)>=9 then
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.From = de
Mailer.Host = host
Mailer.To = para
Mailer.Subject = assunto
Mailer.Bodyformat = formato
Mailer.Body = mensagem
Mailer.Send
send_email = "T"
Else
if chekmail(de)="F" then send_email = send_email & "Nenhum remetente foi informado" & quebra(formato)
if chekmail(para)="F" then send_email = send_email & "Nenhum destinatário foi informado" & quebra(formato)
if len(host)<9 then send_email = send_email & "Host SMTP inválido" & quebra(formato)
End if
End Function
'-----------------------------------------------------------------------------
function quebra(formato)
if formato = 0 then
quebra = "
"
else
quebra = chr(10) & chr(13)
end if
End Function
'-----------------------------------------------------------------------------
Sub Listaf
if chekmail(Request.Form("email"))="T" then
if Request.Form("st") = "adicionar" then
mem = "Sua inscrição na nossa lista "lista@abchidraulica.com.br" foi efetuada com sucesso.
Obrigado!!!
"
elseif Request.Form("st") = "remover" then
mem = "Seu email: " & Request.Form("email") & ", será removido da nossa lista no prazo de 24 horas!!
"
end if
aa = send_lista(Request.Form("email"),"lista","abc@abchidraulica.com.br","Obrigado por assinar a nossa lista!","abchidraulica.com.br","web",mensagem(mem),Request.Form("st"))
if aa = "T" then %>
Dados enviados com sucesso!!
Obrigado!!
<% else %>
Houve um erro, tente mais tarde!!
Obrigado!!
<% end if
else %>
<%
end if
End sub
'----------------------------------------------------------------------------- %><%
Sub Amigo
if chekmail(Request.Form("semail"))="T" AND chekmail(Request.Form("eamigo"))="T" then
dim mem
mem = mem & "Prezado amigo;
Visite o site da ABC Hidráulica www.abchidraulica.com.br
"
mem = mem & "Acho que ele deve ser interesante pra você.
Cordialmente;
--------------------------------------
"
mem = mem & Request.Form("nome") & "
E-mail.: " & Request.Form("semail") & "
"
aa = send_email(Request.Form("semail"),Request.Form("eamigo"),"SMTP.abchidraulica.com.br","Visite o site da ABC Hidráulica",mensagem(mem),"web")
if aa = "T" then %>
Dados enviados com sucesso!!
Obrigado!!
<% else %>
Houve um erro, tente mais tarde!!
Obrigado!!
<% end if
else %>
<% end if
End sub
'-----------------------------------------------------------------------------%>
Untitled Document
Recife, <%=dataf(now())%>.
<% call listaf : call amigo %>
|
| Por:
Adão
Gearles |