1. El más simple es el siguiente
Dimobjconn
Setobjconn = server.createObject ("Adobd.Connection")
objconn.openapplication ("Connection_String")
'CallThestoredRoreduretoincrementCounteronthepage
objconn.execute "execsp_addhit"
Sin parámetros, sin retorno, sin manejo de errores, eso es todo
2. Una llamada con parámetros
objconn.execute "execsp_addhit, 'http: //www.asp001.net',1"
Tenga en cuenta que los parámetros divididos no se devuelven a los registros.
3. Regrese al registro
Dimobjconn
Dimobjrs
Setobjconn = server.createObject ("Adobd.Connection")
Setobjrs = server.createObject ("AdoBd.Recordset")
objconn.openapplication ("Connection_String")
'CallThestoredRoreduretoincrementCounteronthepage
objrs.openobjconn, "execsp_listarticles'1/15/2001 '"
'LoopthroughRecordSet yDdisplayEachArticle
4 ....
Dimobjconn
Dimobjcmd
'InstantiateObjects
Setobjconn = server.createObject ("ADODB.Connection")
setobjcmd = server.createObject ("ADODB.COMMAND")
Conn.openApplication ("ConnectionString")
Withobjcmd
.Activeconnection = Conn'YoucanalSoJustSpecifyAconnectionstringhe
.CommandText = "SP_INSERTARTLE"
.CommandType = ADCMDStoredProc'Requirestheadevbs.IncfileortyPelibmetatag
'AddInputParameters
.Parameters.append.CreateParameter ("@columnist_id", addOuble, adparamInput ,, columnist_id)
.Parameters.append.CreateParameter ("@url", advarchar, adparaminput, 255, url)
.Parameters.append.CreateParameter ("@Title", Advarchar, AdparamInput, 99, URL)