--- title: "Microsoft VBScript compilation error '800a0400'" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/74127-microsoft-vbscript-compilation-error-800a0400" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "plelkes" published: "2003-04-15T07:07:09.000Z" updated: "2003-04-16T10:29:35.000Z" replies: 36 views: 776 page: 1 pages: 2 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/74127-microsoft-vbscript-compilation-error-800a0400" --- # Microsoft VBScript compilation error '800a0400' _Sida 1 av 2._ ## #1 — plelkes, 2003-04-15T07:07Z Hej, modifieringar på admin-sida har medfört massor med felmeddelanden... Har egnat hela morgonen åt att göra som man bör, dvs leta reda på svaren själv. Men på denna senaste går jag bet på!! Fel-meddelandet ser ut som följer: > Microsoft VBScript runtime error '800a01b6' > Object doesn't support this property or method: 'EOF' > /plelkes/redigera.asp, line 28 Sidans kod: ``` <% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else %> Redigera <% Session.LCID = 1053 dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL, strSQL1, rs1 Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL =" SELECT * FROM guestbook ORDER by ID DESC" strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" rs1 = minCon.Execute(strSQL1) Do while not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Loop Response.Write "




" Response.Write "
" Response.Write "" Do While Not rsGbok.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsGbok.MoveNext Loop Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" rsGbok.Close Set rsGbok = Nothing Set minCon = Nothing End If %> ``` Rad 28 är: ``` Do while not rs1.EOF ``` Permalänk: https://www.webforum.nu/p/74127 ## #2 — @nders, 2003-04-15T07:10Z ``` [b]set[/b] rs1 = minCon.Execute(strSQL1) ``` Mvh Permalänk: https://www.webforum.nu/p/1011038 ## #3 — @nders, 2003-04-15T07:17Z Du öppnar aldrig rsGbok heller, du exekverar inte strSQL. Permalänk: https://www.webforum.nu/p/1011040 ## #4 — plelkes, 2003-04-15T07:24Z > Du öppnar aldrig rsGbok heller, du exekverar inte strSQL. Anders, det fungerade innan jag började med mina modifieringar! Permalänk: https://www.webforum.nu/p/1011044 ## #5 — plelkes, 2003-04-15T07:44Z > Du öppnar aldrig rsGbok heller, du exekverar inte strSQL. Jag såg att raden ``` rsGbok.Open strSQL, minCon, 3, 3 ``` fallit bort Men om jag har med den raden, så får jag följande fel > ADODB.Recordset error '800a0bb9' > > Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. > > /plelkes/redigera.asp, line 25 rad 21 - 40 ``` Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") rsGbok.Open strSQL, minCon, 3, 3 strSQL =" SELECT * FROM guestbook ORDER by ID DESC" strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set rs1 = minCon.Execute(strSQL1) Do while not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Loop Response.Write "




" Response.Write "
" Response.Write "" Do While Not rsGbok.EOF Response.Write "" Response.Write "" rsGbok.MoveNext Loop ``` Snälla hjälp mig - börjar bli galen! Permalänk: https://www.webforum.nu/p/1011050 ## #6 — Engine^, 2003-04-15T07:47Z Det kommer i lite fel ordning... ``` strSQL =" SELECT * FROM guestbook ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 ``` Permalänk: https://www.webforum.nu/p/1011051 ## #7 — plelkes, 2003-04-15T07:56Z Fungerar ej snyft!! dvs tabellen, checkboxar och knappen funkar, men inte kollen om jag är inloggad, eller välkomsthälsningen Permalänk: https://www.webforum.nu/p/1011052 ## #8 — plelkes, 2003-04-15T08:06Z För att förtydliga mig: det jag vill åstadkomma är: 1. kolla om rätt person är inloggad 2. om ja, i såfall skriv hälsningsfras med det förnamn som korellerar till passw 3. skriv ut tabellen 1) har jag löst med forumets hjälp: ``` <% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else %> ``` **punkt 2 har jag tänkt lösa med följande** ``` strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set rs1 = minCon.Execute(strSQL1) Do while not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Loop ``` Punkt 3 fungerad förrut ``` <% Session.LCID = 1053 dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL =" SELECT * FROM guestbook ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 Response.Write "

" Response.Write "Nu kan du" & rs.guests.admin("Fnamn") Response.Write "redigera gästboken!" Response.Write "




" Response.Write "" Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Do While Not rsGbok.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsGbok.MoveNext Loop Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" rsGbok.Close Set rsGbok = Nothing Set minCon = Nothing End If %> ``` ***Om nu delarna fungerar, så varför kan jag ej sy ihop det hela?*** Permalänk: https://www.webforum.nu/p/1011057 ## #9 — Engine^, 2003-04-15T08:10Z Om kollen för inloggningen inte fungerar, så beror väl det antagligen på att din inloggningsfunktion inte gör det den ska. Du kan ju alltid testa att pilla i global.asa och skippa inloggningsförfarandet, för att se om du gör rätt... ``` Sub Session_OnStart Session("inloggad") = "" [blue]'Nu ska inget visas på gästbokssidan... . . .[/blue] End Sub ``` Välkomsthälsningen? Ska det vara den *Nu kan du xxxxx redigera*? Isånnafall kan du ju ändra lite på den kodbiten... ``` strSQL1 ="SELECT * FROM admin WHERE password = '" & [blue]'Stoppa in något du vet finns här[/blue] & "'" Set rs1 = minCon.Execute(strSQL1) If rs1.EOF Then Response.Write "

Ingen data hittades.

" Else Response.Write rs1.RecordCount & " st poster hittades." While Not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Wend End If ``` Permalänk: https://www.webforum.nu/p/1011058 ## #10 — plelkes, 2003-04-15T08:14Z > Response.Write rs1.RecordCount & " st poster hittades." varför har du med denna rad? Permalänk: https://www.webforum.nu/p/1011060 ## #11 — Engine^, 2003-04-15T08:16Z Åh, bara för informationens skull. Helt onödig egentligen i det här sammanhanget, men en vanesak från min sida när jag felsöker ;) Permalänk: https://www.webforum.nu/p/1011062 ## #12 — plelkes, 2003-04-15T08:24Z Nu har jag försökt med nedanstående: ``` <% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else %> Redigera <% If Session ("Inloggad") = "Ja" then strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set rs1 = minCon.Execute(strSQL1) While Not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Wend %> Redigera <% Session.LCID = 1053 dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL =" SELECT * FROM guestbook ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 Response.Write "

" Response.Write "" Do While Not rsGbok.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsGbok.MoveNext Loop Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" rsGbok.Close Set rsGbok = Nothing Set minCon = Nothing %> <% Else Response.Write "Du är inte auktoriserad" End If %> ``` Får då meddelandet: > Microsoft VBScript compilation error '800a03f6' > > Expected 'End' > > /plelkes/redigera.asp, line 74 Men rad 74 är ju: ``` End If %> ``` Permalänk: https://www.webforum.nu/p/1011066 ## #13 — Poffe, 2003-04-15T08:27Z Du frågar ju om Session("Inloggad") = "Ja" två ggr, känns onödigt ;) Dessutom sätter du inte in End If för den första frågan. Men om du tar bort den första kontrollen så ska det nog funka Permalänk: https://www.webforum.nu/p/1011068 ## #14 — Engine^, 2003-04-15T08:33Z Det är den andra kontrollen som ska bort, annars kommer det med onödig html på sidan. Det är den andra *If Session("inloggad") = "Ja" Then*, som orsakar felet. Rad 74 har egentligen ingenting med det att göra. Permalänk: https://www.webforum.nu/p/1011072 ## #15 — Poffe, 2003-04-15T08:35Z Oj, helt rätt. Tänkte inte på att inte ``` ``` var innanför Else Permalänk: https://www.webforum.nu/p/1011074 ## #16 — plelkes, 2003-04-15T08:47Z Tyvärr så funkar det inte oavsett vilken av if´en jag tar bort kod1 ``` <% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set rs1 = minCon.Execute(strSQL1) While Not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Wend %> Redigera <% Session.LCID = 1053 dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL =" SELECT * FROM guestbook ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 Response.Write "

" Response.Write "" Do While Not rsGbok.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsGbok.MoveNext Loop Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" rsGbok.Close Set rsGbok = Nothing Set minCon = Nothing End If %> ``` kod 2 ``` <% If Session ("Inloggad") = "Ja" then strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set rs1 = minCon.Execute(strSQL1) While Not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Wend %> Redigera <% Session.LCID = 1053 dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL Set minCon = Server.CreateObject("ADODB.Connection") set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL =" SELECT * FROM guestbook ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 Response.Write "

" Response.Write "" Do While Not rsGbok.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsGbok.MoveNext Loop Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" rsGbok.Close Set rsGbok = Nothing Set minCon = Nothing %> <% Else Response.Write "Du är inte auktoriserad" End If %> ``` både ger samma fel > Microsoft VBScript runtime error '800a01a8' > > Object required: '' fast på olika rader Permalänk: https://www.webforum.nu/p/1011081 ## #17 — Sebbe, 2003-04-15T08:52Z Du måste sätta raden ``` Set minCon = Server.CreateObject("ADODB.Connection") ``` innan raden ``` Set rs1 = minCon.Execute(strSQL1) ``` Permalänk: https://www.webforum.nu/p/1011088 ## #18 — plelkes, 2003-04-15T08:56Z Sebbe, menar du så här: ``` <% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else Set minCon = Server.CreateObject("ADODB.Connection") strSQL1 ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set rs1 = minCon.Execute(strSQL1) While Not rs1.EOF Response.Write "

" Response.Write "Nu kan du " & rs1("Fnamn") Response.Write "redigera gästboken!" rs1.MoveNext Wend %> Redigera <% Session.LCID = 1053 dim minCon 'Connection dim rsGbok 'recordsetten för nya inlägg dim strSQL set rsGbok = Server.CreateObject("ADODB.Recordset") minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL =" SELECT * FROM guestbook ORDER by ID DESC" rsGbok.Open strSQL, minCon, 3, 3 Response.Write "

" Response.Write "" Do While Not rsGbok.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsGbok.MoveNext Loop Response.Write "

" Response.Write rsGbok("Namn") Response.Write "

" Response.Write rsGbok("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" rsGbok.Close Set rsGbok = Nothing Set minCon = Nothing End If %> ``` Funkar ej > ADODB.Connection error '800a0e78' > > Operation is not allowed when the object is closed. > > /plelkes/redigera.asp, line 7 Permalänk: https://www.webforum.nu/p/1011094 ## #19 — Engine^, 2003-04-15T08:58Z Små förändringar, men rätt ordning på sakerna... ``` <% If Not Session ("Inloggad") = "Ja" then Response.Write "Du är inte auktoriserad" Else Dim strSQL, objRS, objConn Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.RecordSet") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\plelkes\db\guests.mdb") strSQL ="SELECT * FROM admin WHERE password = '" & Request.Form("pword")&"'" Set objRS = objConn.Execute(strSQL, , 1) While Not objRS.EOF Response.Write "

" Response.Write "Nu kan du " & objRS("Fnamn") Response.Write "redigera gästboken!" objRS.MoveNext Wend %> Redigera <% Session.LCID = 1053 strSQL =" SELECT * FROM guestbook ORDER by ID DESC" Set objRS = objConn.Execute(strSQL, , 1) Response.Write "

" Response.Write "" Do While Not objRS.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" objRS.MoveNext Loop Response.Write "

" Response.Write objRS("Namn") Response.Write "

" Response.Write objRS("Message") Response.Write "" Response.Write "" Response.Write "
" Response.Write "" Response.Write "
" objRS.Close Set objRS = Nothing Set objConn = Nothing End If %> ``` Permalänk: https://www.webforum.nu/p/1011095 ## #20 — plelkes, 2003-04-15T09:09Z Fungerar fortfarande inte att: 1) bara se sidan när man är inloggad 2) skriva ut välkomsthälsningen Permalänk: https://www.webforum.nu/p/1011103 --- Tråden på webben: https://www.webforum.nu/amne/asp/74127-microsoft-vbscript-compilation-error-800a0400 Nästa sida: https://www.webforum.nu/amne/asp/74127-microsoft-vbscript-compilation-error-800a0400/page2.md