<%@ Langage=VBScript %>
<%
'---Commencer à se connecter à la base de données
Dim strConnString
strConnString = "driver={SQL Server};server=songhp;uid=sa;pwd=;database=XVZDemo"
définir Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnstring
'---Fin de la liaison à la base de données
'---Commencer à attribuer des valeurs aux paramètres d'entrée
Dim SelectSql, SelectRs
Dim SelectID , SelectName , SelectReturn
SelectSql = "Sélectionnez Max (CompanyID) dans Dim_Company"
Définir SelectRs = Conn.Execute (SelectSql)
ID de sélection = SelectRs (0)
'---Fin de l'attribution de valeurs aux paramètres d'entrée
Dim TiggerType
TiggerType = 3
Définir Cmd = Server.CreateObject("ADODB.Command")
Définir Cmd.ActiveConnection = Conn
Cmd.CommandType = 4 '---Déclarer cette procédure comme procédure stockée
Si TiggerType = 1 alors
'---Démarrer un appel de procédure stockée avec les paramètres d'entrée
Cmd.CommandText = "TransCompany1"
Définir CmdParam = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParam
Cmd("@TransID") = SelectID
Cmd.Exécuter
'---Terminer un appel de procédure stockée avec les paramètres d'entrée
Elseif TiggerType = 2 then
'---Démarrez un appel de procédure stockée avec un paramètre d'entrée et un paramètre de sortie
Cmd.CommandText = "TransCompany2"
Définir CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
Définir CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Exécuter
SélectionnerNom = Cmd("@TransName")
'---Terminer un appel de procédure stockée avec un paramètre d'entrée et un paramètre de sortieSinon
TiggerType = 3 puis
'---Démarrer un appel de procédure stockée avec un paramètre d'entrée, un paramètre de sortie et une valeur de retour
Cmd.CommandText = "TransCompany3"
Définir CmdParamReturn = Cmd.CreateParameter("Return_Value",3,4)
Cmd.Parameters.Append CmdParamReturn
Définir CmdParamID = Cmd.CreateParameter("@TransID",3,1)
Cmd.Parameters.Append CmdParamID
Cmd("@TransID") = SelectID
Définir CmdParamName = Cmd.CreateParameter("@TransName",202,2,50)
Cmd.Parameters.Append CmdParamName
Cmd.Exécuter
SélectionnerNom = Cmd("@TransName")
SelectReturn = Cmd("Return_Value")
'---Terminer un appel de procédure stockée avec un paramètre d'entrée, un paramètre de sortie et une valeur de retour
End if
Conn.Close
SetConn=Rien
Définir Cmd = Rien
Définir CmdParamID = Rien
Définir CmdParamname = Rien
Définir CmdParamReturn = Rien
%>