Onde Está O Erro?

[Ronnie_Quintino]

Ae galera, ajuda ai vai. É o seguinte, eu fiz esse sistema ai que funciona assim.

1 A pessoa preenche o formulario, e quando o formulario é enviado ele faz 2 ações, mandar uma copia pro meu e-mail e a outra gravar no banco de dados.

Mas esta dando 2 erros que eu não sei resolver, são esses aqui:

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "hk"]'

/voce_envia_fale.asp, line 59

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: "<br&gt]'

/voce_envia_fale.asp, line 53

O codigo fonte é esse:

<%

var_dia = Request.form("dia")

var_mes = Request.form("mes")

var_horario = Request.form("horario")

var_localidade = Request.form("localidade")

var_nome = Request.form("nome")

var_endereco = Request.form("endereco")

var_bairro = Request.form("bairro")

var_cidade = Request.form("cidade")

var_estado = Request.form("estado")

var_cep = Request.form("cep")

var_email = Request.form("email")

var_telefone = Request.form("telefone")

var_ddd = Request.form("ddd")

arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set Registros = Server.CreateObject("ADODB.Recordset")

Comando = "Select * from fale"

Registros.Open Comando, Conexao,3,3

Registros.addnew

Registros("data") = date()

Registros("dia") = var_dia

Registros("mes") = var_mes

Registros("horario") = var_horario

Registros("localidade") = var_localidade

Registros("nome") = var_nome

Registros("endereco") = var_endereco

Registros("bairro") = var_bairro

Registros("cidade") = var_cidade

Registros("estado") = var_estado

Registros("cep") = var_cep

Registros("email") = var_email

Registros("telefone") = var_telefone

Registros("ddd") = var_ddd

registros.update

Registros.Close

Conexao.Close

Set Registros = Nothing

Set Conexao = Nothing

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "ronnie@duplacao.com.br"

sNameTo = "Nome do Site"

sText = sText + Request.Form("tv")+"<br>" linha53

sText = sText + Request.Form("internet")+"<br>"

sText = sText + Request.Form("revistas")+"<br>"

sText = sText + Request.Form("indicacoes")+"<br>"

sText = sText + Request.Form("outros")+"<br>"

sText = sText + Request.Form("comentarios")+"<br>"

sText = sText + Request.Form("endereco")+"<br>"

sText = sText + Request.Form("bairro")+"<br>"

sText = sText + Request.Form("cidade")+"<br>"

sText = sText + Request.Form("estado")+"<br>"

sText = sText + Request.Form("idade")+"<br>"

sText = sText + Request.Form("profissao")+"<br>"

sText = sText + Request.Form("cep")+"<br>"

sText = sText + Request.Form("telefone")+"<br>"

sText = sText + Request.Form("ddd")+"<br>"

sText = sText + Request.Form("quero_receber")+"<br>"

sAssunto = Request.Form("nome")

'Cria o objeto

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress= sEmailFrom

Mailer.RemoteHost = "smtphost.nsi.com.br"

Mailer.AddRecipient "Ronnie" , "ronnie@duplacao.com.br"

Mailer.Subject = sAssunto

Mailer.ContentType = "text/html"

Mailer.BodyText = sText

%>

[Decio]

Tem alguns códigos estranhos:

Utilize o & e não o + para concatenar strings:

sText = sText & Request.Form("tv") & "<br>" linha53

A abertura da sua conexão esta assim:

arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

Se você for visualizar a string , ela vai estar assim:

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

Se abriu a conexão foi pura sorte...

Abraços.

[Ronnie_Quintino]

Tem alguns códigos estranhos:

Utilize o & e não o + para concatenar strings:

sText = sText & Request.Form("tv") & "<br>" linha53

A abertura da sua conexão esta assim:

arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

Se você for visualizar a string , ela vai estar assim:

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

Se abriu a conexão foi pura sorte...

Abraços.

Cara, valeu, você me ajudou muito. Só um problema com as correções, não esta dando erro, mas eu não estou recebendo os e-mails, só esta gravando no mdb..Ficou assim:

<%

var_dia = Request.form("dia")

var_mes = Request.form("mes")

var_horario = Request.form("horario")

var_localidade = Request.form("localidade")

var_nome = Request.form("nome")

var_endereco = Request.form("endereco")

var_bairro = Request.form("bairro")

var_cidade = Request.form("cidade")

var_estado = Request.form("estado")

var_cep = Request.form("cep")

var_email = Request.form("email")

var_telefone = Request.form("telefone")

var_ddd = Request.form("ddd")

arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\interlace\www2\db\interlace.mdb"

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set Registros = Server.CreateObject("ADODB.Recordset")

Comando = "Select * from fale"

Registros.Open Comando, Conexao,3,3

Registros.addnew

Registros("data") = date()

Registros("dia") = var_dia

Registros("mes") = var_mes

Registros("horario") = var_horario

Registros("localidade") = var_localidade

Registros("nome") = var_nome

Registros("endereco") = var_endereco

Registros("bairro") = var_bairro

Registros("cidade") = var_cidade

Registros("estado") = var_estado

Registros("cep") = var_cep

Registros("email") = var_email

Registros("telefone") = var_telefone

Registros("ddd") = var_ddd

registros.update

Registros.Close

Conexao.Close

Set Registros = Nothing

Set Conexao = Nothing

Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto

'Pegando os dados digitados nos campos e colocando em variaveis

sNameFrom = Request.Form("nome")

sEmailFrom = Request.Form("email")

sEmailTo = "ronnie@duplacao.com.br"

sNameTo = "Nome do Site"

sText =Request.Form("tv")&"<br>"

sText =Request.Form("internet")&"<br>"

sText =Request.Form("revistas")&"<br>"

sText =Request.Form("indicacoes")&"<br>"

sText =Request.Form("outros")&"<br>"

sText =Request.Form("comentarios")&"<br>"

sText =Request.Form("endereco")&"<br>"

sText =Request.Form("bairro")&"<br>"

sText =Request.Form("cidade")&"<br>"

sText =Request.Form("estado")&"<br>"

sText =Request.Form("idade")&"<br>"

sText =Request.Form("profissao")&"<br>"

sText =Request.Form("cep")&"<br>"

sText =Request.Form("telefone")&"<br>"

sText =Request.Form("ddd")&"<br>"

sText =Request.Form("quero_receber")+"<br>"

sAssunto = Request.Form("nome")

'Cria o objeto

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName = sNameFrom

Mailer.FromAddress= sEmailFrom

Mailer.RemoteHost = "smtphost.nsi.com.br"

Mailer.AddRecipient "Ronnie" , "ronnie@duplacao.com.br"

Mailer.Subject = sAssunto

Mailer.ContentType = "text/html"

Mailer.BodyText = sText

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>Naturallook</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#eaeaea">

<div align="center"><font size="1" face="Arial, Helvetica, sans-serif">Obrigado por acessar nosso site.<br>

Em breve entraremos em contato.</font></div>

</body>

</html>

[Decio]

Acho que falta algo assim:

Mailerl.Body = "<HTML><BODY BGCOLOR=#0000FF>Teste:....</BODY></HTML>"

Mailer.IsHTML = True

Mailer.Send