Tengo una base en una máquina diferente al Web Server y quisiera saber si hay algun error en el siguiente código ya que me salta el "Error al abrir el DSN":
<%
Dim objConnection, rsUser, lsDSN_usu
Dim lsUsu , lsSQL
' DSN de la tabla a usar para logearse
lsDSN_usu = "spocnet"
Set objConnection = Nothing
' Instanciar el objeto Connection
Err.Clear
On Error Resume Next
Set objConnection = Server.CreateObject("ADODB.Connection")
If Err.number <> 0 Then
Response.Write "Error al instanciar el objeto Connection"
Else
' Abrir el DSN de la tabla de Inspecciones
Err.Clear
On Error Resume Next
Conexion.ConnectionString="DSN=spocnet"
objConnection.Open lsDSN_usu
If Err.number <> 0 Then
Response.Write "Error al abrir el DSN"
' Error al abrir el DSN de la tabla de Inspecciones
Else
' Consulta del usuario en la tabla de Usuarios de las Inspecciones
lsSQL = " SELECT fecha " _
& " FROM copias"
Set rsUser = Nothing
' Instanciar el objeto RecordSet
Err.Clear
On Error Resume Next
Set rsUser = Server.CreateObject("ADODB.Recordset")
If Err.number <> 0 Then
Response.Write "Error al instanciar el objeto RecordSet"
Else
' Realizar la consulta
Err.Clear
On Error Resume Next
rsUser.Open lsSQL, objConnection
If Err.number <> 0 Then
Response.Write "Error al disparar la consulta SQL"
Else
Response.Write ""
End if
End If
rsUser.Close
End If
Set rsUser = Nothing
End If
objConnection.Close
Set objConnection = Nothing
%>
