Buenas.....
El siguiente es un error tonto (dado que sé que la solucion debe ser ovbia) y que no me ha dejado avanzar toda la mañana:
Archivo
selector.asp
Código:
<!-- #include file="inclusiones/items.asp" -->
<!-- #include file="inclusiones/selector-class.asp" -->
<%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Dim oSelector
Set oSelector = New Selector
oSelector.TipoConexion = 1
%>
Archivo
selector-class.asp
Código:
<%
Class Selector
Private oItem
Private tipo_con
Public Property Let TipoConexion(tipo)
tipo_con = tipo
End Property
Private Sub Class_Initialize()
Set oItem = New Items
oItem.ConnType = tipo_con
End Sub
....Resto de metodos...
Private Sub Class_Terminate()
Set oItem = Nothing
End Sub
End Class
%>
Archivo
items.asp
Código:
Class Items
Private oCON
Private oRST
Private oCMD
Private conn_type
Dim sSQL
Public Property Let ConnType(c_type)
conn_type = c_type
End Property
Private Sub Class_Initialize()
Set oCON = Server.CreateObject("ADODB.Connection")
Set oRST = Server.CreateObject("ADODB.Recordset")
Call DBConnect(conn_type)
End Sub
Private Sub DBConnect(value)
Select Case CInt(value)
Case 1
oCON.ConnectionString = "Driver={MySQL ODBC 3.51 Driver}; Server=**.**.**.**; Port=3306; Database=******; User=*******; Password=*******; Option=3;"
Case 2
oCON.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath ("data/*****.mdb") & ";"
End Select
oCON.Open
End Sub
....Resto de Metodos....
Private Sub Class_Terminate()
oCON.Close
Set oCON = nothing
Set oRST = nothing
Set oCMD = nothing
End Sub
End Class
El error que me aparece al entrar a selector.asp es el siguiente:
Cita: Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Administrador de controladores ODBC] No se encuentra el nombre del origen de datos y no se especificó ningún controlador predeterminado
/********/inclusiones/items.asp, línea 27
he ocultado con asteriscos * nombres sensibles de la aplicación.
Por favor imploro vuestra ayuda!!