Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 insetar datos en mi base de datos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
dubis20
Starting Member

Peru
21 Posts
Mensajes - 13 Nov 2003 :  20:54:51  Ver Perfil  Enviar Email  Visit dubis20's Homepage
tengo una pagia asp que me manda los datos de un formulario a mi mail y ademas insera estos datos en una base en access la pagina no me da ningun error. me envia el mail con todos los datos pero no me inserta nada en la base de datos.
El codigo que uso es:

<%


Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.terra.com.pe" ' Specify a valid SMTP server
Mail.From = "carrinat@terra.com.pe" ' Specify sender's address


Mail.AddAddress "profloperu2000@terra.com.pe", "Alfredo Carrillo Q"
Mail.AddAddress "dubis20@hotmail.com" ' Name is optional
Mail.AddReplyTo "dubis20@yahoo.com"

email = request.form("mailing")
nombre = request.form("firstname")
Apellido = request.form("Apellido")
Compania = request.form("Compania")
Direccion1 = request.form("Direccion1")
Direccion2 = request.form("Direccion2")
Pais = request.form("Pais")
Telefono = request.form("Telefono")
Fax = request.form("Fax")
Otros = request.form("Otros")
Email = request.form("Email")
comments = request.form("comments")


'compongo el cuerpo del mensaje
cuerpo = cuerpo & "Nombre = " & nombre & vbnewline
cuerpo = cuerpo & "Apellido = " & Apellido & vbnewline
cuerpo = cuerpo & "compania = " & compania & vbnewline
cuerpo = cuerpo & "Direccion1 = " & Direccion1 & vbnewline
cuerpo = cuerpo & "Direccion2 = " & Direccion2 & vbnewline
cuerpo = cuerpo & "Pais = " & Pais & vbnewline
cuerpo = cuerpo & "Telefono = " & Telefono & vbnewline
cuerpo = cuerpo & "Fax = " & Fax & vbnewline
cuerpo = cuerpo & "Otros = " & Otros & vbnewline
cuerpo = cuerpo & "Email = " & Email & vbnewline

cuerpo = cuerpo
'mando el correo...
'indico el cuerpo del mensaje
mail.body = cuerpo


'lo envio


Mail.Subject = "base de pagina web"

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>

<%
'definimos la variable de conexion
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
'conectamos a la base de datos mediante OLE ODBC dando el Driver
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("db\usuarios.mdb")
'definimos la variable de carga de datos
Dim Temp
'buscamos los datos
Temp="Select * From clientes Where UCase(Nombre)='" & UCase(Request("firstname")) & "' And UCase(Apellido)='" & UCase(Request("Apellido")) & "' And UCase(Compania)='" & UCase(Request("compania")) & "' And UCase(Direccion1)='" & UCase(Request("Direccion1")) & "' And UCase(Direccion2)='" & UCase(Request("Direccion2")) & "' And UCase(Pais)='" & UCase(Request("Pais"))& "' And UCase(Telefono)='" & UCase(Request("Telefono")) & "' And UCase(Fax)='" & UCase(Request("Fax")) & "' And UCase(Email)='" & UCase(Request("Email")) &"'"
Tabla.Open Temp,Conexion,2,3,1
'si no se repiten agregamos los datos a nuestra base de datos
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("Nombre") = Request("firstname")
Tabla("Apellido") = Request("Apellido")
Tabla("Compania") = Request("Compania")
Tabla("Direccion1") = Request("Direccion1")
Tabla("Direccion2") = Request("Direccion2")
Tabla("Pais") = Request("Pais")
Tabla("Telefono") = Request("Telefono")
Tabla("Fax") = Request("Fax")
Tabla("Email") = Request("Email")


Tabla.Update
'fin del Script
%>

<%
'si el campo ya existe para no hacer dobles nos da este mensaje
Else
Response.Redirect ("contactenos.htm")
End If
'cerramos la conexion
Tabla.Close
Conexion.Close
%>

mi base de datos se llama usuarios y mi tabla clientes

mi mail es profloperu2000@terra.com.pe

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar