I'm sorry, but any attempt I would make to use that code as you posted it WOULD end up in either an error message or infinite recursion (and thus cause an error in a few milliseconds).
Heck, just this much ASP code will crash it:
That gives the error message
Function checkUser( )
So I don't pretend to understand how that code could possibly have EVER worked. The database is irrelevant. The code, as you posted it, won't even compile.
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'checkUsert'
/DearAbby/junk2.asp, line 3