---
title: "WHILE... WEND"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/109506-while-wend"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Eclipse"
published: "2004-08-18T09:41:16.000Z"
updated: "2004-08-18T10:42:20.000Z"
replies: 6
views: 354
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/109506-while-wend"
---

# WHILE... WEND

## #1 — Eclipse, 2004-08-18T09:41Z

Min loop stannar på 2! Det blir server buffer limit exceed...

```
' ## CHECK IF FILE EXISTS
DIM fso, myFileName, myArray
DIM strFileName, strExt, intCounter

SET fso = CreateObject("Scripting.FileSystemObject")
myFileName = mySmartUpload.Files.Item(1).FileName

IF fso.fileExists( server.MapPath("\files\" & myFileName ) ) THEN
	myArray = split( myFileName, ".", -1, 1)

	strFileName = myArray(0)& "_"
	intCounter  = 1
	strExt      =  "." & myArray(1)
	myFileName = strFileName & intCounter & strExt

	' ## CHECK FOR DUPLICATES
	WHILE (fso.fileExists(server.MapPath("\files\" & myFileName)))
		[b]myFileName = strFileName & CInt(intCounter) +1 & strExt[/b]
	WEND
END IF
```

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

## #2 — Eclipse, 2004-08-18T09:53Z

Detta felmeddelandet får jag...

```
Response object error 'ASP 0251 : 80004005' 

Response Buffer Limit Exceeded 

/admin/newsSE/aspSmart_insert.asp, line 0 

Execution of the ASP page caused the Response Buffer to exceed its configured limit.
```

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

## #3 — M.Cheraghi, 2004-08-18T09:57Z

Är filen du försöker ladda upp 200Kb+ och det körs under IIS 6?
Eller får du samma felmess med allla filer, jag hade ett liknande problem, och det var med filer som var 200Kb+

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

## #4 — Eclipse, 2004-08-18T10:00Z

Nej. Filerna jag testat med har varit små ikoner på några byte.

Testade precis med en annan liten pluttefil och jag kan ladda dessa:
trash.gif
trash_1.gif
trash_2.gif
view.gif
view_1.gif
view_2.gif

När jag försöker ladda upp ytterligare en fil, oavsett vilken, så går det inte!

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

## #5 — Sebbe, 2004-08-18T10:16Z

Du har glömt bort att öka på intCounter varje varv.

```
WHILE (fso.fileExists(server.MapPath("\files\" & myFileName)))
	myFileName = strFileName & CInt(intCounter) +1 & strExt
	[b]intCounter = intCounter + 1[/b]
WEND
```

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

## #6 — Eclipse, 2004-08-18T10:40Z

Hmm... Tack!

\*\*\*
Hur tar jag bort en fil? Det står inget om det i dokumentationen...

(Kod från annan komponent. Fungerar ej.)

```
' ## CREATE OBJECT
Set mySmartUpload  = Server.CreateObject("aspSmartUpload.SmartUpload")
[b]mySmartUpload.DeleteFile[/b] Server.MapPath("\files\") & "/" & mySQL(1)
```

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

## #7 — Sebbe, 2004-08-18T10:42Z

Det får du nog använda FSO till.

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(Server.MapPath("\files\") & "/" & mySQL(1))
Set objFSO = Nothing
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/109506-while-wend