Ok, realizado ya las modificaciones que me mencionas, el codigo asp queda de la siguiente manera:
Código PHP:
...codigo html
<!--#include file="Adovbs.inc"-->
...codigo html
<%
Dim cmd,rs
rec = request.Form("rec")
cuenta = request.Form("cuenta")
response.Write("Rec: "&rec&"<br>")
response.Write("Cuenta: "&cuenta&"<br>")
Set cmd = Server.CreateObject("ADODB.Command")
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "ejemplo"
cmd.CommandText = "InsertaEjemplo"
cmd.CommandType = adCmdStoredProc
cmdParameters.Append cmd.CreateParameter("rec", adSmallInt, adParamInput, 2, rec)
cmdParameters.Append cmd.CreateParameter("cuenta", adDouble, adParamInput, 8, cuenta)
rs = cmd.Execute()
if err.numer = 0 Then
response.Write("SI PROCEDE")
else
response.Write("NO PROCEDE")
end if
rs.close
set rs = nothing
response.Write("ok todo ok")
%>
y el codigo del SP queda asi:
Código PHP:
CREATE PROCEDURE InsertaEjemplo
@rec smallint,
@cuenta float
AS
INSERT INTO movimientos(recaudadora,cvecuenta) VALUES(@rec, @cuenta)
RETURN @@IDENTITY
GO
Pero ahora me marca este error:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: ''
En esta linea:
cmdParameters.Append cmd.CreateParameter("rec", adSmallInt, adParamInput, 2, rec)
No se que estoy haciendo mal
