---
title: "unexpected next?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122613-unexpected-next"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2005-02-16T19:38:03.000Z"
updated: "2005-02-16T20:15:54.000Z"
replies: 7
views: 273
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/122613-unexpected-next"
---

# unexpected next?

## #1 — timedia, 2005-02-16T19:38Z

Vad gör jag fel idag? Får Unexpected 'Next' som felmeddelande.

```
foname = request.querystring("obj")
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder2 = FSO2.GetFolder(server.mappath("bild/"&foname&""))
set Files = Folder2.Files 

For each Item In Files
	if left(Item.Name,3) = "th_" then
	Response.Write "<table>" & vbCrLf
        Response.Write "<tr>" & vbCrLf
        Do
		If x mod 3=0 and x>1 Then Response.Write "</tr><tr>" & vbCrLf

            Response.Write "<td>" & vbCrLf
	response.write item.name &"<br>"
		strFileName = item.name
		response.write "<img src ='bild/"& foname &"/"& strFileName &"'>"
		            Response.Write "</td>" & vbCrLf
					x=x+1
        Loop  Until files.EOF
Next
```

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

## #2 — LarsG, 2005-02-16T19:41Z

Det finns ingen end if för

```
if left(iItem.Name,3) = "th_" then
```

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

## #3 — @nders, 2005-02-16T19:41Z

Du har gjort något konstigt. *do* hör ihop med *until*, men jag förstår inte alls varför du har en do-loop där?

Börja med att ta bort *do*\- och *loop*\-raderna.

Om du indenterar koden ordentligt är det lättare att se vad som är konstigt.

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

## #4 — timedia, 2005-02-16T19:48Z

Nu säger den:

```
Microsoft VBScript runtime error '800a01b6' 
Object doesn't support this property or method: 'EOF' 

/husshow.asp, line 122
```

Följande kod funkar, men jag vill göra så att den skriver en tabellrad med 3 bilder - så en ny rad med 3 o.s.v. 

```
foname = request.querystring("obj")
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder2 = FSO2.GetFolder(server.mappath("bild/"&foname&""))
set Files = Folder2.Files 

For each Item In Files

	if left(Item.Name,3) = "th_" then
	response.write item.name &"<br>"
		Dim strFileName
		strFileName = item.name
		response.write "<img src ='bild/"& foname &"/"& strFileName &"'><br>"
	end if
Next
```

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

## #5 — @nders, 2005-02-16T19:52Z

EOF använder du när du leker med recordsets, jag förstår inte varför du har med det i den här koden?

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

## #6 — jonnyz, 2005-02-16T19:59Z

Kanske finns snyggare sätt att lösa det på. Känner mig rätt slut i huvudet, men detta bör fungera:

```
counter=0
For each Item In Files
   If left(Item.Name,3) = "th_" then
      counter=counter+1
      response.write item.name &"<br>"
      Dim strFileName
      strFileName = item.name
      response.write "<img src =""bild/" & foname & "/" & strFileName &""">"
      if counter=3 then
         counter=0
         response.write "<br>"
      end if
   end if
Next
```

Alltså, du räknar hur mycket du skrivit ut och när du kommer till tre byter du rad och börjar om igen.

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

## #7 — timedia, 2005-02-16T20:02Z

Tack för snabb hjälp! Följande funkar:

```
foname = request.querystring("obj")
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder2 = FSO2.GetFolder(server.mappath("bild/"&foname&""))
set Files = Folder2.Files 
	Response.Write "<table>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
For each Item In Files
	if left(Item.Name,3) = "th_" then
       		If x mod 3=0 and x>1 Then Response.Write "</tr><tr>" & vbCrLf
            	Response.Write "<td>" & vbCrLf
				strFileName = item.name
				Response.write "<img src ='bild/"& foname &"/"& strFileName &"'></a>"
		    	Response.Write "</td>" & vbCrLf
				x=x+1
			end if
Next
	end if
```

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

## #8 — @nders, 2005-02-16T20:15Z

Jag rekommenderar ändå att du ser till att indentera koden ordentligt, så den går att läsa.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122613-unexpected-next