<% Dim objCDOMail,Texto on error resume next texto="" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "" texto=texto & "

Nome:	" & Request.querystring("nome") & "
E-Mail:	" & Request.querystring("email") & "
Assunto:	" & Request.querystring("assunto") & "
Mensagem:	" & Request.querystring("mensagem") & "

" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = Request.form.item("CEmail") objCDOMail.To = "gerardotalerico@yahoo.com.ar" objCDOMail.Subject = "Pousada Mariane - Contato" objCDOMail.Body = texto objCDOMail.Importance = 1 objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Send Set objCDOMail = Nothing %>