帮忙看看我写的一个练习小程序什么地方错了,不能在服务器上运行
我刚开始学ASP拜托了
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<meta name="generator" content="microsoft frontpage 4.0>
<meta name="progid" content=frontpage.editor.documet">
<title>编故事主页</title>
</head>
<body >
<center>
<h1>
<font color="#aaffaa">
欢迎你来编故事
</font>
<h1>
<h3>
<hr>
<a href="submitstory.asp">编写故事</a>
<p>
<a href="browsestory.asp">浏览故事</a>
</h3>
<hr>
</center>
</body>
</html>
<% response.buffer=true %>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<meta name="generator" content="microsoft frontpage 4.0>
<meta name="progid" content=frontpage.editor.documet">
<title>编个小小故事</title>
</head>
<body bgcolor="#aaffbb">
<form action"" method="post">
<table border=0>
<tr>
<td>姓名:
<td><input type="text" size="20" name="name">
</tr>
<tr>
<td>EMAIL:
<TD><INPUT TYPE="TEXT" SIZE"56" NAME="EMAIL">
</TR>
<TR VALIGN=TOP>
<td>小故事:
<td><textarea name="story" rows="8" cols="56">
</textarea>
</tr>
</table>
<center>
<input type=submit value="提交">
</form>
</body>
</html>
<%
story=request("story")
name=request("name")
email=request("email")
if story<>"" and name<>"" and emil<>"" then
set myfs=server.createobject("scripting.filesystemobject")
set mytf=myfs.opentextfile("258.txt",8,ture)
nextline="<" & name & "|" & email & "|" &story & ">"
mytf.writeline(nextline)
mytf.close
end if
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<meta name="generator" content="microsoft frontpage 4.0>
<meta name="progid" content=frontpage.editor.documet">
<title>浏览小故事</title>
</head>
<body>
<%
set myfs=server.createobject("scripting.filesystemobject")
if myfs.fileexists("258.txt") then
set mytf=myfs.opentextfile("258.txt",1)
while not mytf.atendofstream
text=mytf.readline
response.write(" " & text)
wend
mytf.close
else
%>
<hr>
<h3>
搜索不到故事!
</h3>
</hr>
<%
end if
%>
</body>
</html>