Enviar Varios Radio Box

galera estou com o seguinte problema

preciso fazer uma pagina na qual os clientes do meu cliente

iram fazer uma avaliação do site deles enfim

eu fiz uma pequena so para testes..

quem quizer ver acesse www.proarnet.com/avaliacao/form.html

este é o formulario mais tera muito mais radio box enfim...

estou ussando a seguinte programação na AS

stop();
stop();

tel_txt.restrict="0-9-." cep_txt.restrict="0-9-."

//variáveis
var objLV:LoadVars = new LoadVars();
_root.variavel_do_checkBox = "Nao receber Newsletter"
var PaginasEnvio:Array = new Array("enviaMail.php","enviaMailconosco.asp","enviaMailAspmail.asp","enviaMailAspEmail.asp");
//tipo de envio, 1 para php - 2 para asp cdonts - 3 para aspmail - 4 para Persits AspEmail

formaEscolhida = 3;
objLV.onLoad = function(sucess:Boolean) {
	if (sucess) {
 retorno = this.retorno;
	} else {
 retorno = "Erro na comunicação";
	}
	gotoAndPlay(4);
};

Objeto = new Object();
Objeto.click = function() {

if (Estilo_site.selection == radio_mb_sts) {

_root.sts = "Muito Bom";}

if (Estilo_site.selection == radio_b_sts){
_root.sts = "Bom";}

if (Estilo_site.selection == radio_s_sts){
_root.sts = "Satisfatório";}

if (Estilo_site.selection ==radio_r_sts){
_root.sts = "Razoável";}

if (Estilo_site.selection == radio_nb_sts){
_root.sts = "Não é Bom";
}};
radio_mb_sts.addEventListener("click", Objeto);
radio_b_sts.addEventListener("click", Objeto);
radio_s_sts.addEventListener("click", Objeto);
radio_r_sts.addEventListener("click", Objeto);
radio_nb_sts.addEventListener("click", Objeto);

Objeto1 = new Object();
Objeto1.click = function() {

if (Estilo_logo.selection == radio_mb_stl) {

_root.stl = "Muito Bom";}

if (Estilo_logo.selection == radio_b_stl){
_root.stl = "Bom";}

if (Estilo_logo.selection == radio_s_stl){
_root.stl = "Satisfatório";}

if (Estilo_logo.selection ==radio_r_stl){
_root.stl = "Razoável";}

if (Estilo_logo.selection == radio_nb_stl){
_root.stl = "Não é Bom";
}};
radio_mb_stl.addEventListener("click", Objeto1);
radio_b_stl.addEventListener("click", Objeto1);
radio_s_stl.addEventListener("click", Objeto1);
radio_r_stl.addEventListener("click", Objeto1);
radio_nb_stl.addEventListener("click", Objeto1);

Objeto2 = new Object();
Objeto2.click = function() {

if (Navega_site.selection == radio_mb_ns) {

_root.ns = "Muito Bom";}

if (Navega_site.selection == radio_b_ns){
_root.ns = "Bom";}

if (Navega_site.selection == radio_s_ns){
_root.ns = "Satisfatório";}

if (Navega_site.selection ==radio_r_ns){
_root.ns = "Razoável";}

if (Navega_site.selection == radio_nb_ns){
_root.ns = "Não é Bom";
}};
radio_mb_ns.addEventListener("click", Objeto2);
radio_b_ns.addEventListener("click", Objeto2);
radio_s_ns.addEventListener("click", Objeto2);
radio_r_ns.addEventListener("click", Objeto2);
radio_nb_ns.addEventListener("click", Objeto2);

Objeto3 = new Object();
Objeto3.click = function() {

if (Cont_geral.selection == radio_mb_cg) {

_root.cg = "Muito Bom";}

if (Cont_geral.selection == radio_b_cg){
_root.cg = "Bom";}

if (Cont_geral.selection == radio_s_cg){
_root.cg = "Satisfatório";}

if (Cont_geral.selection ==radio_r_cg){
_root.cg = "Razoável";}

if (Cont_geral.selection == radio_nb_cg){
_root.cg = "Não é Bom";
}};
radio_mb_cg.addEventListener("click", Objeto3);
radio_b_cg.addEventListener("click", Objeto3);
radio_s_cg.addEventListener("click", Objeto3);
radio_r_cg.addEventListener("click", Objeto3);
radio_nb_cg.addEventListener("click", Objeto3);

Objeto4 = new Object();
Objeto4.click = function() {

if (Int_usuario.selection == radio_mb_iu) {

_root.iu = "Muito Bom";}

if (Int_usuario.selection == radio_b_iu){
_root.iu = "Bom";}

if (Int_usuario.selection == radio_s_iu){
_root.iu = "Satisfatório";}

if (Int_usuario.selection ==radio_r_iu){
_root.iu = "Razoável";}

if (Int_usuario.selection == radio_nb_iu){
_root.iu = "Não é Bom";
}};
radio_mb_iu.addEventListener("click", Objeto4);
radio_b_iu.addEventListener("click", Objeto4);
radio_s_iu.addEventListener("click", Objeto4);
radio_r_iu.addEventListener("click", Objeto4);
radio_nb_iu.addEventListener("click", Objeto4);

//função de envio de email

function enviaMail() {
	//coloca as variaveis no loadVars
	objLV.sts = sts;
	objVL.stl = stl;
	objVL.ns = ns;
	objVL.cg = cg;
	objVL.iu = iu
	objLV.formNome = formNome;
	objLV.formEndereco = formEndereco;
	objLV.formCep = formCep;
	objLV.formTel = formTel;
	objLV.formCidade = formCidade;
	objLV.formEstado = formEstado;
	objLV.formData = formData;
	objLV.formEmail = formEmail;
	objLV.formauto = estilo_do_site;

 //tira a vírgula do fim
	if (objLV.formInteresses.indexOf(",") == objLV.formInteresses.length) {

	}
	//enviando
	//ASP cdonts
	//objLV.sendAndLoad("enviaMailCdonts.asp",objLV,"POST");
	//asp Aspmail
	//objLV.sendAndLoad("enviaMailAspmail.asp",objLV,"POST");
	//php
	objLV.sendAndLoad("enviaMailAvaliacao.asp",objLV,"POST");
	nextFrame();
}
System.useCodepage=true;
limpar.onRelease = function() {
	formMsg=formEmpr=formNome=formEmail=formAssunto=formTel=formEnd=formCep=for
mCidade=respnom=respmail="";
}

//botão

envia.onRelease = function() {
	enviaMail();
};

Stage.scaleMode = "noScale";

e no ASp

<%@LANGUAGE="VBSCRIPT"%>
<%
'Dim Cdonts
'Componente antigo de e-mail
'set Cdonts = Server.CreateObject("Cdonts.newMail")

'Componente novo de e-mail
'set Cdonts = CreateObject("CDO.Message")
'Cdonts.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Cdonts.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wi-b.com"
'Cdonts.Configuration.Fields.Update
'pegar variaveis
sts =request.Form("sts")
stl =request.Form("stl")
ns =request.Form("ns")
cg =request.Form("cg")
iu =request.Form("iu")

nome=request.Form("formNome")
endereco=request.Form("formEndereco")
cep=request.Form("formCep")
telefone=request.Form("formTel")
cidade=request.Form("formCidade")
estado=request.Form("formEstado")
data=request.Form("formData")
email=request.Form("formEmail")

 mensagem = Replace(mensagem,chr(13),"<br>") 'Trocando o caractere 13 (ENTER) por quebra de linha
 mensagem = Replace(mensagem, vbCrLf, "<BR>") ' Inserindo a quebra de linha
 mensagem = Replace(mensagem, " ", " ")

'digite suas informações aqui
'seuemail="toninho@proar-aviacao.com.br"

' Cdonts.From = nome 'Email de quem envia a mensagem. Neste caso o email digitado no formulario'
' Cdonts.To = seuemail 'Email que vai receber
' Cdonts.Subject = "Compra" 'Assunto
' Cdonts.Bodyformat = 0 'Conteúdo html
' Cdonts.MailFormat = 0 'Conteúdo html
' Cdonts.Body = "Olá, você recebeu um Email de Compra.<br><br>Nome: "&nome&"<br>Telefone: "&Telefone&"<br>Cidade: "&Cidade&"<br>Estado: "&estado&"<br>Email: "&Email&"<br>Pewfixo/ Homologação: "&homo&"<br> Qtd: " &Qtd& "<br> Pn:" &pn

' on error resume next

' Cdonts.Send 'envia a mensagem'

' if err.number <> 0 then
' response.Write("retorno=Erro ao enviar.")
' else
' response.Write("retorno=Enviado com sucesso.")
' end if

'Set Cdonts = Nothing 'finaliza o objeto'

'EXEMPLO GUEST ================================================================================
========================================

Function EnviaMail2(vbody, vToNome, vToEmail, vFromNome, vFromEmail, vAssunto)
Dim objMessage
Dim vResultado
vResultado = 0
Set objMessage = CreateObject("CDO.Message")
'On Error Resume Next
objMessage.Subject = vAssunto
objMessage.From = vFromNome & " <" & vFromEmail & ">"
objMessage.To = vToNome & " <" & vToEmail & ">"
objMessage.HTMLBody = vbody
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server-1.netguestdns.com.br"

	objMessage.Configuration.Fields.Update
	objMessage.Send
	if err.number <> 0 then
 vResultado = 0
	else
 vResultado = 1
	end if
	set objMessage = nothing
	EnviaMail2 = vResultado
 End Function

 'Corpo da Mensagem
 strBody = "Olá, Toninho você recebeu um Email de Avaliação do novo Web Site.""<br><br>Estilo Do Site: "&sts&"<br>Estilo Da Nova Logomarca: "&stl&"<br>Navegabilidade do Site: "&ns&"<br>Conteúdo Geral: "&cg&"<br>Interface com Usuário: "&iu&"<br><br>Nome:"&nome&"<br>Endereço: "&endereco&"<br>CEP: "&cep&"<br>Telefone: "&Telefone&"<br>Cidade: "&Cidade&"<br>Estado: "&estado&"<br>Data: "&data&"<br>Email: "&Email

 'Nome Destinatário
 strToNome = "Toninho"
 'Email Destinatário
 strToEmail = "informativo@proar.aero"

 'Nome do Rementente
 strFromNome = nome
 'Email do Rementente (conta cadastrada no smpt do cliente)
 strFromEmail = email

 'Assunto da mensagem
 strAssunto = "Promoção"

 If EnviaMail2(strBody, strToNome, strToEmail, strFromNome, strFromEmail, strAssunto) = 1 then
	strResultSend = "Sua mensagem foi enviada com sucesso!"
 Else
	strResultSend = "Sua mensagem não foi enviada. Verifique os parâmetros"
 End if

 response.Write strResultSend
 response.End

%>
e no meu email chega assimmm

Olá, Toninho você recebeu um Email de Avaliação do novo Web Site."

Estilo Do Site: Bom
Estilo Da Nova Logomarca:
Navegabilidade do Site:
Conteúdo Geral:
Interface com Usuário:

Nome:teste
Endereço: teste
CEP: 545213213
Telefone: 12313
Cidade: teste
Estado: teste
Data: teste
Email: teste@teste.com

as vezes vem asimmm

Olá, Toninho você recebeu um Email de Avaliação do novo Web Site."

Estilo Do Site: Bom
Estilo Da Nova Logomarca:
Navegabilidade do Site:
Conteúdo Geral:
Interface com Usuário:

Nome:por undefined
Endereço: undefined
CEP: 545213213
Telefone: 12313
Cidade: undefined
Estado: undefined
Data: undefined
Email: undefined

se eu nao preencho tudo nos campos
Grato Leonardo !!!!