connect ASP to personal oracle 8i 'help'

ماقبل الاتاتشمنت هذي تحت

اقتباس

<%

  Dim adOpenForwardOnly, adLockReadOnly, adCmdTable, adCmdText

  adOpenForwardOnly=0

  adLockReadOnly=1

  adCmdTable=2

  adCmdText=0

  Dim objConn, objRS, qstring

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

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

  objConn.Open "Provider=MSDAORA.1;User ID=system;Password=manager;Data Source=xp-1-2-3"

  qstring="Select * from mountain order by name"

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

  While not objrs.EOF

     response.write "

" & chr(13)

     response.write "  

" & objRS("name") & "" & chr(13)

     response.write "  

" & objRS("height_ft") & "" & chr(13)

     response.write "  

" & objRS("location") & "" & chr(13)

     response.write "

" & chr(13)

     objrs.movenext

  Wend

  ObjRs.close

  objConn.close

  Set objrs = Nothing

  Set objConn = Nothing

%>

اقتباس

# TNSNAMES.ORA Network Configuration File: C:oracleora81networkadmintnsnames.ora

# Generated by Oracle configuration tools.

SAAD =

 (DESCRIPTION =

   (ADDRESS_LIST =

     (ADDRESS = (PROTOCOL = TCP)(HOST = xp-1-2-3)(PORT = 1521))

   )

   (CONNECT_DATA =

     (SERVICE_NAME = saad)

   )

 )

INST1_HTTP =

 (DESCRIPTION =

   (ADDRESS_LIST =

     (ADDRESS = (PROTOCOL = TCP)(HOST = xp-1-2-3)(PORT = 1521))

   )

   (CONNECT_DATA =

     (SERVER = SHARED)

     (SERVICE_NAME = saad)

     (PRESENTATION = http://admin)

   )

 )

EXTPROC_CONNECTION_DATA =

 (DESCRIPTION =

   (ADDRESS_LIST =

     (ADDRESS = (PROTOCOL = IPC)(KEY = EXTPROC0))

   )

   (CONNECT_DATA =

     (SID = PLSExtProc)

     (PRESENTATION = RO)

   )

 )