do while loop asp classic vbscript