Que puede estar mal en este código?

[infolan]

La página de insertar es :
edido")
obs = replace(request.querystring("obs"),"'","''")
importe = request.querystring("importe")
vendedor = request.querystring("vendedor")
'vendedor = "aa"

set con=Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.Recordset")
con.Open strConnection

storedProcedure = "call SP_PEDIDOS_I ('" & numPedido & "'," & cliente & ",'" & obs & "'," & vendedor & ",'" & importe & "');"


set conLog=Server.CreateObject("ADODB.Connection")
set rstLog = Server.CreateObject("ADODB.Recordset")
conLog.Open strConnection
spLog = "call SP_LOG_I ('Pedido Cabecera',""" & storedProcedure & """)"
rstLog.activeconnection = conLog
rstLog.open = spLog

rst.Open storedProcedure, con, 1, 2
'rst.activeconnection = con
'rst.open = storedProcedure
nombre = ""
i=0

mensajeError = "Pedido CAB : " & numPedido & " - Valor i : " & i & " - Error : " & err.number
spLog = "call SP_LOG_I ('Pedido Cabecera',""" & mensajeError & """)"
rstLog.activeconnection = conLog
rstLog.open = spLog


While not rst.EOF
nombre = rst.Fields(0)
rst.moveNext
i = i + 1
wend

mensajeError = "Pedido CAB : " & numPedido & " - Valor i : " & i & " - Error : " & err.number
spLog = "call SP_LOG_I ('Pedido Cabecera',""" & mensajeError & """)"
rstLog.activeconnection = conLog
rstLog.open = spLog

response.write i

rst.close
con.close
%>

HE PROBADO TODO LO COMENTADO Y NO VEO NADA