---
title: "Private Sub"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/148843-private-sub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "webbSAJTEN"
published: "2006-07-08T15:36:51.000Z"
updated: "2006-07-13T07:33:40.000Z"
replies: 10
views: 636
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/148843-private-sub"
---

# Private Sub

## #1 — webbSAJTEN, 2006-07-08T15:36Z

Denna kod (utan tvåan) använder jag för att få ut måtten på bilderna på min sida.
Jag skulle behöva hämta måttet två gånger.
Jag har bytt ut alla "dimar" och sattit en tvåa efteråt men jag får felmess:

```
Syntax error 

/pictures.asp, line 275 

Private Sub GetJPGSize(width2, height2, imagepath2)
--------^
```

Är det någon som förstår varför?

```
Dim width2, height2
Call GetJPGSize(width2, height2, Server.MapPath("/bilder/"&RS2("strFile")&""))

Private Sub GetJPGSize(width2, height2, imagepath2)
  Dim oFile2 'As Scripting.File
  Dim oStream2 'As Scripting.TextStream
  Dim oFSO2 'As Scripting.FileSystemObject
  Dim nDummy2 'As Byte
  
  Set oFSO2 = CreateObject("Scripting.FileSystemObject")
  Set oFile2 = oFSO.GetFile(imagepath2)
  Set oStream2 = oFile.OpenAsTextStream

  Set oFile2 = Nothing
  Set oFSO2 = Nothing
  
  Call oStream2.Read(2)
  
  Do
    Do
      nDummy2 = Asc(oStream2.Read(1))
      If nDummy2 = 255 Then
        Exit Do
      End If
    Loop
    
    Do
      nDummy2 = Asc(oStream2.Read(1))
      If nDummy2 <> 255 Then
        Exit Do
      End If
    Loop
    
    Select Case nDummy2
      Case 192, 193, 194, 195, 197, 198, 199, 201, 202, 203, 205, 206, 207
        Call oStream2.Read(3)
        nDummy2 = Asc(oStream2.Read(1))
        height2 = CLng(nDummy2 * 256)
        nDummy2 = Asc(oStream2.Read(1))
        height2 = height2 + CLng(nDummy2)
        nDummy2 = Asc(oStream2.Read(1))
        width2 = CLng(nDummy2 * 256)
        nDummy2 = Asc(oStream2.Read(1))
        width2 = width2 + CLng(nDummy2)
        Exit Do
      Case Else
        nDummy2 = Asc(oStream2.Read(1))
        width2 = CLng(nDummy2 * 256)
        nDummy2 = Asc(oStream2.Read(1))
        width2 = width2 + CLng(nDummy2)
        Call oStream2.Read(width2 - 3)
    End Select
  Loop
  oStream2.Close
  Set oStream2 = Nothing
End Sub
```

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

## #2 — @nders, 2006-07-08T16:26Z

Edit; fel.

Men; du menar inte att du har två subrutiner med samma namn?

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

## #3 — webbSAJTEN, 2006-07-09T15:10Z

Menar du att GetJPGSize är namnet?

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

## #4 — @nders, 2006-07-10T06:08Z

Ja

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

## #5 — webbSAJTEN, 2006-07-10T19:37Z

Jag har testat att lägga till en tvåa efteråt med samma resultat :(

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

## #6 — @nders, 2006-07-10T19:41Z

Varför ska du ha två subrutiner som gör samma sak? Ha en, kalla på den två gånger.

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

## #7 — webbSAJTEN, 2006-07-10T19:56Z

Hmm..
Det är så att jag har en stor bild på en sida..
På den stora bilden måste jag veta höjden och bredden för att dem skall visas bäst..
Under den finns det många mindre bilder som hämtas ur en databas och på varje bild måste jag veta storleken för att dom inte skall bli utdragna m.m.

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

## #8 — @nders, 2006-07-10T20:20Z

Jo, men varför ska du ha två subrutiner?
Kan du inte bara kalla på din enda sub fler gånger?

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

## #9 — webbSAJTEN, 2006-07-10T21:51Z

Hur skall jag göra de? :)

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

## #10 — solbulle, 2006-07-10T23:02Z

Du kalla rpå den på precis samma sätt som du kallar på den första gången, fast du skickar in andra värden på dina variabler.

```
Call GetJPGSize(width2, height2, Server.MapPath("/bilder/"&RS2("strFile")&""))
```

Typ andra mått samt en annan sökväg till bilden.
Det är ju liksom det som är den största vitsen med att lägga kod i subrutiner eller funktioner - att återanvända kod.

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

## #11 — webbSAJTEN, 2006-07-13T07:33Z

Jag sall testa det, tack!!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/148843-private-sub