Scrip asp y sql server 2005

[breikmaster]

Hola antes que todo espero que esten bien.

miren no se que tengo de malo en este script.

<%
consulta = REQUEST("consulta")
Dim base, rs, sql
set base = server.createobject("ADODB.Connection")
set rs= server.createobject("ADODB.RECORDSET")
base.open "EXAMEN"
sql = "Select * from Atenciones Where (Nro_atencion = "& consulta &" );"
set rs = base.execute(sql)
If rs.EOF then
%>

e configurado e configurado el obdc en el user dsn y el file dsn. pero nada no me conecta nose si esta malo el script. en la pagina me aparece lo siguiente:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/tupa/atenciones3.asp, line 13
porfa ayuda ya que me urge.