Mensaje dentro de Acceso y trabajo con datos

Responder 
#1 - 01/02/2014 16:14:12 Reporta abuso | Link Permanente
Sandwich
Usuario no registrado
Cambiar cadena de conexión

Responder Citar
Gracias por leerme:

Tengo una web hecha en ASP, que me tenían alojada en un dominio redireccionado (por aquello que quien la diseño quería tenerla alojada en su hosting) y como la situación económica no me permite pagarles los aurelios mensuales que cobran, me he llevado la web al hosting de Nominalia (donde tengo el dominio original). Tiene una pequeña base de datos en Access para publicar noticias, pero al migrar no funciona. He preguntado a nominalia y me han dicho que tengo que cambiar la cadena de conexión, pero mis intentos (se poco de programación web) han sido infructuosos.

Esta es la original:


< SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==FrontPage Generated - startspan==
Dim FrontPage_UrlVars(1)
'--Project Data Connection
Application("bd_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/db.mdb"
FrontPage_UrlVars(0) = "bd_ConnectionString"
Application("bd_ConnectionTimeout") = 15
Application("bd_CommandTimeout") = 30
Application("bd_CursorLocation") = 3
Application("bd_RuntimeUserName") = ""
Application("bd_RuntimePassword") = ""
'--
Application("FrontPage_UrlVars") = FrontPage_UrlVars
'==FrontPage Generated - endspan==
End Sub


Y me piden quela cadena de conexión la sustituya por la cadena de conexión siguiente:

Set ConnInd = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/fpdb/db.mdb")
ConnInd.Open ConnStr


Yo he intentado ponerla tal cual entre los sub de arriba:

< SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart

        Set ConnInd = Server.CreateObject("ADODB.Connection")
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/fpdb/db.mdb")
        ConnInd.Open ConnStr

End Sub


 pero no hay manera. Sigue dando Error 500.
¿algún alma caritativa podría iluminarme?

Gracias de nuevo
Volver arriba