asp 做的小程序 ，不用script 正确，加上 script ，错误：缺少语句

下面是代码 ，高手 请进：


<p>
  <!-- 链接 -->
 <%

dim tigan ,achuan,bchuan,cchuan,dchuan '从题干中提取 A B C D选项

dim rsCount,dqtsh 'rscount 是数据库中的总的条数 dqtsh 是 游标所在的条数
Set Conn=Server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;Data source="&Server.MapPath("\data\wyfc.mdb")
Conn.open connstr
set rs=server.CreateObject("adodb.recordset")
rs.source="select * from haohaoganhuo"
rs.activeconnection=conn
rs.cursortype=2 ' 游标的类型是 动态的。
rs.locktype=2
'rs.option

rs.open
'response.Write rs(0)

'显示 记录总数

Set rsCount = conn.Execute("SELECT Count(*) FROM haohaoganhuo") 
Response.Write "记录总数是" & rscount(0) 


' 显示 第一条记录  
  
'do while not rs.eof
'response.write rs.fields(0).value
'response.write "<br/>"
response.Write rs.fields(1).value
response.write "<br/>"

 
  '此处提取出 a b c d 分别加上 回车
tigan=rs.fields(2).value 
achuan=trim(mid(tigan,1,instr(tigan,"B")-1))
bchuan=trim(mid(tigan,instr(tigan,"B"),instr(tigan,"C")-instr(tigan,"B")))
cchuan=trim(mid(tigan,instr(tigan,"C"),instr(tigan,"D")-instr(tigan,"C")))
dchuan=trim(mid(tigan,instr(tigan,"D"),len(tigan)-instr(tigan,"D")+1))
%>
<input name="bxda" type="radio" value="A" />
<%= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & achuan & "<br>" %>
<input name="bxda" type="radio" value="B" />
<%= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"& bchuan & "<br>" %>
<input name="bxda" type="radio" value="C" />
<%= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"& cchuan & "<br>" %>
<input name="bxda" type="radio" value="D" />
<%= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"& dchuan & "<br>" %>

<%
'为 当前条数 赋值
dqtsh =1
'rs.MoveNext
'loop
%>
  
  
  
  
  
  <!-- 设计显示 总的条数 和 当前的条数 -->
 
<input id="wenben1" name="wb1" type="text" size="9" />



 

 
 <!-- 上一个 下一个 选项 跳转 -->
 
 
 
  
<input name="shangyiti" type="button" value="上一题" >
<!-- <input name="下一题" type="button" value="下一题" onclick="xiayiti()" /> -->
<input name="题号" type="text" size="4" value="<%= dqtsh+1 %>" />
<input name="跳转" type="button" value="跳转" /> <br />


 <script language="vbscript">
document.getElementById("wenben1").value= <% =dqtsh %> & "/" & <% =zongshu %>

sub shangyiti_onclick()
msgbox "这是上一题的按钮" 
   
  /*response.Write "原来的题号是"  
 
'document.getElementById("linshi").innerhtml="原来的题号是"  
*/
end sub

</script> 

 
 <!-- 显示 连续的 -->

 <script language="vbscript" >
 sub shangyiti_onclick()
  //获得 题号  
 if not rs.bof then
 //= "原来的题号是" & dqtsh  
 
end if 
 // 题号 减去一  
 
 
 // 显示 题目 和 单选按钮  
 
 
 
 // 显示答题 情况 
 
 
 
 
 
 // 显示 答对 打错 和 答对率 
 end sub
  </script>

 
 
 
 
 
  
<%
rs.close
conn.close
set rs = nothing
set conn = nothing
%>
  
</p>
</body>

我用的是 win7 的iis ，莫非和这个有关系？ win7 旗舰版.

网页错误详细信息

用户代理: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0)
时间戳: Sat, 15 Oct 2011 07:54:27 UTC


消息: 语法错误
行: 58
字符: 57
代码: 0
URI: http://localhost/cstikulianjie.asp

58行的内容如下：

<%= "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & achuan & "<br>" %>

58行，%=后面不要有空格