no puedo conectarme a mi db
tengo un script en asp que manda los datos de un formulario a una base creada en acces 2000 , ademas me envia un mail de confirmacion. ( el script no da ningun error me manda el mail pero no anexa nada a la bd )
esta base esta en mi servidor web el data source es "provider=Microsoft.Jet.OLEDB.4.0; data
source=d:\accounts\profloperu\db\clientes.mdb"
mi codigo completo es:
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.profloperu.com" ' Specify a valid SMTP server
Mail.From = "[email protected]" ' Specify sender's address
mail.username = "[email protected]"
mail.password = "datadriven20"
Mail.AddAddress "[email protected]", "Alfredo Carrillo Q"
Mail.AddAddress "[email protected]" ' Name is optional
Mail.AddReplyTo "[email protected]"
mailing=CStr( Trim( Request.Form("mailing") ) )
'compongo el cuerpo del mensaje
cuerpo = cuerpo & "Email = " & mailing & vbnewline
cuerpo = cuerpo
'mando el correo...
'indico el cuerpo del mensaje
mail.body = cuerpo
'lo envio
Mail.Subject = "Unete al Grupo"
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=d:\accounts\profloperu\db\clientes.mdb"
SQL="SELECT * FROM Mails"
rs.Open SQL, oConn,1,3
rs.addnew
rs("mails")=request("mailing")
rs.update
rs.close
oConn.close
%>
