No me corre los archivos asp

[Leonardo A. Sanchez]

Hola, bueno el error que tengo es que coloque unas paginas que desarrolle en una maquina con win98 y pws en un servidor con win2k server y iis 5; pero no me corre codigo como este

<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObje ct")
HitsFile = Server.MapPath("\hits.txt")
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
Hits = Trim(InStream.ReadLine)
Response.Write Hits
%>

Y en otra pagina donde acceso una base de datos access me sale este 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)

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] El motor de base de datos Microsoft Jet no puede abrir el archivo '(desconocido)'. Está abierto en modo exclusivo por otro usuario o bien necesita permiso para ver sus datos.
/helpdesk/listadoreporte.asp, line 12

El codigo de la linea 12 en cuestion es este

<%
set rsConsulta = Server.CreateObject("ADODB.Recordset")
rsConsulta.ActiveConnection = MM_cnConsulta_STRING (Esta es la linea 12.)
rsConsulta.Source = "SELECT calls.CALLNUMBER, STATUS, calls.CLIENTID, OPENEDTIME, CLOSEDTIME, SUBJECT, TOPIC, calls.LASTNAME, calls.FIRSTNAME, DEPARTMENT, XTENSION, ADDRESS, calls.MAILID, DESCRIPTIO, RESOLUTION, CALLCUST1, Cust6, Cust7, password.FIRSTNAME as nameing, password.LASTNAME as apeing, calls.CLIENTID FROM CALLS, CALLSX, password WHERE (calls.CALLNUMBER = " + Replace(rsConsulta__MMColParam, "'", "''") + ") AND (calls.CALLNUMBER = callsx.CALLNUMBER) AND (LOGONID = ANALYST)"
rsConsulta.CursorType = 0
rsConsulta.CursorLocation = 2
rsConsulta.LockType = 1
rsConsulta.Open()
rsConsulta_numRows = 0
%>

Lo curioso es que en win 98 si funciona, tal cual esta.