formulário envio de email no form, não chega no destinatário

[wanderson.PHW 0]

Estou com um probleminha amigos, montei o formulário de contato no meu site, mas não estou recebendo as informações preenchidas no formulário, e o detalhe é que esse mesmo envio eu utilizo em outro site , se alguém puder me ajudar fico muito agradecido, segue os codigos;

 

contato.html

<form id="main-contact-form" name="contact-form" method="post" action="envia.asp">
                                <div class="form-group">
                                    <input type="text" name="nome" class="form-control" placeholder="Nome" required>
                                </div>
                                <div class="form-group">
                                    <input type="email" name="email" class="form-control" placeholder="E-mail" required>
                                </div>
                                <div class="form-group">
                                    <input type="text" name="assunto" class="form-control" placeholder="Assunto" required>
                                </div>
                                <div class="form-group">
                                    <textarea name="mensagem" class="form-control" rows="8" placeholder="Mensagem" required></textarea>
                                </div>
                                <button type="submit" class="btn btn-primary">Enviar Formulário</button>
                            </form>

envia.asp

<%

session("dados_ok") = request.QueryString("sessao")

sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")


'Variaveis
Dim meuservidorsmtp
Dim minhacontaautenticada
Dim minhasenhaparaenvio
Dim emailorigem
Dim emaildestino
Dim email

'Abaixo seguem algumas definicoes de variaveis para o envio de seu formulario. Por favor preencha os campos abaixo.

meuservidorsmtp = "mail.phwinformatica.com.br" ' Informacoes so seu servidor SMTP
minhacontaautenticada = "contato@phwinformatica.com.br" ' conta de e-mail utilizada para enviar
minhasenhaparaenvio = "minha-senha" ' senha da conta de e-mail
emailorigem = "contato@phwinformatica.com.br" ' e-mail que indica de onde partiu a mensagem
'emailorigem = request.Form("email") ' e-mail que indica de onde partiu a mensagem
emaildestino = "wandersomrl@hotmail.com" ' e-mail que vai receber as mensagens do formulario

'Fim da definição manual de parâmetros.

cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1
cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp
cdoConfig.Fields.Item(sch & "smtpserverport") = 587
cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30
cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada
cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig

cdoMessage.BodyPart.Charset = "iso-8859-1"
cdoMessage.From = emailorigem
cdoMessage.To = emaildestino
cdoMessage.Subject = "Cadastro no formulário do site phwinformatica.com.br"
cdoMessage.ReplyTo = Request("email")

strBody = "<h3>Dados do Formulario</h3><h5> <br> <br>" & _
"Nome: "& Request("nome")& "<br><br>" & _
"E-Mail: "& Request("email")& "<br><br>" & _
"Assunto: "& Request("assunto")& "<br><br>" & _
"Mensagem: "& Request("mensagem")& "</h5>"

strBody = strBody & "."
cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing
Set cdoConfig = Nothing

response.Redirect("http://www.phwinformatica.com.br")
%>

[xanburzum 169]

qual erro gerado