 |
<%
if request("accept")=1 then
str="select * from centro_courseRegDtls"
rs.open str,conn,1,2
rs.addnew
rs("FechadeInscripción")=date()
rs("NombredeCurso")=request("course1")
rs("FechadeInicio")=request("datein1")
rs("FechadeTérmino")=request("dateout1")
rs("Nombre")=request("Nombre1")
rs("Apellido")=request("Apellido1")
rs("Grupo")=request("Grupo1")
rs("Planta")=request("Planta1")
rs("Puesto")=request("Puesto1")
rs("Título")=request("Título1")
rs("Teléfono")=request("Teléfono1")
rs("Fax")=request("Fax1")
rs("Email")=request("Email1")
rs("userID")=session("userID")
rs("coordinatorID")=request("coordinador")
rs("RazonSocial")=request("social")
if request("coordinador")=0 then
rs("coNombre")=request("co_nombre2")
rs("coApellido")=request("co_apellido2")
rs("coGroupo")=request("co_groupo")
rs("coPlanta")=request("co_planta")
rs("coEmail")=request("co_email")
rs("coTelephono")=request("co_telefono2")
rs("coFax")=request("co_fax2")
end if
rs.update
rs.close
sql="select * from centro_AutoResponderDtls where id=4"
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
end if
response.write(""&strmail&" ")
%>
| | | | |