在asp里怎样调用存储过程返回记录集？在线等待

CREATE TABLE student
 (
  id                         NUMBER,
  name                       VARCHAR2(30),
  sex                        VARCHAR2(10),
  address                    VARCHAR2(100),
  postcode                   VARCHAR2(10),
  birthday                   DATE,
  photo                      LONG RAW
 );
/<% 
set cm1 = Server.CreateObject("ADODB.Command")
cm1.ActiveConnection = MM_conn_STRING
cm1.CommandType = 1
cm1.CommandTimeout = 0
cm1.Prepared = true
cm1.CommandText = "{call pkg_test.get(?)}"//“?”表示要输入的参数
set para = cm1.Parameters
para.Append cm1.CreateParameter("p_id",3,1,,1)

set rs = Server.CreateObject("ADODB.Recordset")set rs=cm1.Execute  
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>中山大学附属第五医院</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK 
href="images/med.css" type=text/css 
rel=stylesheet>
</head>
<body bgcolor="#B2CFE4" text="#000000">
<%
   while not rs.eof 
   response.write rs("name")
   rs.movenext()
   wend %></body>
</html>
<%
rs.close
cm1.ActiveConnection.Close
set cm1=nothing
%>