关于asp中msgbox 的使用问题,请指点下面代码问题在哪里呢?
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>test</TITLE>
</HEAD>
<BODY>
<%
dim cn
set cn=server.CreateObject("adodb.connection")
cn.ConnectionString="driver={sql server};server=server01;uid=sa;pwd=;database=testbase;"
cn.Open
dim sql,rs
sql="select * from table1"
set rs=cn.Execute(sql)
do while not rs.eof
if rs("col2")="lake" then
<script language="vbscript">
<!--
msgbox "Hello"
-->
</script>
loop
%>
<P> </P>
</BODY>
</HTML>
--------------------------------------------------------------------
提示:Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/test/t33.asp,行17
<script language="vbscript">
---------------------------------------------------------------------
不明白!