如何将下面的ＪＳＰ调用ＯＲＡＣＬＥ存储过程修改为ＡＳＰ啊？

Question

ＪＳＰ代码：
par1 = form.getInsurCode();        par2 = form.getSocTermBegin();        par3 = form.getSocTermEnd();        sql = "{call pkg_soc_touchquery.sp_soc_touchquery(?,?,?,?)}";        Class.forName("oracle.jdbc.OracleDriver");        conn = DriverManager.getConnection("jdbc:oracle:thin:@192.168.111.1:ora", "user1", "pass1");        conn.setAutoCommit(false);        CallableStatement stmt = conn.prepareCall(sql);        stmt.setString(1, par1);        stmt.setString(2, par2);        stmt.setString(3, par3);        stmt.registerOutParameter(4, -10);        stmt.executeQuery();

Answer 1

Const CONNECT = "Provider=MSDAORA.1;Data Source=11111;User ID=user1;Password=pass1"

Dim cn, rs, cmd, param
Dim SQL set cn = Server.CreateObject( "ADODB.Connection" )
cn.Open CONNECT SQL = "{call pkg_soc_touchquery.sp_soc_touchquery(?,?,?, {resultset 0, p_cursor})}"
set cmd = server.CreateObject ("ADODB.Command")
with cmd
set .ActiveConnection = cn
    .CommandText = SQL
    .CommandType = 1 'adCmdText
    'Pass in 0 to retrieve all of the records
    set param = .CreateParameter("as_InsurCode", 129 , 1 , 8 , "6000002")
    .Parameters.Append param
    set param = .CreateParameter("as_DateBegin", 129 , 1 , 10 , "200504")
    .Parameters.Append param
    set param = .CreateParameter("as_DateEnd", 129 , 1 , 10 , "200510")
    .Parameters.Append param
end with

set rs = server.CreateObject ( "ADODB.Recordset" ) 
set rs = cmd.execute
返回-1啊!不知问题出在哪了？

Answer 2

ASP.NET我会 ,  ASP从来没写过~~ 
-!- ..