<%@ Idioma=VBScript %>
<%
'---Comienza a conectarte a la base de datos
Dim strConnString
strConnString = "controlador={SQL Server};servidor=songhp;uid=sa;pwd=;database=XVZDemo"
establecer Conexión = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---Finalizar enlace a base de datos
'---Comenzar a asignar valores a los parámetros de entrada
Atenuar SelectSql, SelectRs
Atenuar SeleccionarID, SeleccionarNombre, SeleccionarRegresar
SelectSql = "Seleccione Max(CompanyID) de Dim_Company"
Establecer SelectRs = Conn.Execute (SelectSql)
SeleccionarID = SeleccionarRs(0)
'---Fin de asignación de valores a los parámetros de entrada
Dim TiggerType
TiggerType = 3
Establecer Cmd = Server.CreateObject("ADODB.Command")
Establecer Cmd.ActiveConnection = Conexión
Cmd.CommandType = 4 '---Declarar este procedimiento como procedimiento almacenadoSi
TiggerType = 1 entonces
'---Iniciar una llamada a un procedimiento almacenado con parámetros de entrada
Cmd.CommandText = "TransCompany1"
Establecer CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Agregar CmdParam
Cmd("@TransID") = SeleccionarID
Cmd.Ejecutar
'---Finalizar una llamada a un procedimiento almacenado con parámetros de entrada
Elseif TiggerType = 2 y luego
'---Iniciar una llamada a procedimiento almacenado con un parámetro de entrada y un parámetro de salida
Cmd.CommandText = "TransCompany2"
Establecer CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SeleccionarID
Establecer CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Ejecutar
SeleccionarNombre = Cmd("@TransName")
'---Finalizar una llamada a procedimiento almacenado con un parámetro de entrada y un parámetro de salidaElseif
TiggerType = 3 luego
'---Iniciar una llamada a procedimiento almacenado con un parámetro de entrada, un parámetro de salida y un valor de retorno
Cmd.CommandText = "TransCompany3"
Establecer CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters.Append CmdParamReturn
Establecer CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SeleccionarID
Establecer CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Ejecutar
SeleccionarNombre = Cmd("@TransName")
SeleccionarRetorno = Cmd("Retorno_Valor")
'---Finalizar una llamada a procedimiento almacenado con un parámetro de entrada, un parámetro de salida y un valor de retorno
Finalizar si
Conn.Close
SetConn=Nada
Establecer comando = nada
Establecer CmdParamID = Nada
Establecer CmdParamname = Nada
Establecer CmdParamReturn = Nada
%>