<%Response.charset="utf-8" 'resgatando os campos do formulário nome = Request.Form("nome") email = Request.Form("email") ddd = Request.Form("ddd") tel = Request.Form("tel") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") 'e-mail a ser enviado para: mailto = "sanper@sanperseguros.com.br" 'tags de negrito, b abre e fb fecha b = "" fb = "" 'tabela para evitar texto longo, quebra de linha tabela = "

" fechatabela = "

" 'Corpo do e-mail message = "

 " & VbCrLf
		
		
		
        message = message & b & "Nome: " & fb & VbCrLf 
		message = message & nome & VbCrLf & VbCrLf
		
		message = message & b & "Email: " & fb & VbCrLf 
		message = message & email & VbCrLf & VbCrLf
		
		message = message & b & "Telefone: " & fb & VbCrLf
		message = message & ddd & " - " & tel & VbCrLf & VbCrLf
		
		message = message & b & "Mensagem: " & fb & VbCrLf
	    message = message & tabela & mensagem & fechatabela & VbCrLf
		
		
		
		message = message & "

" 'fala que mail é o mecanismo de envio Set mail = Server.CreateObject("Persits.MailSender") mail.Host = "localhost" mail.Subject = assunto mail.From = email mail.AddAddress mailto mail.Body = message mail.IsHTML = True mail.Send Set mail = Nothing 'depois que leu tudo, o navegador redireciona pra obrigado.asp, falando que o remetente é o conteúdo da caixa nome Response.redirect "obrigado.asp?remetente=" & nome %>