envio de formulario flash +php/asp/cdonts/aspsmail/aspmail

Baixei um exemplo no site do Weverton que é o ideal para mim , mas como todo iniciante (eu acho que todos ) tem dificuldade na hora do formulario , gostaria de uma ajuda , meu servidor é o kinghost e assinei o plano asp , mas nao consigo enviar nem a pau .

esta dando uma mensagem ( UNDEFINED), sera que alguem poderia me ajudar , por favor !

Os codigos que estou modificando sao esses .

<%

'Envio de email Flash + Linguagens

'Desenvolvido por Weverton Naves (tom.naves@gmail.com) (http://wevertonn.wordpress.com)

'Scripts web sem autoria de Weverton Naves

'Flash com autoria de Weverton Naves

Dim Aspmail

set Aspmail = Server.CreateObject("SMTPsvg.Mailer")

'pegar variaveis

nome=request.Form("formNome")

email=request.Form("formEmail")

assunto=request.Form("formAssunto")

sexo=request.Form("formSexo")

interesses=request.Form("formInteresses")

news=request.Form("formNews")

mensagem=request.Form("formMsg")

'suas informaÁıes aqui

seunome="Renato"

seuemail="meuemail@hotmail.com"

Aspmail.RemoteHost = "smtp.web.kinghost.net"

Aspmail.FromName = nome 'Nome de quem envia

Aspmail.FromAddress = email 'Email de quem envia

Aspmail.AddRecipient seunome, meuemail@hotmail.com 'Email que vai receber

Aspmail.Subject = assunto 'Assunto

 Aspmail.BodyText = "Ol·, vocÍ recebeu uma mensagem do flash.<br>Nome: "&nome&"<br>Email: "&Email&"<br>Sexo :"&sexo&"<br>Assunto: "&Assunto&"<br>Interesses: "&Interesses&"<br>Newsletter: "&news&"<br> Mensagem: "&mensagem

 

 

 If Aspmail.SendMail Then

 response.Write("retorno=Enviado com sucesso.")

 Else

 response.Write("retorno=Erro ao enviar.")

 End If

 

 

 

 Set Aspmail = Nothing 'finaliza o objeto'

%>

e no flash

estou alterando assim

stop();

//variáveis

var objLV:LoadVars = new LoadVars();

var PaginasEnvio:Array = new Array("enviaMail.php","enviaMailCdonts.asp","enviaMailAspmail.asp","enviaMailAspEmail.asp","enviaMailCDOSYS.asp");

//tipo de envio, 1 para php - 2 para asp cdonts - 3 para aspmail - 4 para Persits AspEmail - 5 para Asp CDOSYS

formaEscolhida = 3;

objLV.onLoad = function(sucess:Boolean) {

	if (sucess) {

 retorno = this.retorno;

	} else {

 retorno = "Erro na comunicação";

	}

	gotoAndStop(4);

};

//função de envio de email

function enviaMail() {

	//coloca as variaveis no loadVars

	objLV.formMsg = formMsg;

	objLV.formNome = formNome;

	objLV.formEmail = formEmail;

	objLV.formAssunto = formAssunto;

	//newsletter, radiobutton

	objLV.formNews = formNews.selectedData;

	//sexo, combobox

	objLV.formSexo = formSexo.getItemAt(formSexo.selectedIndex).label;

	//interesses, checkbox

	objLV.formInteresses = "";

	if (form_s_artes.selected) {

 objLV.formInteresses += "artes,";

	}

	if (form_s_design.selected) {

 objLV.formInteresses += "design,";

	}

	if (form_s_actionscript.selected) {

 objLV.formInteresses += "actionscript,";

	}

	if (form_s_air.selected) {

 objLV.formInteresses += "air,";

	}

	if (form_s_flex.selected) {

 objLV.formInteresses += "flex,";

	}

	//tira a vírgula do fim

	if (objLV.formInteresses.indexOf(",") == objLV.formInteresses.length) {

 trace("tem virgula no fim");

	}

	//enviando

	//ASP cdonts

	//objLV.sendAndLoad("enviaMailCdonts.asp",objLV,"POST");

	//asp Aspmail

	//objLV.sendAndLoad("enviaMailAspmail.asp",objLV,"POST");

	//php

	objLV.sendAndLoad("enviaMailAspmail.asp",objLV,"POST");

	nextFrame();

}

//botão

envia.onRelease = function() {

	enviaMail();

};