Billede

Du kan installere følgende komponent:
http://www.serverobjects.com/products.htm#free
"ImageSize"
Med dette kan du læse billedets højde/bredde.

Alternativt kan du jo fastsætte billedernes størrelse til det du vil. Eks. <img src="ditbillede.gif" height="10" border="0">

du kan gøre det med en kompunent som hedder ImgSize:

<%
Set objImg = Server.CreateObject("ImgSize.Check")
objImg.FileName = "fil.jpg"
Response.Write "Billedhøjde i pixels = " & objImg.Height & "<br>"
Response.Write "Billedbredde i pixels = " & objImg.Width
Set objImg = nothing
%>

Hvis du bare skal havde størrelsen kan du direkte benytte filesystem object og disse functioner.  Det kan altså gøres uden brug af andre komponenter end FileSystemObject:
http://www.4guysfromrolla.com/webtech/code/imgsz.asp.html

med FSO eks her: http://www.eagleeye.dk/eks/spm222706.asp

Hvis du vil resize billedet skal du bruge en kompunemt som ASPImage eller ligne.

<%
Set objImg = Server.CreateObject("ImgSize.Check")
objImg.FileName = "1.jpg"
Response.Write "Billedhøjde i pixels = " & objImg.Height & "<br>"
Response.Write "Billedbredde i pixels = " & objImg.Width
Set objImg = nothing
%>

Error Type:
Serverobjekt, ASP 0177 (0x800401F3)
Ugyldigt program-id. Yderligere oplysninger om denne meddelelse finder du på Webstedet for Microsoft Onlinesupport på adressen: http://www.microsoft.com/contentredirect.asp.
/warezpage/1.asp, line 2

Dim Img

  sub CheckFile (strFileName)
    set Img = Server.CreateObject ("ImgSize.Check")
    Img.FileName = strFileName
    if Img.Error <> "" then
      Response.Write "An error occurred in processing this image.<br>"
      Response.Write "The error was: <b>" & Img.Error & "</b>"
    else
      Response.Write "<p>Image <b>" & strFileName & "</b> successfully read.<br>"
      Response.Write "Image Height = <b>" & Img.Height & "</b><br>"
      Response.Write "Image Width  = <b>" & Img.Width & "</b></p>"
    end if

    set Img = nothing
  end sub

  CheckFile ("D:\HomePage\1.jpg")
men er der andre?

Har du adgang til den kompunent ImgSize?

Har du adgang til nogle image/billede kompunenter som: ASPImage?

yes det har jeg

men det virker fint

kan man ikke indsætte den ind i en lække (do / loop )

tænker du på at loop'e gennem filerne i en folder og så kalde din funtion?

eks:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFolder("c:\wwwhome\images") 'Ret stien til
Set objFC = objF.Files

For Each f1 in objFC
  if instr(ucase(f1.Name), ".GIF") OR instr(ucase(f1.Name), ".JPG") then
    CheckFile (f1.Name)  'Hvis f1.name ikke er nok så prøv evt f1.path
  end if
Next