<%@ LANGUAGE="VBSCRIPT" %> <% nome = Request("nome") email = Request("email") ddd = Request("ddd") telefone = Request("telefone") sexo = Request("sexo") musica = Request("musica") Dim BodyText VB_CR_LF = chr(13) + chr(10) BodyText = "" BodyText = BodyText & "

Nome: " + nome + VB_CR_LF BodyText = BodyText & "

E-mail: " + email + VB_CR_LF BodyText = BodyText & "

Telefone: " + ddd + " - " + telefone + VB_CR_LF BodyText = BodyText & "

Sexo: " + sexo + VB_CR_LF BodyText = BodyText & "

Musica: " + musica + VB_CR_LF Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtphost.ns1.com.br" Mail.From = email Mail.FromName = nome Mail.AddAddress "seu@mail.com", "seunome" Mail.IsHTML = True Mail.Subject = "Titulo - Contato pelo site" Mail.Body = BodyText Mail.Send Response.Write("&finish=ok") SET mail = nothing %>