Asp classic ASP预期结束错误800a03f6
这里是asp新手。我一直在犯这个错误, 预期“结束” /BusMaintenance/v1/submit.asp,第40行 在下面(非常简单)的代码中。这样做的唯一目的是从另一个页面获取表单提交并将其添加到数据库中Asp classic ASP预期结束错误800a03f6,asp-classic,vbscript,Asp Classic,Vbscript,这里是asp新手。我一直在犯这个错误, 预期“结束” /BusMaintenance/v1/submit.asp,第40行 在下面(非常简单)的代码中。这样做的唯一目的是从另一个页面获取表单提交并将其添加到数据库中 <!--METADATA TYPE="TypeLib" NAME="Microsoft ActiveX Data Objects 2.6 Library" UUID="{00000206-0000-0010-8000-00AA006D2EA4}" VERSION="2.6" -
<!--METADATA
TYPE="TypeLib"
NAME="Microsoft ActiveX Data Objects 2.6 Library"
UUID="{00000206-0000-0010-8000-00AA006D2EA4}"
VERSION="2.6"
-->
<!--#include file="../conf/adovbs.inc"-->
<!--#include file="../conf/conf_asp.asp"-->
<!--#include file="../inc/system/library.inc"-->
<!--#include file="../inc/system/signedHeader.asp"-->
<%
Dim adoCon
Dim rsAddResults
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\wwwroot\dev_sites\BusMaintenance\db\FMS.mdb;"
Set rsAddResults = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT TestTable.UserName, TestTable.Position FROM TestTable;"
rsAddResults.LockType = adLockBatchOptimistic
rsAddResults = selSQL(strSQL)
rsAddResults.AddNew
rsAddResults.Fields("UserName")= Request.Form("UserName")
rsAddResults.Fields("Position")= Request.Form("Position")
rsAddResults.Update
'rsAddResults.Close
'adoCon.Close
'Set rsAddResults = Nothing
'Set adoCon = Nothing
Response.Redirect "index.asp"
%>
我已经检查了四次了,但我没发现问题。似乎是语法错误,但是
谢谢你的帮助 检查您的包含文件。似乎可能有一个没有“End Function”的“Function…()”,或者有一个没有“End If”的“If”。它很可能在包含中。我希望它能这么简单。其他包含相同文件(和边界相同代码)的文件运行正常。这里有东西!:)我会先尝试删除所有包含项,然后逐个添加它们。之后,对代码执行相同的操作。只需将所有内容注释掉,然后逐行重新启用即可。你应该能够通过这种方式找到原因……我看不到任何需要结束的条件代码或循环代码。你可以试着注释行直到它工作。试着按照你们的建议注释行,但找不到错误。我已经绕过了这个问题,而不是通过它,所以我想这个问题是没有意义的。有没有办法结束一个问题?