<%
if Request.TotalBytes > 0 then
html = "Caro administrador, consta em nosso registro uma nova mensagem
"
for x = 1 to Request.Form.Count
if ucase(Request.Form.Key(x)) <> "S1" AND ucase(Request.Form.Key(x)) <> "S2" then
Html = Html & Request.Form.Key(x) & " : " & Request.Form(x) & " "
end if
next
Html = Html & " " & "Hora :" & Time & " - Data: " & Date()
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.BodyFormat =0
objMail.MailFormat = 0
objMail.To = "contato@artesdasgerais.org"
objMail.From = "mail@artesdasgerais.org"
objMail.Subject = "Mensagem"
objMail.Body = Html
objMail.Send
Response.Redirect "obrigado.htm"
Response.End
end if
%>