<%
if request("info")= "update" then
if request("accept")=0 then
response.write("El formulario de registro no se envió ")
else
sql="SELECT * FROM centro_insightreg "
rs.open sql,conn,1,2
rs.addnew
rs("fetcha")=request("date")
rs("areaDelCurso")=request("curso")
rs("nombre")=request("programma")
rs("instructor")=request("instructor")
rs("fetchaInicio")=request("fechaInicio")
rs("fetchaTermino")=request("fechatermino")
rs("horario")=request("horario")
rs("deParticipants")=request("departcipants")
rs("nivel")=request("nivel")
rs("enviarmaterial")=request("enviarMaterial")
rs("LugardonDe")=request("lugardonde")
rs("lugarTelephono")=request("lugarTelephone")
rs("lugardirection")=request("lugardirección")
rs("hoteldonde")=request("hoteldonde")
rs("hotelTelephono")=request("hotelTelephone")
rs("hotelDireccion")=request("hoteldireccion")
rs("duracion")=request("duracion")
rs("costoporInstruction")=request("costopor")
rs("deManuals")=request("demanulas")
rs("costoUnitario")=request("costoUnitario")
rs("costoporMaterials")=request("costoporMaterials")
rs("gastodeenvio")=request("gastodeEnvio")
rs("delInstructor")=request("delInstructor")
rs("avion")=request("avion")
rs("coordinatorID")=request("coordinador")
rs("rozonSocial")=request("enterprise")
rs("userid")=session("userid")
if request("coordinador")=0 then
rs("coNombre")=request("co_nombre2")
rs("coApellido")=request("co_apellido2")
rs("coPhone")=request("co_telefono2")
rs("cofax")=request("co_fax2")
end if
rs.update
rs.close
sql="select * from centro_AutoResponderDtls where id=5"
rs.open sql,conn,1,2
strtmail =rs(1)
strSub =rs(2)
strmail=rs(3)
rs.close
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From= strEmail
objMail.To=request("Email1")
objMail.Subject=strSub
objMail.Body=strmail
objMail.Send
Set objMail = nothing
response.Write(""&strmail&" ")
end if
end if
%>
|