Private Sub

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

Edit; fel.

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

Menar du att GetJPGSize är namnet?

Ja

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

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

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.

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

Hur skall jag göra de? :)

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.

Jag sall testa det, tack!!