So you want a day off?

So you want a day off?
So you want a day off. Let's take a look at what you are asking for.
There are 365 days per year available for work.
There are 52 weeks per year in which you already have 2 days off per week, leaving 261 days available for work.
Since you spend 16 hours each day away fron work, you have used up 170 days, leaving only 91 days available.
You spend 30 minutes each day on coffee break which counts for 23 days each year, leaving only 68 days available.
With a 1 hour lunch each day, you used up another 46 days, leaving only 22 days available for work.
You normally spend 2 days per year on sick leave.
This leaves you only 20 days per year available for work.
We are off 5 holidays per year, so your available working time is down to 15 days.
We generously give 14 days vacation per year which leaves only 1 day available for work.
There's no way I'll let you take that day off!


Source: http://www.4hb.com/0730soyouwantadayoff.html

Classic ASP - ADO constants include file

Somtimes I need to come back to the very old code. So, just to have it there:

'---- ParameterDirectionEnum Values ----
adParamUnknown = &H0000
adParamInput = &H0001
adParamOutput = &H0002
adParamInputOutput = &H0003
adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
adCmdUnknown = 0
adCmdText = &H0001
adCmdTable = &H0002
adCmdStoredProc = &H0004

'---- CursorTypeEnum Values ----
adOpenForwardOnly = 0
adOpenKeyset = 1
adOpenDynamic = 2
adOpenStatic = 3

'---- LockTypeEnum Values ----
adLockReadOnly = 1
adLockPessimistic = 2
adLockOptimistic = 3
adLockBatchOptimistic = 4

'---- DataTypeEnum Values ----
adEmpty = 0
adTinyInt = 16
adSmallInt = 2
adInteger = 3
adBigInt = 20
adUnsignedTinyInt = 17
adUnsignedSmallInt = 18
adUnsignedInt = 19
adUnsignedBigInt = 21
adSingle = 4
adDouble = 5
adCurrency = 6
adDecimal = 14
adNumeric = 131
adBoolean = 11
adError = 10
adUserDefined = 132
adVariant = 12
adIDispatch = 9
adIUnknown = 13
adGUID = 72
adDate = 7
adDBDate = 133
adDBTime = 134
adDBTimeStamp = 135
adBSTR = 8
adChar = 129
adVarChar = 200
adLongVarChar = 201
adWChar = 130
adVarWChar = 202
adLongVarWChar = 203
adBinary = 128
adVarBinary = 204
adLongVarBinary = 205

'---------------------end of file

* This source code was highlighted with Source Code Highlighter.

sources:
http://www.asp101.com/articles/john/adovbs/
http://www.asp101.com/articles/john/adovbs/adovbs.inc.txt
http://www.eggheadcafe.com/PrintSearchContent.asp?LINKID=122