estes es mi codigo:
<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
%>
<%
Dim MailStatus
'función que envía mail
function EnviaMail()
Dim objNewMail
Dim remitente
' Crear Instancia Cdonts
Set objNewMail = Server.CreateObject("CDO.Message")
remitente = Request.form("requiredemail")
objNewMail.From = remitente
objNewMail.To = "
[email protected]"
objNewMail.Subject = "tema"
' Generar el cuerpo de correo
Dim Body
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
objNewMail.TextBody = Body
objNewMail.Send
' Creamos aviso que llega al usuario:
Set objNewMail2 = Server.CreateObject("CDO.Message")
objNewMail2.From = "
[email protected]"
objNewMail2.To = Request.form("requiredemail")
objNewMail2.Subject = "asunto"
' Generar el cuerpo de correo
objNewMail2.TextBody = Body2
objNewMail2.Send
Response.Redirect("c_fichagracias.htm")
end function
'ejecutamos la funcion
EnviaMail()
%>
en la primera parte recojo los valores del formulario...luego los meto en la Bases de datos...y finalmente genero el cuerpo el mail que me llega con los resultados....todo esto funciona muy bien...
entonces.. en la opcions "h_a" , "h_b" , "h_c" es donde quiero hacer los que necesito...cada una de estas opciones tiene tres alternativas (values)..."bueno", "regular" , "malo" y yo recojo esos valores..entonces..quiero que cuando la persona elija en cualquiera de ellas el valor "malo"..me llegue un mail..pero a una direccion de correo distinta de la que tengo en la funcion CDO. (
[email protected])...
eso es en sintesis...
espero haber sido claro o de lo contrario me preguntas cualquier duda.
desde ya..muchas gracias
Alfredo