1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Call main
Sub main
afficher
executer
fermer
End sub
Sub afficher
%>
<HTML>
<BODY>
prockstock en cours ...
</BODY>
</HTML>
<%
End sub
Sub executer
Response.Flush()
Dim connexion 'as SQLConnection
Dim command 'as SQLCommand
Dim strcnx 'as string
' instanciation de l'objet connexion
strcnx = "Server="+DATABASE_SRV+";DataBase="+DATABASE_NME+";UID="+DATABASE_USR+";pwd="+DATABASE_PWD
Set connexion = Server.Create("adodb.connection")
connexion.Open()
' instanciation de l'objet command et des paramètres requis
Set command = Server.create("adodb.command")
command.ActiveConnection = connexion
command.CommandText = "ma_procstock"
command.CommandType = adCmdStoredProc
' exécution de l'objet command
command.executeNonQuery()
' fermeture de la connexion
connexion.close
Set connexion=nothing
End sub
Sub fermer
response.write("<script>window.close()</script>")
End sub |
Partager