The answer is clear. The driver does not support that operation.(see error
message). Find yourself another driver.
Jim
--
Replace part of the email address: kennedy-down_with_spammers_at_attbi.com
with family. Remove the negative part, keep the minus sign. You can figure
it out.
"Pile" <philipwinfield_at_totalise.co.uk> wrote in message
news:f2fcb581.0306160238.4313d575_at_posting.google.com...
> Hi,
> I have searched high and low but can not find the answer to this.
> Without going down the 004O route please could someone comment on the
> following.
>
> All it consists of is a very simple package, and a very simple ASP
> page. I just want to be able to call a function via ASP but so far
> have not been successful.
>
> Error I get is:Error Type:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
> ODBC driver does not support the requested properties.
> /fastcoder/query.asp, line 30
>
> Many thanks in advance.......
>
> CODE (Oracle 1st & then the asp Page)
> =====================================
>
> CREATE OR REPLACE PACKAGE test_pkg
> AS
>
>
> TYPE cursor_type IS REF CURSOR;
>
> FUNCTION fn_fastsearch (
> p_query IN VARCHAR2
> ,p_querytype IN PLS_INTEGER
> ) return cursor_type;
>
> END test_pkg;
> /
> CREATE OR REPLACE PACKAGE BODY test_pkg
> AS
>
> FUNCTION fn_fastsearch
> (
> p_query IN VARCHAR2
> ,p_querytype IN PLS_INTEGER
> )
> return cursor_type IS
>
>
> l_cursor fastcode_pkg.cursor_Type;
>
> BEGIN
>
> open l_cursor for select object_name from all_objects where
> rownum<100;
> return l_cursor;
>
> END;
>
>
> END test_pkg;
> /
>
>
> -- Cut here, NOW THE ASP PAGE...
>
>
> <html>
> <head>
> <title>Result of Database Query</title>
> </head>
> <!-- #include file="adovbs.inc" -->
> <!-- #include file="common.asp" -->
> <%
>
>
> Private Function GetData()
> SET rs = Server.CreateObject("ADODB.Recordset")
> set Con = Server.CreateObject("ADODB.Connection")
> set cmd =Server.CreateObject("ADODB.Command")
> set InputParam1 = Server.CreateObject("ADODB.Parameter")
> set InputParam2 = Server.CreateObject("ADODB.Parameter")
>
> con.ConnectionString = "driver={Microsoft ODBC for Oracle};
> server=pcom; uid=test;pwd=test"
> con.Open
>
> cmd.ActiveConnection = con
> cmd.CommandText = "test_pkg.fn_fastsearch"
> cmd.CommandType = adCmdStoredProc
> Set InputParam1 =
> cmd.CreateParameter("Prm1",adVarChar,adParamInput,44,"ahdakjdh")
> Set InputParam2 =
> cmd.CreateParameter("Prm2",adInteger,adParamInput,,25)
>
>
> cmd.Parameters.Append InputParam1
> cmd.Parameters.Append InputParam2
>
> set rs= cmd.Execute
>
> ' If this works, add in a loop to write result into table.
>
> End Function
>
> %>
> <body>
>
> <h1>Result of Database Query - ASP/VBScript</h1>
> <%=GetData()%>
>
> </body>
> </html>
Received on Mon Jun 16 2003 - 09:41:50 CDT
