problemas al conectar con mi db en el servidor

dubis20
13 de Agosto del 2005
problemas para conectarme a mi base de datos en mi servidor web, este servidor no soporta dsn, he intentado porsiacaso tambien hacer un mappath pero nada, nose que puede ser , he hablado con mi proveedor pero me ha dicho que mi script es el que debe estar mal
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 da el error 500 error interno en el servidor, pero eso solo sucede cuando tengo habilitado el on error goto 0
cuando lo quito me manda el mail pero no me anexa nada a la db
)

el codigo no me genera ningun error, el data source que les menciono me la dio mi proveedor (source=d:accountsprofloperudbclientes.mdb")
en esa direccion se encuentra mi db , nose porque no puedo conectarme, intente un mappth que funcione en su servidor y no dio resultado por favor diganme que puedo hacer, mi proveedor de la web me dice que la ruta esta bien pero que mi script es el que esta mal.
el problema es que no tiene ningun dsn . ¡que hago?



esta base esta en mi servidor web el data source es "provider=Microsoft.Jet.OLEDB.4.0; data
source=d:accountsprofloperudbclientes.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:accountsprofloperudbclientes.mdb"

SQL="SELECT * FROM Mails"
rs.Open SQL, oConn,1,3
rs.addnew
rs("mails")=request("mailing")
rs.update
rs.close
oConn.close
%>



ukg_rb
13 de Agosto del 2005
He visto tu problemtica y por lo que veo en la parte que abres la base de satos solo agregas un nuevo registro a la tabla Mails, yo lo hara de la siguiente manera:

<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "provider=Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\accounts\profloperu\db\clientes.mdb;Persist Security Info=False"

vSQL="UPDATE Mails SET Mails = \'" & Request.Form("mailing") & "\';"

oConn.Execute (vSQL)
oConn.close
%>

Espero y te sea de ayuda.

ukg_rb
13 de Agosto del 2005
Correccin, espero y nuevamente no le ponga caracteres que no van.

<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "provider=Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\accounts\profloperu\db\clientes.mdb;Persist Security Info=False"

vSQL="UPDATE Mails SET Mails = '" & Request.Form("mailing") & "';"

oConn.Execute (vSQL)
oConn.close
%>

Saludos...