<%
			br = chr(13) + chr(10)
	
			Set JMail = Server.CreateObject("JMail.SMTPMail")

			if request.servervariables("remote_addr") = "10.10.1.2" OR request.servervariables("remote_addr") = "127.0.0.1" then
				JMail.ServerAddress = "10.10.1.2"
			else
				JMail.ServerAddress = "smtp.bnu.terra.com.br" '
			end if

			Select Case request("Pais") 
			Case "Brasil"
				Select Case request("Estado")
				Case "AC", "BA", "DF", "GO","MT", "MS", "RO", "TO"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "sidney.ndb@netzsch.com.br"
				Case "AL", "AP", "AM", "CE","MA", "PA", "PB", "PE", "PI", "RN", "RR", "SE"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "nsn@netzsch.com.br"
				Case "ES", "RJ"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "rj.ndb@netzsch.com.br"
				Case "MG"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "mg.ndb@netzsch.com.br"
				Case "PR", "SC"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "filtro.ndb@netzsch.com.br"
				Case "SP"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "filtro.sp.ndb@netzsch.com.br"
				Case "RS"
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "rs.ndb@netzsch.com.br"
				Case else
					'jmail.AddRecipient "adriano@websollo.com.br"
					jmail.AddRecipient "filtro.ndb@netzsch.com.br"
				End Select
			Case "Argentina"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "nar@netzsch.com.ar"
			Case "Bolivia"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "jorvigan@roble.scz.entelnet.bo"
			Case "Equador"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "seidlitz@uio.satnet.net"
			Case "Colombia"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "ncm@netzsch.com"
			Case "Venezuela"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "ortizmejia@cantv.net"
			Case "Peru"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "absycia@terra.com.pe"
			Case "Uruguai"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "dortan@multi.com.uy"
			Case "Chile"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "maquin@cmet.net"
			Case "Paraguai"
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "protecto@rieder.net.py"
			Case else
				'jmail.AddRecipient "adriano@websollo.com.br"
				jmail.AddRecipient "filtro.ndb@netzsch.com.br"
			End Select

			jmail.Sender = request("Email")
			jmail.SenderName = request("Nome")

			Jmail.Silent = true
%>