Que puede estar mal en este código?

[infolan]

Os explico,

en la sentencias que aparece " mensajeError = "Pedido CAB : " & numPedido & " - Valor i : " & i & " - Error : " & err.number" son unos logs que he puesto que se graba en la base de datos para ver que ocurre, el fallo es que aveces funciona bien la llamada de la sentencia : storedProcedure = "call SP_PEDIDOS_I ('" & numPedido & "'," & cliente & ",'" & obs & "'," & vendedor & ",'" & importe & "');", alguien sabe si hay algo raro en el codigo.



<!-- #include virtual ="periodicos/adovbs.inc" -->

<%
strConnection="Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=periodicos; User=root;Password=admin;Option=3;"
cliente = request.querystring("cliente")
numPedido = request.querystring("numPedido")
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.activeconnection = con
rst.open = storedProcedure
'con.Execute (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
%>