<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim name, email, message

name = Request.Form("nome")
email = Request.Form("email")
InstanceName_0 = Request.Form("InstanceName_0")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.kininhas.com.br" ' Specify a valid SMTP server
Mail.From = email&"<kininhas@kininhas.com.br>" ' Specify sender's address

Mail.FromName = name ' Specify sender's name
Mail.AddReplyTo email ' Para responder o email
Mail.AddAddress "kininhas@kininhas.com.br"
Mail.Subject = "Contato Site Kininhas"
Mail.Body = InstanceName_0

'"E-mail:" & email  & Chr(13) & Chr(10) & _
'"Nome:" & name & Chr(13) & Chr(10) & _
'"Mensagem:" & message & Chr(13) & Chr(10) 

On Error Resume Next
Mail.Send
Response.Write("&ver=1&")
'If Err <> 0 Then
'	Mensagem = "Erro no envio do cadastro, favor tentar novamente."
'Else
'	Mensagem = "Sua mensagem foi enviada com sucesso!"
'End If
%>