<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim name, empresa, cidade, estado, telefone, email, message,strAux

name = Request.Form("nome")
empresa = Request.Form("empresa")
cidade = Request.Form("cidade")
estado = Request.Form("estado")
telefone = Request.Form("telefone")
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 Representante Site Kininhas"


'Mail.Body = InstanceName_0

Mail.Body = "Nome:" & name & Chr(13) & Chr(10) & _
			"Empresa:" & empresa  & Chr(13) & Chr(10) & _
			"Cidade:" & cidade & Chr(13) & Chr(10) & _
            "Estado:" & estado & Chr(13) & Chr(10) & _
            "Telefone:" & telefone & Chr(13) & Chr(10) & _
			"E-mail:" & email & Chr(13) & Chr(10) & _
			"Observação:" & InstanceName_0 & Chr(13) & Chr(10)

'Mail.Body = strAux

'"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
%>