Erro com envio de confirmação de cadastro

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...