--- title: "Microsoft VBScript compilation error '800a0400'" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/89489-microsoft-vbscript-compilation-error-800a0400" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "plelkes" published: "2003-11-02T18:41:47.000Z" updated: "2003-11-02T18:46:40.000Z" replies: 1 views: 288 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/89489-microsoft-vbscript-compilation-error-800a0400" --- # Microsoft VBScript compilation error '800a0400' ## #1 — plelkes, 2003-11-02T18:41Z Får inte nedanstående fungera ``` <%@LANGUAGE="VBSCRIPT" "%> kryss lista <% If Request.QueryString("type") = "" Then intType = 1 Else intType = CInt(Request.QueryString("type")) End If Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\vatskebalans\db\vbalans.mdb") %>
  <%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID" Set objRS = objConn.Execute(strSQL) If NOT objRS.EOF Then Response.Write("
" & objRS("TypeNamn") & "
")%>
><%intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0) For i = 1 To intLast Set objRS = objConn.Execute("SELECT TypeNamn FROM tblFluidTypes WHERE TypeID = " & i) If NOT i = intType Then Response.Write("" & objRS("TypeNamn") & "
") Else End If Next %>		 <%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID" Set objRS = objConn.Execute(strSQL) Do Until objRS.EOF Response.Write objRS("FluidNamn") objRS.MoveNext Loop Else Response.Write("Det finns inga av den typen.") End If <%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID" Set objRS = objConn.Execute(strSQL) Do Until objRS.EOF
" objRS.MoveNext Loop Else Response.Write("Det finns inga av den typen.") End If Response.Write("
")
<% Response.Write "" Set objRS = Nothing objConn.Close : Set objConn = Nothing %> ``` Hela tiden samma fel mess > Microsoft VBScript compilation error '800a0400' > > Expected statement > > /vatskebalans/kryss.asp, line 53 > > \ > ^ rad 51 - 61 ``` End If <%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID" Set objRS = objConn.Execute(strSQL) Do Until objRS.EOF
" objRS.MoveNext Loop Else Response.Write("Det finns inga av den typen.") End If ``` Permalänk: https://www.webforum.nu/p/89489 ## #2 — @nders, 2003-11-02T18:46Z Det verkar som om du glömmer avsluta dina asp-block med %\> ibland, vilket innebär att asp-tolken försöker tolka dina HTML-taggar som asp. Permalänk: https://www.webforum.nu/p/1196590 --- Tråden på webben: https://www.webforum.nu/amne/asp/89489-microsoft-vbscript-compilation-error-800a0400