dubis20
13 de Noviembre del 2003

tengo una pagina asp que me envia todos los datos de un formulario y ademas debe ingresar estos datos en una base de datos pero no lo hace soo me envia los datos a mi correo. el codigo que estoy usando es :

<%


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


Mail.AddAddress "[email protected]", "Alfredo Carrillo Q"
Mail.AddAddress "[email protected]" ' Name is optional
Mail.AddReplyTo "[email protected]"

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("dbusuarios.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 se llama clientes.

por favor ayudenme con esto mi
correo es : [email protected]