dale así para ver:
<HTML>
<HEAD>
<TITLE>Insertar.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
nombre=Request.Form("requirednombre")
telefono= Request.Form("requiredtelefono")
acompanante= Request.Form("requiredacompanante")
institucion= Request.Form("requiredinstitucion")
direccion= Request.Form("requireddireccion")
ciudad= Request.Form("requiredciudad")
pais= Request.Form("requiredpais")
email= Request.Form("requiredemail")
distribuidores= Request.Form("distribuidores")
fax= Request.Form("fax")
h_a= Request.Form("h_a")
h_b= Request.Form("h_b")
h_c= Request.Form("h_c")
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("base.mdb")
sSQL="Insert Into Clientes (nombre,telefono,acompanante,institucion,email,dir eccion,ciudad,pais,fax,h_a,h_b,h_c,) values ('" & nombre & "','" & telefono & "','" & acompanante & "','" & institucion & "','" & email & "','" & direccion & "','" & ciudad & "','" & pais & "','" & fax & "','" & h_a & "','" & h_b & "','" & h_c & "',)"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
<%
email_para_malas = "emailmala[arroba]gmail.com"
email_others = "emailothers[arroba]gmail.com"
Body = "A continuación información enviada desde formulario de contacto:" + vbcrlf + vbcrlf
Body = Body + "Nombre completo: " + Request.form("requirednombre") + vbcrlf
Body = Body + "Acompañante: " + Request.form("requiredacompanante") + vbcrlf
Body = Body + "Institución: " + Request.form("requiredinstitucion") + vbcrlf
Body = Body + "Dirección: " + Request.form("requireddireccion") + vbcrlf
Body = Body + "Ciudad: " + Request.form("requiredciudad") + vbcrlf
Body = Body + "E-mail: " + Request.form("requiredemail") + vbcrlf
Body = Body + "País: " + Request.form("requiredpais") + vbcrlf
Body = Body + "Fono: " + Request.form("requiredtelefono") + vbcrlf
Body = Body + "Fax: " + Request.form("fax") + vbcrlf + vbcrlf
Body = Body + "h_a: " + Request.form("h_a") + vbcrlf + vbcrlf
Body = Body + "h_b: " + Request.form("h_b") + vbcrlf + vbcrlf
Body = Body + "h_c: " + Request.form("h_c") + vbcrlf + vbcrlf
if h_c = "malo" then
call SendEmail(email, email_para_malas, "los malos", Body)
else
call SendEmail(email, email_others, "los otros", Body)
end if
sub SendEmail(de, para, asunto, mensaje)
Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail")
MyCDONTSMail2.From = de
MyCDONTSMail2.To = para
MyCDONTSMail2.Subject = asunto
MyCDONTSMail2.BodyFormat = 0
MyCDONTSMail2.MailFormat = 0
MyCDONTSMail2.Body = mensaje
MyCDONTSMail2.Send
set MyCDONTSMail2 = nothing
end sub
Response.Redirect("c_fichagracias.htm")
%>
</body>
</HTML>
</HEAD>
pd. Man. esos h_a, h_b y h_c son radios o checkboxes??
si son radios y tu solo quieres que el usuario o cliente escoja solo una opción (asumo que la tienes así) entonces ponle a los radio un solo nombre.
asi:
Código HTML:
<input name="radiobutton" type="voto" value="bueno"> bueno
<input name="radiobutton" type="voto" value="regular">regular
<input name="radiobutton" type="voto" value="malo"> malo
luego en el asp lo recoges asi:
voto = request.form("voto")
ya ya... te viene el bueno o el regular o el malo....
de otro modo, si son los checkboxes entonces dejalo asi.... pero no tiene sentido....
Mandar resultados de formulario segun..... 
todavia?? 
