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

hola a todos ayuda plizzz

Estas en el tema de hola a todos ayuda plizzz en el foro de ASP Clásico en Foros del Web. hola estoy trabajando con sistema asp y access en el cual tengo un formulario q es una orden de trabajo cuando este formulario se llena ...
  #1 (permalink)  
Antiguo 24/10/2006, 20:06
 
Fecha de Ingreso: octubre-2006
Mensajes: 2
Antigüedad: 17 años, 7 meses
Puntos: 0
Sonrisa hola a todos ayuda plizzz

hola estoy trabajando con sistema asp y access en el cual tengo un formulario q es una orden de trabajo cuando este formulario se llena con los datos pertinentes al hacer clip en el boton enviar se guardan los datos en la base de datos pero tambien se tiene q mandar un mail a unos correos fijos y eso no se como hacerlo eso se deben mandar automaticamente al enviar los datos del formulario claro esta q se deven enviar ciertos datos de los ingresados porfa

alguien me puede ayudar se lkos agrdeceria mucho gracias


negro
  #2 (permalink)  
Antiguo 25/10/2006, 03:47
Avatar de sagutxo  
Fecha de Ingreso: octubre-2006
Mensajes: 78
Antigüedad: 17 años, 8 meses
Puntos: 0
Desacuerdo

Salu, es muy sencillo, akí te dejo el código. Tengo un documento de ayuda en PDF dame un dir de emilio y te mando si te hace falta, es que pesa 80k y dudo que esto lo admita.

Código:
<%
Dim Mail
		
'Creamos el objeto
Set Mail = Server.CreateObject("Persits.MailSender")
		
Mail.Host = "TU SMTP"
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.

' esto se usa cuando tu servidor SMTP requiere autentificación
Mail.Username = "User" 
Mail.Password = "Pass"

Mail.From = "DIR MAIL" ' Quien manda
Mail.FromName = "Nombre" ' Quien manda

'Mail y nombre de a quien le llega
Mail.AddAddress "E-mail", "ValNombre"

Mail.Subject = "Mensaje de que puede ir el correo"
Mail.Body = "Akí va el mensaje"
		
On Error Resume Next
Mail.Send

'Mail.Send  Mail.SendToQueue si son mas de 1 correo
		
   If Err <> 0 Then
   'Response.Write "An error occurred: " & Err.Description
   Response.Write "Ocurrió el siguiente error: " & Err.Description
   else
   %>
      <script type="text/JavaScript">
      <!--
      alert("En breves momentos le llegará confirmación a su dirección de correo");
      window.history.go(-1); // esto te regresa a la pag anterio así que si la has abierto en _blank tendrás que quitar la line o sustituirla por Window.Close();
      //-->		
      </script>
   <%
   End If
		
set Mail=Nothing
%>

Última edición por sagutxo; 25/10/2006 a las 03:53
  #3 (permalink)  
Antiguo 01/11/2006, 16:45
Avatar de allhen  
Fecha de Ingreso: septiembre-2005
Mensajes: 243
Antigüedad: 18 años, 8 meses
Puntos: 1
coloca todos los datos q pasaras

y te lo hago !!!
__________________
En esta vida todo es posible ... excepto vencer a la muerte .
  #4 (permalink)  
Antiguo 09/11/2006, 19:37
 
Fecha de Ingreso: octubre-2006
Mensajes: 2
Antigüedad: 17 años, 7 meses
Puntos: 0
<%
Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "DRIVER={Microsoft Access DRIVER (*.mdb)}; DBQ=" & Server.MapPath("sanclemente.mdb")
sqltext = "SELECT * FROM ingresar_ot"
rst.Open sqltext,cnn,3,3

'n_ot=Request.form("n_ot")
fecha_ingreso=Request.form("fecha_ingreso")
rut_cliente=Request.form("rut")
dv_cliente=Request.form("dv")
fecha_cierre=Request.form("fecha_cierre")
nombres=Request.form("nombres")
apellidos=Request.form("apellidos")
Correo=Request.form("correo")
telefono=Request.form("telefono")
Cargo=Request.form("cargo")
recurso_asignado=Request.form("recurso_asignado")
estado_ot=Request.form("estado_ot")
departamento=Request.form("departamento")
anexo=Request.form("anexo")
descripcion_problema=Request.form("descripcion_pro blema")
prioridad=Request.form("prioridad")

if fecha_ingreso = "" or rut_cliente ="" or dv_cliente ="" or fecha_cierre ="" or nombres="" or apellidos="" or correo="" or telefono="" or cargo="" or recurso_asignado="" or estado_ot="" or departamento="" or anexo="" or descripcion_problema="" or prioridad="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End

end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("fecha_ingreso") = fecha_ingreso
rst("rut_cliente") = rut_cliente
rst("dv_cliente") = dv_cliente
rst("fecha_cierre")=fecha_cierre
rst("nombres")=nombres
rst("apellidos")=apellidos
rst("Correo")=Correo
rst("telefono")=telefono
rst("Cargo")=Cargo
rst("recurso_asignado")=recurso_asignado
rst("estado_ot")=estado_ot
rst("departamento")=departamento
rst("anexo")=anexo
rst("descripcion_problema")=descripcion_problema
rst("prioridad")=prioridad
rst.update
'Terminamos e imprimimos un mensaje
Response.Write "Los Datos Fueron Guardados Con Exito"

%>

hola estos son los datos q guardo en la base de dato
ahora al momento de enviar los datos a la base debe mandarse un mail automaticamente
a unos correos fijos ej: basti_:[email protected]
[email protected]
y deven enviarle todos los datos q se guardan en la base de datos a esos correos
no se si se entiene

porfa si me lo puedes ahcer garacias
ayuada plizzzzzzzzzzzzz
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 22:51.