Asp classic ASP vb编译错误800A03EA

我不是一个ASP的家伙，但我最近继承了一个ASP项目。我的任务基本上是将其简化，使过去10年中构建的所有功能在视觉上和体验上更好地为用户服务

到今天为止一切都很好。我收到以下错误消息：

Microsoft VBScript compilation error '800a03ea'

Syntax error

/test/calsearchmember.asp, line 3

if ((Request.Form("dateToToggle").Item >=0) && (Request.Form("dateToToggle").Item<=31))
---------------------------------------------^

Microsoft VBScript编译错误“800a03ea”
语法错误
/test/calsearchmember.asp，第3行
如果（（Request.Form（“datetoggle”）.Item>=0）和（&（Request.Form（“datetoggle”）.Item您还需要一个
，那么在末尾：

if ((Request.Form("dateToToggle").Item >=0) and (Request.Form("dateToToggle").Item<=31)) then

如果（（Request.Form（“datetoggle”）.Item>=0）和（Request.Form（“datetoggle”）.Item看起来默认语言从JScript更改为VBScript，那么将其更改回JScript

IIS 5:（也应适用于6）

管理控制台→ 右键单击网站→ 性质→ 主目录选项卡→ 配置按钮→ 选择权→ 在“默认ASP语言”下键入JScript并确认

IIS 7.5:

管理控制台→ 非法移民→ ASP→ 汇编→ 脚本语言→ 键入“JScript”并确认

7.5的屏幕截图使其更加清晰：



谢谢你的想法，但我已经很不幸地尝试过了，除了另一个错误外，没有任何结果：“Microsoft VBScript编译错误'800a03f9'预期'Then'”对不起，我应该在上面的评论中注明更多。它使用了花括号，所以
if（（Request.Form（“datetoggle”）.Item>=0）和（Request.Form（“datetoggle”）.ItemOK-看起来那里似乎没有VBScript文件。这看起来像是JScript文件。请尝试逆转目前建议的更改，简单地将page指令更改为good idea。它是一个asp文件，包含在
标记之间，然后跳入和跳出js和vb（我认为）。我将在今晚晚些时候或明天早些时候重新查看该文件并与您联系。但是，它仍然无法解释此备份站点突然中断而未对其进行任何更改。：\感谢您的详细回复。我刚刚更新了原始帖子以显示更多代码。考虑到新信息，您认为这仍然是问题所在吗？如果是这样的话，根目录是如何不受影响的，只是我的
/test/
目录？@John这绝对是JScript。将脚本标记更改为：
，它应该可以工作。刚刚尝试过，出现了以下错误：
Active Server Pages错误'ASP 0234'无效include指令/test/mainheader.inc，第20行服务器端includede指令可能不存在于脚本块中。请使用标记的SRC=属性。
然后当我将该包含文件放入
SRC
中时，它会出现以下错误：
Microsoft JScript编译错误“800a03ea”语法错误/test/sidebarclientscript.inc，第1行，如果有帮助，这是有问题的页面：
<%
if ((Request.Form("dateToToggle").Item >=0) && (Request.Form("dateToToggle").Item<=31))
{
    var sql;
    var date = Request.Form("calsearchmonth") + "/" + Request.Form("dateToToggle") + "/" + Request.Form("calsearchyear")

    if (Request.Form("bNewStateOpen").Item == "true")
    {
        sql = "SELECT * FROM OpenDates WHERE MemberId = ";
        sql += Request.Form("calsearchmember");
        sql += " AND DateValue(OpenDate) = DateValue('";
        sql += date;
        sql += "') AND TimeValue(OpenDate) = ";

        if (Request.Form("calsearchPM").Item == "1")
            sql += "TimeValue('12:00:00 PM')";
        else
            sql += "''";

        //Response.Write(sql);
        var rs = db.Execute(sql);
        if (rs.EOF)
        {
            sql = "INSERT INTO OpenDates (MemberId, OpenDate) VALUES ("
            sql += Request.Form("calsearchmember").Item
            sql += ", '"
            sql += date;
            if (Request.Form("calsearchPM").Item == "1")
                sql += " 12:00:00 PM";
            sql += "')"

            //Response.Write("<BR>"+sql);
            db.Execute(sql);
        }
    }
           %>`

if ((Request.Form("dateToToggle").Item >=0) and (Request.Form("dateToToggle").Item<=31)) then