紧急求救：用VBScript实现动态蜜钥加密WEB页遇到的难题！

代码如下：<HTML>
<HEAD><TITLE>简单验证</TITLE>
<SCRIPT LANGUAGE="VBScript"> 
<!--
Sub Submit_OnClick
  Dim a,b
  a=TheForm.Text1.Value
  b=TheForm.Text2.Value
  Dim TheForm
  Set TheForm = Document.ValidForm
    nDate=day(Date)
　　nWeek=weekday(Date)
　if int(nDate/2)<>(nDate/2) then
　       　　nDate=nDate-1
　else
　　nDate=nDate+1
　end if
　if nWeek=1 then
　　nWeek=14
　else
　　nWeek=nWeek+6
　end if
　passwd="chen"+cstr(nWeek)+cstr(nDate)
　　if b=cstr(a)&passwd then
　　window.open("http://127.0.0.1")
　　else
　　MsgBox "密码错误！"
　  end if
End Sub
-->
</SCRIPT>
</HEAD>
<BODY>
<H3>简单验证</H3><HR>
<FORM NAME="ValidForm">
请输入密码： 
M：<INPUT NAME="Text1" SIZE="5">
N：<INPUT NAME="Text2" SIZE="5">
<INPUT NAME="Submit" TYPE="BUTTON" VALUE="提交"> 
</FORM>
</BODY>
</HTML>运行后出错！无法实现根据密钥、日期、星期动态密码保护。
小弟是初学，也是初来CSDN，期待大侠帮忙，先谢过。