<%@Idioma=VBScript%>
<%
'---Iniciar conexão com o banco de dados
Dim strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
definir Conexão = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---Fim da vinculação ao banco de dados
'---Começa a atribuir valores aos parâmetros de entrada
Dim SelectSql, SelectRs
Dim SelectID, SelectName, SelectReturn
SelectSql = "Selecione Max(CompanyID) de Dim_Company"
Definir SelectRs = Conn.Execute(SelectSql)
SelectID = SelectRs(0)
'---Fim da atribuição de valores aos parâmetros de entrada
Dim TiggerType
TiggerType = 3
Definir Cmd = Server.CreateObject("ADODB.Command")
Definir Cmd.ActiveConnection = Conexão
Cmd.CommandType = 4 '---Declarar este procedimento como um procedimento armazenadoSe
TiggerType = 1 então
'---Iniciar uma chamada de procedimento armazenado com parâmetros de entrada
Cmd.CommandText = "TransEmpresa1"
Definir CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = SelecioneID
Cmd.Executar
'---Termina uma chamada de procedimento armazenado com parâmetros de entrada
Elseif TiggerType = 2 then
'---Iniciar uma chamada de procedimento armazenado com um parâmetro de entrada e um parâmetro de saída
Cmd.CommandText = "TransCompany2"
Definir CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelecioneID
Definir CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Executar
SelecioneNome = Cmd("@TransNome")
'---Termina uma chamada de procedimento armazenado com um parâmetro de entrada e um parâmetro de saídaElseif
TiggerType = 3 then
'---Inicia uma chamada de procedimento armazenado com um parâmetro de entrada, um parâmetro de saída e um valor de retorno
Cmd.CommandText = "TransCompany3"
Definir CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters.Append CmdParamReturn
Definir CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelecioneID
Definir CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Executar
SelecioneNome = Cmd("@TransNome")
SelecioneRetorno = Cmd("Valor_Retorno")
'---Termina uma chamada de procedimento armazenado com um parâmetro de entrada, um parâmetro de saída e um valor de retorno
End if
Conn.Close
SetConn=Nada
Definir Cmd = Nada
Definir CmdParamID = Nada
Definir CmdParamname = Nada
Definir CmdParamReturn = Nada
%>