Como chamar essa Stored Procedure???

[Weverton N 0]

Alow galera

 

tenho essa Stored Procedure em um BD Firebird:

 

ALTER PROCEDURE FECHANDO_SESSAO (	MAX_OF_DATA TIMESTAMP,	IDVISITA INTEGER,	DATA_SAIDA TIMESTAMP,	ID INTEGER)ASBEGIN  FOR	SELECT DISTINCT TBLCONTADOR.ID, TBLCONTADOR.DATA_SAIDA, TBLVISITAS.IDVISITA, MAX( TBLVISITAS.DATA ) MAX_OF_DATA	FROM TBLCONTADOR,	TBLVISITAS	WHERE 	   (		  (tblcontador.data_saida = tblcontador.data)	   and 		  (tblcontador.id = tblvisitas.idvisita)	   )	GROUP BY TBLCONTADOR.ID, TBLCONTADOR.DATA_SAIDA, TBLVISITAS.IDVISITA	INTO :ID,		 :DATA_SAIDA,		 :IDVISITA,		 :MAX_OF_DATA  DO  BEGIN  update tblcontador set data_saida = :MAX_OF_DATA;	SUSPEND;  ENDEND

Como faço pra chamar ela via asp, tava tentando um código mas ta errado:

 

Dim storedSet stored=Server.CreateObject("ADODB.Command")stored.ActiveConnection=cStringstored.CommandType=adCmdStoredProc stored.CommandText="FECHANDO_SESSAO"stored.execute

Ela não precisa de nenhum parâmetro pra ser executada, já que os valores são dos proprios campos. Alguem sabe como faço pra chama-la???

 

Abraços

[Prog 183]

stored.CommandText="Exec FECHANDO_SESSAO"

Mas eu acho que você esta indicando que a procedure receberá parametros.

[Weverton N 0]

Coloquei o "Exec FECHANDO SESSAO" e deu o erro:

 

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)Dynamic SQL Error SQL error code = -104 Token unknown - line 1, char 1 {/consorcio/common/inc_contador.asp, line 79

[Marcelo Barcellos 0]

Colega.

Você tem que passar os parametros

=======================

MAX_OF_DATA TIMESTAMP,

IDVISITA INTEGER,

DATA_SAIDA TIMESTAMP,

ID INTEGER

=======================

 

Então voce simplifica

 

Set objConn = Server.CreateObject("Adodb.Connection")objConn.execute "FECHANDO_SESSAO ' " & MAX_OF_DATA & "'," & idVISITA & ",'" & DATA_SAIDA & "'," & ID