Informativo Tributário - Edição Especial        

Filial

Telefone 

Porto Alegre

 (51) 3358 0545

São Paulo

(11) 3251 1354

Rio de Janeiro

(21) 2262 6463

Belo Horizonte

(31) 3291 6720

Salvador

(71) 3271 3929

Brasília

(61) 323 8253

 Consulte-nos e saiba mais sobre como estas e outras situações se  aplicam a sua empresa.

Envie a um amigo: <% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim srtToName ' Nome para quem vai Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters Dim strPage Dim objCDONTS2 ' Email object Dim strFromName2 ' From persons' real name Dim srtToName2 ' Nome para quem vai Dim strFromEmail2, strToEmail2 ' Email addresses Dim strSubject2, strBody2 ' Message Dim strThisPage2 ' This page's URL Dim strReferringPage2 ' The referring page's URL Dim bValidInput2 ' A boolean indicating valid parameters Dim strPage2 ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") strThisPage2 = Request.ServerVariables("TITLE_NAME") strReferringPage2 = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request("txtFromName")) strFromEmail = Trim(Request("txtFromEmail")) srtToName = Trim(Request("txtToName")) strToEmail = Trim(Request("txtToEmail")) strSubject = "Informativo Tributário" strBody = Trim(Request("txtMessage")) strFromName2 = Trim(Request("txtFromName")) strFromEmail2 = Trim(Request("txtFromEmail")) srtToName2 = Trim(Request("txtNameAmigo")) strToEmail2 = "corporativo@edisonsiqueira.com.br" strSubject2 = "Informativo Tributário Re-enviado" strBody2 = Trim(Request("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "", 1) = 0 Then strBody = srtBody & "Seu(a) amigo(a) " & strFromName & vbCrLf strBody = strBody & "recebeu o Informativo Tributário n° IV da Édison Freitas de Siqueira Advogados S/S e encaminhou para que você também tenha acesso a seu conteúdo." & vbCrLf strBody = strBody & "Para ler o Informativo Tributário n° IV, basta clicar no link abaixo:" & vbCrLf strBody = strBody & "http://www.edisonsiqueira.com.br/informativo/it_4.asp" & vbCrLf Else strBody = srtBody & "Seu(a) amigo(a) " & strFromName & vbCrLf strBody = strBody & "recebeu o Informativo Tributário n° IV da Édison Freitas de Siqueira Advogados S/S e encaminhou para que você também tenha acesso a seu conteúdo." & vbCrLf strBody = strBody & "Para ler o Informativo Tributário n° IV, basta clicar no link abaixo:" & vbCrLf strBody = strBody & "http://www.edisonsiqueira.com.br/informativo/it_4.asp" & vbCrLf End If End If If strBody2 = "" Then If strReferringPage2 = "" Or InStr(1, strReferringPage2, "", 1) = 0 Then strBody2 = srtBody2 & "O Informativo Tributário foi encaminhado por: " & strFromName & vbCrLf strBody2 = strBody2 & "e-mail: " & strFromEmail & vbCrLf strBody2 = strBody2 & "encaminhou para: " & srtToName & vbCrLf strBody2 = strBody2 & "e-mail: " & strToEmail & vbCrLf Else strBody2 = srtBody2 & "O Informativo Tributário foi encaminhado por: " & strFromName & vbCrLf strBody2 = strBody2 & "e-mail: " & strFromEmail & vbCrLf strBody2 = strBody2 & "encaminhou para: " & srtToName & vbCrLf strBody2 = strBody2 & "e-mail: " & strToEmail & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) bValidInput2 = True bValidInput2 = bValidInput2 And strFromName2 <> "" bValidInput2 = bValidInput2 And IsValidEmail(strFromEmail2) bValidInput2 = bValidInput2 And IsValidEmail(strToEmail2) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing Set objCDONTS2 = Server.CreateObject("CDONTS.NewMail") objCDONTS2.From = strFromName2 & " <" & strFromEmail2 & ">" objCDONTS2.To = strToEmail2 objCDONTS2.Subject = strSubject2 objCDONTS2.Body = strBody2 objCDONTS2.Send Set objCDONTS2 = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "erro" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, srtToName, strToEmail, strBody End If %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, srtToName, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>

* É necessário o preenchimento de todos os campos acima para validar o envio.

<% '

The Message to be sent:

'

Subject: < %= strSubject % >

'

Body: < %= strBody % >

End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>

Esta mensagem está de acordo com o projeto de Lei 6210 de 05 de março de 2002, art. 3º, Incisos I, II, III, IV e parágrafo único, caso não queira continuar recebendo este informativo Clique aqui

www.edisonsiqueira.com.br