---
title: "Programsats förväntas."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/96845-programsats-förväntas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mikul"
published: "2004-02-08T17:12:59.000Z"
updated: "2004-02-09T14:58:05.000Z"
replies: 8
views: 552
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/96845-programsats-förväntas"
---

# Programsats förväntas.

## #1 — mikul, 2004-02-08T17:12Z

tjo!
Jag behöver hjälp med att se vad jag har missat på... 
Som dyslektiker så missar man ibland en del lätta småsaker och har svårt att hitta dom ibland...

```
[b]Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0400)
Programsats förväntas.
/web/gb.asp, line 88
Wend[/b]

if not IsNull(request.form("textfld")) Then
     Call saveit()
else
   		
     '// Show it
     Dim SQL, Connect, rs
      	
     SQL = "Select * from gb order by id desc;"
      	      
     Set Connect = Server.createobject("Adodb.connection")
          Connect.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source="& Server.MapPath("db.mdb")
      	
          Set rs = Connect.Execute(SQL)
      		
               If not rs.eof then
                    while not rs.eof
      
%>
      
      
                         <hr noshade color="#000000" size="1">
                         <table border="3" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%" id="AutoNumber3" bgcolor="#F9F9F9">
                              <tr>
                                <td width="33%">Topic: <%= rs("topic")%></td>
                                <td width="33%">Name: <a href ="mailto:<%=rs("email")%>"><%=rs("name")%></a></td>
                                <td width="34%">Date:<%= rs("addDate")%></td>
                              </tr>
                              <tr>
                                <td width="100%" colspan="3" bgcolor="#EAEAEA"><%= rs("textfld")%>&nbsp;</td>
                              </tr>
                              <tr>
                                <td width="100%" colspan="3">Answer: <% = rs("answer") %></td>
                              </tr>
                            </table>
   
<%
                         rs.movenext	
                    Wend
               End if
               rs. Close()
          Set rs = Nothing
          Connect.Close()
     Set Connect = Nothing	
end if
```

Mvh,

Permalänk: https://www.webforum.nu/p/96845

## #2 — cyprys, 2004-02-08T17:28Z

vilken är raden som det är fel på?
kan det vara detta?

```
rs. Close()
```

Att det inte sitter ihop?

Permalänk: https://www.webforum.nu/p/1271211

## #3 — mikul, 2004-02-08T17:31Z

Nej tvärr...
Felmesset syftar på raden där det står wend.

Permalänk: https://www.webforum.nu/p/1271214

## #4 — cyprys, 2004-02-08T17:45Z

Jag hittar faktiskt inget fel? Kanske jag som är blind också iofs.
Men testat att ta bort allt mellan loopen och bara skriva ut ett HEJ! ungefär. Kanske är någon utdata från databasen som avbryter asp-koden eller likn?

Permalänk: https://www.webforum.nu/p/1271218

## #5 — OveRRidE, 2004-02-08T18:22Z

> **cyprys skrev:**
>
> Kanske är någon utdata från databasen som avbryter asp-koden eller likn?

Nja, kodens 'rätthet' tolkas ju innan den körs, så det är nog inte det, men man vet aldrig. Jag skulle dock inte sätta några pengar på det. ;)

Skriv ihop rs och .close() iallfall, det är nämligen syntaxmässigt fel som det är nu.

Permalänk: https://www.webforum.nu/p/1271230

## #6 — mikul, 2004-02-08T19:15Z

Jag har redan skrivit ihop det. Hade missat det.
Det funkade dock inte. Skall göra lite fler tester när jag kommer hem.

Permalänk: https://www.webforum.nu/p/1271245

## #7 — mikul, 2004-02-09T10:59Z

Jag hittade felet :P :birp
Och jag kan säga att det va ögonen det va fel på.
Hade nämligen missat \<% på ett ställe, vilket resulterar i att while slingan inte startade  :P

hehe, tack för hjälpen i alla fall!

Permalänk: https://www.webforum.nu/p/1271507

## #8 — m_soderlund, 2004-02-09T12:26Z

Bakläxa mikul! <http://www.webforum.nu/misc.php?s=&action=faq&page=2#status> :D

Permalänk: https://www.webforum.nu/p/1271549

## #9 — mikul, 2004-02-09T14:58Z

Jag vet! Jag bara väntade på att nån skulle säga till mig :P :e

Permalänk: https://www.webforum.nu/p/1271650

---

Tråden på webben: https://www.webforum.nu/amne/asp/96845-programsats-förväntas