Se você usar uma conexão com banco de dados você provavelmente usará constantes com nomes como adOpenForwardOnly e adLockReadOnly em seus script ASP. Pois bem estas constantes estão todas definidas no arquivo ADOVBS.INC. Abaixo temos um exemplo de como seria o código para criar em uma página um objeto Recordset com um cursor do tipo KeySet:
Você pode então incluir o arquivo ADOVBS.INC em suas páginas ASP usando o comando include no início das páginas ASP:
Se você usar o comando include como acima deverá por o arquivo ADOVBS.INC no diretório raiz da sua aplicação web.
Uma saída mais elegante para não ter que usar o include do arquivo adovbs.inc em suas páginas ASP é usar a tag METADATA no lugar de include.
A tag METADATA possui o seguinte formato:
Você precisa definir obrigatoriamente o TYPE e o FILE ou o UUID, assim você pode definir a TBL ou DLL diretamente pela propriedade FILE ou através de UUID. Um exemplo de uso seria:
ou
Substituindo o comando include pela tag METADATA teríamos:
Mas agora é que vem a boa notícia…
Se você colocar a tag METADATA no seu arquivo Global.asa isto fará com que cada página ASP na sua aplicação WEB reconheça as constantes ADO e você não precisará mais incluir em cada página ASP o arquivo ADOVBS.INC.
Mas se você ainda quiser continuar usando o arquivo adovbs.inc baixe o arquivo em anexo.
Apenas para você ter uma idéia estou exibindo abaixo um parte do arquivo ADOVBS.INC: <% '-------------------------------------------------------------------- ' Microsoft ADO ' (c) 1996 Microsoft Corporation. All Rights Reserved. ' ' ADO constants include file for VBScript ''-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- CursorOptionEnum Values ---- Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200 Const adAddNew = &H01000400 Const adDelete = &H01000800 Const adUpdate = &H01008000 Const adBookmark = &H00002000 Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000 Const adResync = &H00020000 Const adNotify = &H00040000 ....
