谁帮我看看这小段代码有什么问题啊

[coolcat_1981]

<%
dim str_ora
dim objconn_ora
str_ora = "Driver={Microsoft ODBC for Oracle};Server=192.0.6.18;uid=123;pwd=321"
set objconn_ora = server.CreateObject("adodb.connection")
objconn_ora.connectionstring = str_ora
objconn_ora.CursorLocation = 3
objconn_ora.open

dim strsql
set rs1 = server.CreateObject("ADODB.RecordSet")
p1=2002002
p2=200603
p3=200606
strsql="{call zhengguan.pkg_soc_touchquery.sp_soc_touchquery("&p1&","&p2&","&p3&",-10)}"
set objcomm1 = server.CreateObject("adodb.command")
objcomm1.activeconnection = objconn_ora
objcomm1.commandtype = 1
objcomm1.commandtext = strsql
set rs1 = objcomm1.execute


while not rs1.eof
response.Write(rs1(0) & "|" & rs1(1) & "|" & rs1(2) & "|" & rs1(3) & "|" & rs1(4) & "|" & rs1(5) & "|<BR>")
rs1.movenext
wend
%>
老是运行不起来哦