ASP classic include file (ADO for VBScript)

<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' Copyright (c) 1996-1998 Microsoft Corporation.
'
'
'
' 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
Const AdFind = &h00080000
Const Adseek = &h00400000
Const Adindex = &h00800000
'----LockTypeEnum Values----
Const adLockReadOnly = 1
Const adlockpessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'----ExecuteOptionEnum Values----
Const adAsyncExecute = &h00000010
Const adAsyncFetch = &h00000020
Const adasyncfetchnonblocking = &h00000040
Const adExecuteNoRecords = &h00000080
'----connectoptionenum Values----
Const Adasyncconnect = &h00000010
'----objectstateenum Values----
Const adstateclosed = &h00000000
Const adStateOpen = &h00000001
Const adstateconnecting = &h00000002
Const adstateexecuting = &h00000004
Const adstatefetching = &h00000008
'----CursorLocationEnum Values----
Const adUseServer = 2
Const adUseClient = 3
'----DataTypeEnum Values----
Const adempty = 0
Const Adtinyint = 16
Const adSmallInt = 2
Const Adinteger = 3
Const adBigInt = 20
Const Adunsignedtinyint = 17