Script para envio de e-mail

Amigos,Eu gerei um script no provedor de hospedagem, só que naum estou conseguindo colocar no meu formulario.http://nosdadanca.erbio.k8.com.br/comunique.htmlAlguém pode dar uma luz.O script é esse. ' Definindo uma variavel auxiliar sch = "http://schemas.microsoft.com/cdo/configuration/" ' Criando o objeto de configuração do CDO Set cdoConfig = Server.CreateObject("CDO.Configuration") ' Definindo as configurações cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1 cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.nosdadanca.com.br" cdoConfig.Fields.Item(sch & "sendusername") = "administracao=nosdadanca.com.br" cdoConfig.Fields.Item(sch & "sendpassword") = "cand2005" cdoConfig.fields.update ' Criando o objeto de msg do CDO Set cdoMessage = Server.CreateObject("CDO.Message") ' Associando as configurações ao obj Mensagem Set cdoMessage.Configuration = cdoConfig ' Definido variaveis da msg cdoMessage.From = "administracao@nosdadanca.com.br" cdoMessage.To = "DESTINATARIO@DominioDestinatario.com" cdoMessage.Subject = "TITULO DO E-MAIL" ' Utilize esta opção caso deseje definir o e-mail de resposta' cdoMessage.ReplyTo = "EMailDeResposta@DominioDeResposta.com" cdoMessage.TextBody = "Escreva aqui o texto do seu e-mail" cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing%>