Re: Oracle and Personal Web Server

From: Kurt Johnson <kujotx_at_hotmail.com>
Date: Fri, 21 Jan 2000 16:13:55 -0600
Message-ID: <fR4i4.1831$Rj5.9269@dfw-read.news.verio.net>

Just curious: did you set up your folder properly to allow execution and anonymous users?

Try:
http://support.microsoft.com/support/kb/articles/q183/0/60.asp?LNG=ENG&SA=AL LKB MSKB Document that covers troubleshooting 80004005 errors...

Kurt

"lyndon johnson" <lyndonjohnson_at_netscape.net> wrote in message news:86ab4u$7gi$1_at_news.inc.net...
> I am connecting to oracle via IIS4, successfully. However, when I try to
> connect to Oracle 7.3 via Personal Web Server 4 I get this error:
>
> Microsoft OLE DB Provider for ODBC Drivers error '80004005'
>
> [Microsoft][ODBC driver for Oracle][Oracle]Error while trying to retrieve
> text for error ORA-03121
>
> Are there settings for PWS or Oracle I should be aware of to connect to my
> oracle databases. Any suggestions or web pages example would be greatly
> appreciated.
>
> Please forgive the cross post....
>
>
> Thank you in advance:
>
>
> Here is the code I am using:
>
> <%@ Language=VBScript %>
> <html>
> <head>
> <title>Oracle Test</title>
> </head>
> <body>
> <center>
> <%
> DIM CNNSTR
> Set objConn = Server.CreateObject("ADODB.Connection")
> Response.Write "connection string0 " & "<BR>"
> 'objConn.Open "dsn=OracleDSN73;uid=w951rsu;pwd=help99;"
> 'objConn.Open "dsn=OracleDSN_ms;UID=;PWD=help99;"
> 'objConn.Open "PROVIDER=MSDAORA;DRIVER={Microsoft ODBC for Oracle};" & _
> 'CNNSTR = "PROVIDER=MSDAORA;DRIVER={Microsoft ODBC for Oracle};" & _
> CNNSTR = "DRIVER={Microsoft ODBC for Oracle};" & _
> "SERVER=DWTST01.world;" & _
> "UID=w951rsu;PWD=help99;"
> Response.Write CNNSTR
> 'objConn.Open "dsn=EPULSE_ORACLE_32a;uid=W951RSU;pwd=HELP99"
> Response.Write "connection string2 " & "<BR>"
> objConn.Open CNNSTR
> Response.Write "connection string1 "
> Set objRs = objConn.Execute("SELECT * FROM DEMO.EMPLOYEE")
>
> Response.Write "<table border=1 cellpadding=4>"
> Response.Write "<tr>"
>
> For I = 0 To objRS.Fields.Count - 1
> Response.Write "<td><b>" & objRS(I).Name & "</b></td>"
> Next
>
> Response.Write "</tr>"
>
> Do While Not objRS.EOF
> Response.Write "<tr>"
>
> For I = 0 To objRS.Fields.Count - 1
> Response.Write "<td>" & objRS(I) & "</td>"
> Next
>
> Response.Write "</tr>"
>
> objRS.MoveNext
> Loop
>
> Response.Write "</table>"
>
> objRs.Close
> objConn.Close
> %>
> </center>
> </body>
> </html>
>
>
>
>
>
Received on Fri Jan 21 2000 - 16:13:55 CST