1. Le plus simple est le suivant
Dimobjconn
SetObjConn = server.createObject ("adobd.connection")
objConn.openapplication ("Connection_string")
`` CallhestoredProcedUretoinCmentACounteronthepage
objconn.excute "execsp_addhit"
Pas de paramètres, pas de retour, pas de traitement d'erreur, c'est tout
2. Un appel avec des paramètres
objconn.execcute "execsp_addhit, 'http: //www.asp001.net',1"
Veuillez noter que les paramètres divisés ne sont pas retournés aux enregistrements.
3. Retour au dossier
Dimobjconn
Dimobjrs
SetObjConn = server.createObject ("adobd.connection")
SetObjrs = server.createObject ("adobd.recordset")
objConn.openapplication ("Connection_string")
`` CallhestoredProcedUretoinCmentACounteronthepage
objrs.openobjConn, "Execsp_Listarticles'1 / 15/2001 '"
'LoopthroughRecordSetandDisplayEacharticle
4 ....
Dimobjconn
Dimobjcmd
'InstanciateObjects
SetObjConn = server.createObject ("adodb.connection")
setObjcmd = server.createObject ("adodb.command")
Conn.OpenPlication ("ConnectionString")
Withobjcmd
.ActiveConnection = Conn'youcanalsojusteSpecifyAconnectionStringhe
.CommandText = "SP_INSERTARTARTICLE"
.CommandType = AdcmdstoredProC'RequirestHeadovbs.incfileortyPelibMetatag
'AddinputParameters
.Parameters.Apend.createParameter ("@ Columndist_id", adouble, adparaminput ,, columnist_id)
.Parameters.Apend.CreateParameter ("@ URL", Advarchar, adparaminput, 255, URL)
.Parameters.Apend.CreateParameter ("@ Title", Advarchar, adparaminput, 99, URL)