Foros del Web » Programando para Internet » ASP Clásico »

envio de email a hacer click en button en asp

Estas en el tema de envio de email a hacer click en button en asp en el foro de ASP Clásico en Foros del Web. hola a todos gracias a todos por sus respuestas mi pregunta: tengo un formulario en donde busco por un codigo especifico el cual me trae ...
  #1 (permalink)  
Antiguo 12/07/2011, 12:20
 
Fecha de Ingreso: junio-2010
Mensajes: 132
Antigüedad: 13 años, 10 meses
Puntos: 2
envio de email a hacer click en button en asp

hola a todos gracias a todos por sus respuestas
mi pregunta:
tengo un formulario en donde busco por un codigo especifico el cual me trae los datos y puedo modificarlos como puedo lograr que al momento que la persona hiso click en el boton modificar este mande un correo a una persona indicandole que se modifico tal registro en asp
  #2 (permalink)  
Antiguo 19/08/2011, 14:35
 
Fecha de Ingreso: febrero-2010
Ubicación: Santiago de chile
Mensajes: 14
Antigüedad: 14 años, 2 meses
Puntos: 1
Respuesta: envio de email a hacer click en button en asp

yo tengo algo similar que al momento de dar editar en mi grilla se envía un mail a la persona que se le agrego un reporte. te explico

en el html tengo esto

Código HTML:
Ver original
  1. <input name="cb_grabar" type="submit" class="btn" id="cb_grabar" value="Grabar"  align="right" size="60" >


luego que se realiza el submit

Código ASP:
Ver original
  1. function enviar_mail(nticket)
  2. On error resume next
  3.         dim para
  4.         dim de
  5.         dim asunto
  6.         dim cuerpo
  7.         de = "[email protected]"
  8.         asunto = "XXXX"
  9.         para = ""
  10.         cuerpo = "XXXXXXXXXX"
  11.         set conexion=server.createobject("ADODB.Connection")
  12.         conexion.open = strconexion
  13.         set rs=server.createobject("ADODB.Recordset")
  14.     sql = "SELECT campo FROM dbo.tabla WHERE campo2 = "&request.Form("id_usuario") & "
  15.         rs.Open sql,conexion
  16.         if not rs.eof and not rs.bof then
  17.         para =  rs("EMAIL")
  18.  
  19.         Set oMail = Server.CreateObject("CDO.Message")
  20.         oMail.From = de
  21.         oMail.To = para
  22.         oMail.Subject= asunto
  23.         oMail.TextBody = cuerpo
  24.         oMail.Send
  25.         Set oMail = Nothing
  26.  
  27.         enviar_mail= "ok"
  28.         end if
  29.        
  30. If err.number <> 0 Then
  31. strmsg = "Error Interno cod:800"
  32. end if


espero te sirva saludos desde chile
  #3 (permalink)  
Antiguo 24/08/2011, 10:22
 
Fecha de Ingreso: junio-2010
Mensajes: 132
Antigüedad: 13 años, 10 meses
Puntos: 2
Respuesta: envio de email a hacer click en button en asp

voy a probar y te cuenta gracias por la respuesta

Etiquetas: asp, email, envio
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:42.