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

Necesito Ayuda Urgente.

Estas en el tema de Necesito Ayuda Urgente. en el foro de ASP Clásico en Foros del Web. Hola a todos, recurro a esteforo para solicitar ayuda de todos los Masters. Actualmente tengo un formulario que trabaja con ASP que me envía a ...
  #1 (permalink)  
Antiguo 15/08/2003, 11:22
Avatar de @lex  
Fecha de Ingreso: enero-2003
Ubicación: México
Mensajes: 44
Antigüedad: 22 años, 3 meses
Puntos: 0
Necesito Ayuda Urgente.

Hola a todos, recurro a esteforo para solicitar ayuda de todos los Masters. Actualmente tengo un formulario que trabaja con ASP que me envía a una dirección de e-mail los datos ingresados a él. Lo que necesito es saber cómo hacer para que esos datos, además de enviarlos a un e-mail, me los almacene en una base de datos en access.

Muchas gracias por la ayuda que puedan darme.

El código donde se reciben los datos es:

<%
Dim estado, ciudad, nombre, telefono, correo, equipo, modelo, problema
estado = request.form("estado")
ciudad = request.form("ciudad")
nombre = request.form("nombre")
telefono = request.form("telefono")
correo = request.form("correo")
equipo = request.form("equipo")
modelo = request.form("modelo")
problema = request.form("problema")
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = """" & nombre & """" & "<" & correo & ">"
Mail.to = "[email protected]"
Mail.Subject = "Solicitud de Soporte Técnico"
Mail.Body = "Estado: " & estado & vbCrLf &_
"Ciudad: " & ciudad & vbCrLf &_
"Nombre: " & nombre & vbCrLf &_
"Teléfono: " & telefono & vbCrLf &_
"Correo Electrónico: " & correo & vbCrLf &_
"Equipo: " & equipo & vbCrLf &_
"Modelo: " & modelo & vbCrLf &_
"Situación: " & problema &""
On Error Resume Next
Mail.Send
If Err <> 0 Then
mensaje = "Error: " & Err.Description
else
mensaje = "enviado"
End If
Set Mail = Nothing
%>
__________________
@lex
  #2 (permalink)  
Antiguo 15/08/2003, 11:32
Avatar de Bravenap  
Fecha de Ingreso: noviembre-2002
Ubicación: Los Arroyos, El Escorial, Madrid
Mensajes: 2.084
Antigüedad: 22 años, 5 meses
Puntos: 4
Creas tu conexión a la base de datos con un Recordset qeu se llame por ejemplo RS y luego simplemente pones esto:

RS.Addnew
RS("estado") = request.form("estado")
RS("ciudad") = request.form("ciudad")
...
...
RS.Update
__________________
¡¡NO A LA GUERRA!!
Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares!
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 05:56.