我哪里错了？

jwxian 2004-05-14 02:43:38

<%@ import namespace="system.data.oledb"%>
<%@ import namespace="system.data"%>
<HTML>
<HEAD>
<script language="vb" runat="server">
sub submit_click(sender as object,e as eventargs)
if page.isvalid then
dim posttime as string=now
dim id as integer
dim query,name,txt,e_mail as string
dim datasource as string=server.mappath("mylist.mdb")
dim constr as string
constr="provider=microsoft.jet.oledb.4.0;"
constr=constr &"password=;user id=Admin;data source="&datasource
dim myconn as oledbconnection=new oledbconnection(constr)
myconn.open()
query="select max(id) as id from mylist"
dim cmd as oledbcommand(query,myconn)
dim reader as oledbdatareder=cmd.executereder()
reader.read()
if isdbnull(reader.item("id") then
id=1
else
id=reader.item("id")+1
end if
reader.close()
name=username.value
tex=content.value
e_mail=email.value
txt=replace(txt,chr(13)+chr(10),"<br>")
query="insert into list"
query=query&"values("&id&",'"&name&"','"&e_mail&"','"&posttime query=query&"','"&txt&"')"
cmd=new oledbcommnd(query,myconn)
cmd.executenonquery()
username.value=""
email.value=""
content.value=""
response.write("谢谢您的留言")
myconn.close()
end if
end sub
</script>
</HEAD>
<body>
<form runat="server">
姓名：<input id="username" type="text" runat="server">
<asp:regularexpressionvalidator id="valid1" errormessage="必须输入姓名!" validationexpression=".(1,)" controltovalidate="username"
Runat="server"></asp:regularexpressionvalidator>
<P></P>
E_mail:<input id="e_mail" type="text" runat="server">
<asp:RegularExpressionValidator ID="valid2" Runat="server" controltovalidate="e_mail" validationexpression=".{1,}@.{1,}\..{1,}"
errormessage="请输入正确的email!" />
<P></P>
留言内容:
<P></P>
<textarea id="content" cols="40" rows="4" runat="server"></textarea>
<asp:RegularExpressionValidator ID="valid3" Runat="server" ControlToValidate="content" validationexpression=".{10,510}"
errormessage="留言太短,视为灌水，最大汉字数为255!" Width="152px" />
<P></P>
<input type="button" value="server">
</form>
</body>
</HTML>

错误原因"
行 16： myconn.open()
行 17： query="select max(id) as id from mylist"
行 18： dim cmd as oledbcommand(query,myconn)
行 19： dim reader as oledbdatareder=cmd.executereder()
行 20： reader.read()
源文件: http://localhost/sendemail/WebForm1.aspx 行: 18

我哪里错了，不里都正确的吗

...全文