我是个菜鸟，请各位帮帮忙！
编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。
编译器错误信息: BC30203: 需要标识符。
源错误:
行 14： dim a as string
行 15： for shti=1 to dsdataset.tables("liuyanbu").rows.count
行 16： a=dsdataset.tables(0).rows(shti-1).("xingming")
行 17： response.Write(a &"<br>")
行 18： next
源文件: C:\Inetpub\wwwroot\综合\new\dt.aspx 行: 16
这是我的源码！！！！！！
<%@ Page Language="VB" Debug="true"%>
<%@import namespace="system.data.oledb"%>
<%@import namespace="system.data"%>
<html>
<script language="VB" runat="server">
sub page_load(sender as object,e as eventargs)
dim path As String = server.mappath("/data/lyb.mdb")
dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path
dim strComStr As String = "select * from liuyanbu"
dim dsca as oledbdataadapter = new oledbdataadapter(strComStr,strConStr)
dim dsdataset as dataset = new dataset()
dsca.fill(dsdataset,"liuyanbu")
dim shti as short
dim a as string
for shti=1 to dsdataset.tables("liuyanbu").rows.count
a=dsdataset.tables(0).rows(shti-1).("xingming")
response.Write(a &"<br>")
next
end sub
</script>
到底这是怎么回事呢？
