CREATE OR REPLACE PACKAGE REF_PKG IS
	TYPE REF_CURSOR IS REF CURSOR;
  Procedure select_map_objects (p_type_name IN varchar2, RC OUT REF_PKG.REF_CURSOR);
END REF_PKG;

create or replace package body ref_pkg is

procedure select_map_objects (p_type_name IN varchar2, rc OUT REF_PKG.REF_CURSOR) is
begin

  OPEN rc FOR
                  select object_id
                  from objects
                  where type_name like '%'||p_type_name||'%';
end select_map_objects;
end ref_pkg;

<%
        Dim sServer
	Dim sLoginID
	Dim sPassword
	Dim cmdStoredProc
	Dim error_count
	Dim param1

	sServer = "myserver"
	sLoginID = request.form("username")
	sPassword = request.form("password")

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

	Set rs = Server.CreateObject("ADODB.Recordset")
        Set cmdStoredProc = Server.CreateObject ("ADODB.Command")

	cn.ConnectionString = "Provider=OraOLEDB.Oracle.1;" & _
		"Persist Security Info=False;" & _
		"User ID=" & sLoginID  & ";" & _
		"Password=" & sPassword & ";" & _
		"Data Source=adb31"

	cn.Open

	rs.ActiveConnection = cn	
        Set cmdStoredProc.ActiveConnection = cn
	
	cmdStoredProc.CommandText = "ref_pkg.select_map_objects"
        cmdStoredProc.CommandType = adCmdStoredProc

	Set param1 = cmdStoredProc.CreateParameter ("Type_Name", adString, adParamInput)
        cmdStoredProc.Parameters.Append param1
        param1.Value = "ИНФРА"

	rs.Open "Select DISTINCT TYPE_NAME from TYPES where TYPE_NAME like '%ИНФ%'", , , , adCmdText
        Set rs_1 = cmdStoredProc.Execute
%>                           

        <select name="vType_Name">
          <option>(не определено) 
          <%
while (not Rs.EOF)
%>
          <option><%=rs.Fields("TYPE_NAME").Value%> 
          <%
	rs.MoveNext
wend
%>
        </select>
        <select name="vObject_ID">
          <option>(не определено) 
          <%
while (not rs_1.EOF)
%>
          <option><%=rs_1 ( 0 )%> 
          <%
	rs_1.MoveNext
wend
%>
        </select>
</form>
<%
rs.Close
rs_1.Close
end if
%>
</body>
</html>