asp如何延时执行下一个语句

<script language="vbscript">
dim sec
sec=3
SetTimeOut "SpareTime()",1000
sub SpareTime()
if sec=0 then

执行代码

else
if sec>0 then sec=sec-1
if sec<0 then sec=0
SetTimeOut "SpareTime()",1000
end if
end sub
</script>