VBscript中的showModalDialog问题，急呀，在这里我再出50分求解

[lxjqzx]

<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("database/board.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
conn.Open Provider&Path

%>


<title>公告板</title>

<table cellspacing="1" cellpadding="1" width="97%" align="center" border="0" class="a2">
<tr height="25">
<td valign="center" class="a1" align="middle" width="52%">公告主题</td>
</tr>
<%
sql="select * from board"
set rst=conn.execute(sql)
If Not rst.EOF Then rst.MoveFirst
While Not rst.EOF
%>
<tr>
<td colspan="7" height="2" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="47%" height="20" align="center" valign="middle" class="a4"><a href="#" onClick="openwin(<%=rst("Id")%>)"><%=rst("board_title")%></a></td>
</tr>

<%
rst.MoveNext
Wend
%>

</table>

<SCRIPT LANGUAGE="VBScript">
<!--
Sub openwin(ID)
msgbox ID
window.showModalDialog("displayboard.asp",ID,"dialogHeight: 300px; dialogWidth: 500px; dialogTop: 150px; dialogLeft: 200px; edge: Raised; center: No; help: No; resizable: No; status: No;")
End Sub

-->
</SCRIPT>

<%
rst.Close
conn.Close
%>
-----------------------
下面是数据库结构：
字段名称 数据类型
Id 自动编号
board_title 文本
board_body 备注
bumen 文本
write_datetime 日期/时间
board_user 文本
---------------------------------------------------------
上面的程序：
<SCRIPT LANGUAGE="VBScript">
<!--
Sub openwin(ID)
'msgbox ID
window.showModalDialog("displayboard.asp",ID,"dialogHeight: 300px; dialogWidth: 500px; dialogTop: 150px; dialogLeft: 200px; edge: Raised; center: No; help: No; resizable: No; status: No;")
End Sub

-->
</SCRIPT>
错在哪里？如果将window.show.....屏蔽后，打开msgbox则没有这个程序没有一点问题，请问问题出在哪里，如何修正？

[lxjqzx]

<SCRIPT LANGUAGE="VBScript">

[xupiao]

onClick="openwin..."

default是javascript

[lxjqzx]

还是没有人为我解答正确，结题了，唉........

[lsaturn]

什么意思
我都没有太看懂！