SOS Conexion SQLServer 2000 -- URGENTE

Hola
Estoy tratando de hacer uan coneccion a SQL con el sigiente codigo, pero
no funciona
dim con,rec,rec2,strsql,rec3,puntero,con2,puntero2, puntero3, puntero4
'#######################################################################
'Permite conectarse con la base de datos
sub conectar()
set con=server.CreateObject("ADODB.CONNECTION")
con.open "dsn=eloriginal", "sa", ""
end sub

QUe esta mal
me da el error :
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server


Información técnica (para personal de soporte técnico)

a.. Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver]Terminó el tiempo de espera
/eloriginal/coneccion.asp, línea 7