Erro com envio de confirmação de cadastro

[gamefe 0]

Pessoal, montando uma newsletter, gostaria que quando o pessoal cadastrasse, recebesse um e-mail de confimação.

Só que está dando erro no objCDOSYSMail.HtmlBody = "<%objRS('email')%>"

Já tentei arrumar de várias formas mas não estou conseguindo, alguém poderia me ajudar?

 

<%Response.Expires = 0Dim objConn, objRs, strQuery, strConnection, nome, email, senhanome = Request.Form("nome")email = Request.Form("email")senha = Request.Form("senha")Set objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=e:/site/dados/teste.mdb" & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'Insere os dados na tabela abertastrQuery = "INSERT INTO cadastro (nome,email,senha) VALUES ('"&nome&"','"&email&"','"&senha&"')"Set ObjRs = objConn.Execute(strQuery)'cria o objeto para o envio de e-mailSet objCDOSYSMail = Server.CreateObject("CDO.Message")'cria o objeto para configuração do SMTPSet objCDOSYSCon = Server.CreateObject ("CDO.Configuration")'SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"'porta do SMTPobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25'porta do CDOobjCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2objCDOSYSCon.Fields.update'atualiza a configuração do CDOSYS para o envio do e-mailSet objCDOSYSMail.Configuration = objCDOSYSCon'e-mail do remetenteobjCDOSYSMail.From = "gabriel@fmc.org.br"'e-mail do destinatárioobjCDOSYSMail.To = objRS("email")'assunto da mensagemobjCDOSYSMail.Subject = "Teste do CDOSYS"'conteúdo da mensagemobjCDOSYSMail.HtmlBody = "<%objRS('email')%>"'objCDOSYSMail.fields.update'envia o e-mailobjCDOSYSMail.Send'destrói os objetosSet objCDOSYSMail = NothingSet objCDOSYSCon = Nothingresponse.write "E-mail enviado para destinatario@dominio.com.br ..."objConn.closeSet objRs = NothingSet objConn = Nothing%>

Microsoft VBScript compilation error '800a0409'

 

Unterminated string constant

 

/gabriel/teste/insert_into.asp, line 48

 

objCDOSYSMail.HtmlBody = "<%objRS('email')

------------------------------------------------------^

 

Valeu...

[Cesão 1]

o que você quer que seja enviado para a pessoa?

na verdade ali você deveria colocar tipo:

 

'conteúdo da mensagemobjCDOSYSMail.HtmlBody = nome&", o e-mail "&email&" foi cadastrado com sucesso! Sua senha é "&senha& vbCrLf & "Muito Obrigado!"

Ou algo assim:

 

'conteúdo da mensagemobjCDOSYSMail.HtmlBody = "Confirmação de Cadastro! Suas informações de cadastro são:" &vbCrLf&vbCrLf& "Nome: "&nome& vbCrLf & "E-mail: "&email& vbCrLf & "Senha: "&senha& vbCrLf&vbCrLf& "Muito Obrigado!"

Esse vbCrLf serve para dar o Enter <br>... tudo o que for HTML (texto) você coloca entre parênteses... códigos ASP devem vir fora de parênteses.. e qdo for unir os dois use &