Does oracle8i personal work with IIS

I have oracle 8i personal installed in windows xp I installed the IIS and update it form Microsoft When I want to connect ASP to oracle I got a error message Different ones
Please see this config and till me if it is right or what I use a user name in oracle as : system and password : manager name of my computer xp-1-2-3 the data name is John

 I have a table called mountain and I want to get info form it  

Here what I did in the ASP "just the script" <%

   Dim adOpenForwardOnly, adLockReadOnly, adCmdTable, adCmdText

   adOpenForwardOnly=0

   adLockReadOnly=1

   adCmdTable=2

   adCmdText=0

   Dim objConn, objRS, qstring

   Set objConn = Server.CreateObject("ADODB.Connection")

   Set objRS = Server.CreateObject("ADODB.Recordset")

   objConn.Open "Provider=MSDAORA.1;User ID=system;Password=manager;Data Source=John"

   qstring="Select * from mountain order by name"

   objRS.open qstring, objConn, adOpenForwardOnly, adLockReadOnly, AdCmdText

   While not objrs.EOF

      response.write "<TR>" & chr(13)

      response.write " <TD align=middle>" & objRS("name") & "</TD>" & chr(13)

      response.write " <TD align=middle>" & objRS("height_ft") & "</TD>" & chr(13)

      response.write " <TD align=middle>" & objRS("location") & "</TD>" & chr(13)

      response.write "</TR>" & chr(13)

      objrs.movenext

   Wend

   ObjRs.close

   objConn.close

   Set objrs = Nothing

   Set objConn = Nothing

%>

Here is the tnsnames.ora

# TNSNAMES.ORA Network Configuration File: C:\oracle\ora81\network\admin\tnsnames.ora # Generated by Oracle configuration tools.

JOHN =
  (DESCRIPTION =
    (ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = xp-1-2-3)(PORT = 1521))
    )
    (CONNECT_DATA =
(SERVICE_NAME = JOHN)

    )
  )

INST1_HTTP =
  (DESCRIPTION =
    (ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = xp-1-2-3)(PORT = 1521))
    )
    (CONNECT_DATA =
(SERVER = SHARED)
(SERVICE_NAME = JOHN)
(PRESENTATION = http://admin)

    )
  )

EXTPROC_CONNECTION_DATA =
  (DESCRIPTION =
    (ADDRESS_LIST =
(ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))
    )
    (CONNECT_DATA =
(SID = PLSExtProc)
(PRESENTATION = RO)

    )
  )

please help me if u know Received on Fri May 31 2002 - 18:05:48 CEST