Redireccionar despues de un Stored Procedure

[kire94]

Saludos a todo el foro.

De que manera se puede redireccionar hacia otra pagina siempre y cuando un SP se halla ejecutado satisfactoriamente. Es decir:

Llamo al SP:
strquery = "spinsmarca '" & request("marca") & "'"
Set marca = Conn.execute(strquery)

Si el SP se ejecuto con exito y no hubo ningun problema que redireccione a otra pagina

IF SP=OK THEN
response.redirect(pagina)
END IF

[u_goldman]

Regresa un parametro de salida desde tu SP, en base a este valor puedes hacer la redireccion.

[kire94]

No tendras un ejemplo de como declarar la variable OUTPUT y como cacharla en asp??

De antemano gracias

[u_goldman]

En tu stored procedure, necesitas declarar esto:

@variable int OUTPUT

Despues en el ASP que ejecuta el stored procedure, yo te aconsejo que utilices el objeto command de ADO, y para "cachar" ese valor necesitas crear un parametro:

Código:

Set cmd = Server.CreateObject("ADODB.Command")

Set param = cmd.CreateParameter("valor", adInteger, adParamOutput, 4)
cmd.Parameters.Append(param)

cmd.Execute()

valorASP = cmd.Parameters("valor")

El objeto command es tu amigo:
http://www.aspfaq.com/params.htm

Y yo regresaria quizas las filas afectadas por el SP
http://msdn.microsoft.com/library/de...eate2_7eeq.asp

Si el valor mayor que cero, entonces rediriges.

Felices trazos!

[kire94]

Tengo el siguiente codigo para lograr lo expuesto en ese tema:

Código:

set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = Conn
cmd.CommandText = "spinsmarca"
cmd.CommandType = 4
cmd.CommandTimeout = 0
cmd.Prepared = true
cmd.Parameters.Append
cmd.CreateParameter("@marca", 200, 1,50,request.form("marca"))
cmd.CreateParameter("@Res_SP", 3, 2,50,)
set marca = cmd.Execute()

Y me manda este error:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub
/graba_marca.asp, línea 33, columna 57
cmd.CreateParameter("@marca", 200, 1,50,request("marca"))

Lo raro esta en que ese codigo lo saque de otra pagina en el mismo sitio, y ese codigo funciona sin problemas, pongo el codigo que copie para construir el de arriba:

Código:

set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = Conn
cmd.CommandText = "spVerifPasswdE"
cmd.CommandType = 4
cmd.CommandTimeout = 0
cmd.Prepared = true
cmd.Parameters.Append 
cmd.CreateParameter("@login", 200, 1,50,request.form("login"))
set rs = cmd.Execute()

[u_goldman]

Trata así:

Código:

set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = Conn
cmd.CommandText = "spinsmarca"
cmd.CommandType = 4
cmd.CommandTimeout = 0
cmd.Prepared = true
'cmd.Parameters.Append
Set param = cmd.CreateParameter("@marca", 200, 1,50,request.form("marca"))
cmd.Parameters.Append(param)
Set param = cmd.CreateParameter("@Res_SP", 3, 2,50,)
cmd.Parameters.Append(param)
set marca = cmd.Execute()

[kire94]

Ya quedo solo tuve que hacerle una pequeña correccion. Mil gracias por la ayuda