Ayuda con error tonto, no puedo conectarme a la bd!

[Julcar]

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:

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!!

[Julcar]

Efectivamente, la respuesta fue tan ovbia:

Primeramente el error daba porque no estaba recibiendo parametro alguno en la funcion DBConnect() lo que hice fue hacerla publica, y llamarla desde selector-class.asp mas unas pequeñas modificaciones y listo!