---
title: "Alternativ visning (<%Else%>) loop utan do"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/172425-alternativ-visning-else-loop-utan-do"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MHZ"
published: "2008-06-27T10:02:08.000Z"
updated: "2008-06-27T12:36:32.000Z"
replies: 1
views: 341
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/172425-alternativ-visning-else-loop-utan-do"
---

# Alternativ visning (<%Else%>) loop utan do

## #1 — MHZ, 2008-06-27T10:02Z

Hej. Jag har fått hjälp nyss med paging för detta men när jag sen skulle lägga in den alternativa visningen ifall ingen bild är uppladdad fungerar det inte längre. Nått i koden måste ändras för att passa in sen pagingen kom med.
I det script jag lånat det från gör man enligt det nadan men hoppas nån kan hjälpa mig med det nu när det blev omgjort.

Får felkod:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A040E)
'loop' utan 'do'

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
SQL = "Select * From galleri Where sort='" & Request.Querystring("kat") & "' Order By namn"

Set RecSet = Server.CreateObject("ADODB.Recordset")

RecSet.Open SQL, Conn, 1, 3

RecSet.PageSize = 5    'Antal poster som ska visas

X=0

If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
intPage = 1

Else

intPage = CInt(Request.QueryString("page"))
End If

RecSet.AbsolutePage = intPage  

DO UNTIL RecSet.EOF OR X = RecSet.PageSize

Set RS=Conn.Execute("Select * From galleri Where namn='" & RecSet("namn") & "'")
Set ReS=Conn.Execute("Select Top 1 * From bilder Where namn='" & RecSet("namn") & "' Order By datum desc")
Set Bilder=Conn.Execute("Select Count(*) As antal From bilder Where namn='" & RecSet("namn") & "'")

If RecSet.EOF Then
%>

  <tr>
    <td><img src="pics/tom.gif" width="90" border="1"></td>
    
    <td valign="top" class="normal" width="295">
    <%=RecSet("namn")%>(Inga bilder)<br>
             
    <%If Len(RS("info")) > 60 Then%><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%>
    </td>
  </tr>
  
<%Else%>  

  <tr>
    <td><a href="visa.asp?id=<%=RecSet("namn")%>"><%=RecSet("namn")%></a>(<i><%=Bilder("Antal")%><%If Bilder("Antal") = 1 Then%> bild<%Else%> bilder<%End If%></i>)</td>
  </tr>
  

  <tr>
    <td><a href="visa.asp?id=<%=RecSet("namn")%>"><img src="pics/<%=ReS("Bild")%>" width="397" border="0"></a></td>
  </tr>
    
  <tr>
    <td><%If Len(RS("info")) > 60 Then%></b><%= Left(Replace(RS("info"), vbCrLf, "<br>" ),60)%>..<%Else%><%=Replace(RS("info"), vbCrLf, "<br>" )%><%End If%></td>
  </tr>
  
<%
X=X+1
RecSet.MOVENEXT
LOOP
%>
```

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

## #2 — Ledel, 2008-06-27T12:36Z

Lägg till en end if innan loop, för annars finns ju bara loop i else-satsen.
\<%
end if
X=X+1
RecSet.MOVENEXT
LOOP
%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/172425-alternativ-visning-else-loop-utan-do