Programsats förväntas.

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,

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

rs. Close()

Att det inte sitter ihop?

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

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?

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.

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

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!

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

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