ASPUpload gemmer ikke filer korrekt

Hejsa. Sidder og leget med aspupload og filnavne.
Har lavet det sådan at når man uploader en fil skal den gemmes som 0_xxx.jpg og hvis den eksisterer skal den gemmes som 1_xxx.jpg.

Problemet er bare at den ikke får fat i den loop jeg har lavet, sådan at hvis filen eksisterer f,eks 0_xxx.jpg så kalder den, den næste fil for 0_xxx(1).jpg og det skal den jo ikke.. Ydermere hvis jeg sætter overwritefiles til true overskriver den bare billedet..

Håber i forstår og kan hjælpe mig med mit problem.

Server.ScriptTimeout = 180
                        'counter = 1
                        filepath = "/images/uploads/galleri_billeder"
                        userName = rs("brugernavn")
                       
                        Set Upload = Server.CreateObject("Persits.Upload")
                        Upload.OverwriteFiles = false
                        Upload.SaveToMemory
                        For Each File in Upload.Files
                        if File.Size > 100000 then
                            response.Redirect("../members/edit.profile.asp?action=UploadGalleryPic&storfejl=1")
                        elseif File.ImageType <> "JPG" and File.ImageType <> "JPEG" Then
                            response.Redirect("edit.profile.asp?action=UploadGalleryPic&formatfejl=1")
                        Upload.SetMaxSize 100000, false
                        end if
                          counter = 0
                          do while Upload.FileExists(filePath &"/"& counter &"_"& userName & File.Ext)
                            counter = counter + 1
                          loop
                          File.SaveAsVirtual filepath &"/"& counter &"_"& userName & File.Ext
                          pic = counter &"_"& userName & File.Ext
                         
                          Response.ContentType = "image/jpeg"
                        Set Image = Server.CreateObject("AspImage.Image")
                        Image.LoadImage Request.ServerVariables("APPL_PHYSICAL_PATH")& "\images\uploads\galleri_billeder\" & pic
                        ImageHeight = Image.MaxY
                        ImageWidth = Image.MaxX
                        Image.ImageFormat = 1
                        Image.JPEGQuality = 80
                        Width = 800
                        if ImageWidth > Width then
                            NewHeight = Cint(ImageHeight*Width/ImageWidth)
                            NewWidth = Width
                            Image.ResizeR NewWidth,NewHeight
                            Image.FileName = "C:\Inetpub\vhosts\xxxx\httpdocs\images\uploads\galleri_billede\"&pic
                            Image.SaveImage
                        else
                            Image.FileName = "C:\Inetpub\vhosts\xxxx\httpdocs\images\uploads\galleri_billede\"&pic
                            Image.SaveImage
                        end if               
                         
                        Next
                        response.Redirect("start.asp?upload_gb=1")
                        end if