ASP预计END错误800a03f6

时间:2013-07-05 12:32:34

标签: asp-classic vbscript

asp新手在这里。我一直收到这个错误,

预期'结束'

/BusMaintenance/v1/submit.asp,line 40

以下(非常简单)代码。其唯一目的是从另一页面提交表单并将其添加到数据库中。

<!--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"
%>

我已经检查了四倍,但我无法发现问题。似乎是语法错误,但???

感谢您的帮助。

0 个答案:

没有答案