---
title: "If img width > 150 then?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/167025-if-img-width-150-then"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2007-12-06T15:40:20.000Z"
updated: "2007-12-06T18:19:49.000Z"
replies: 5
views: 667
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/167025-if-img-width-150-then"
---

# If img width > 150 then?

## #1 — timedia, 2007-12-06T15:40Z

Behövs en bildkomponent (aspjpeg t.ex) för att bara hämta bilder med width större än ett visst antal px?

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

## #2 — headbug, 2007-12-06T15:47Z

Har du lagrat dom i en databas eller i en mapp?

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

## #3 — timedia, 2007-12-06T15:48Z

Ligger i en mapp

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

## #4 — voigtann1, 2007-12-06T15:57Z

har du komponenten aspjpeg redan?
otestad och läst lite snabbt:

```
sub ListPictures(path)
	dim fs, folder, file, item, url, Jpeg
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	Set folder = fs.GetFolder(path)

	for each item in folder.Files
		If Left(item.Name,3) = "JPG" Then
			Jpeg.Open path & "\" & item.Name
			If Jpeg.Width  > 150 Then
				'Do stuff
			End If
		End If
	next

	Set fs = Nothing
	set Jpeg = Nothing
	Set folder = Nothing
end sub

ListPictures server.MapPath(".")
```

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

## #5 — timedia, 2007-12-06T18:04Z

Hade hoppats det gick utan bildkomponent, men får acceptera att det behövs :)

Hur kombinerar jag Voigtann´s svar med min randomize?

```
Set DatabaseConnection = server.createobject("ADODB.Connection")

DatabaseConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.MapPath(".") & ";"

Set UserRecordset = Server.CreateObject("ADODB.Recordset")
Set UserRecordset2 = Server.CreateObject("ADODB.Recordset")

Intrando = "SELECT Recension.Id, Signatur FROM Recension WHERE betyg>5 AND NOT signatur ='x.x.'"

Set Numero = Databaseconnection.Execute(Intrando)

	If Numero.EOF Then

Else

Randotitle = Numero.GetRows()

Randomize

	End If
```

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

## #6 — Denkan, 2007-12-06T18:19Z

Kika på LoadPicture()-funktionen om du vill komma undan utan bildkomponent.
T.ex [den här tråden](http://www.haneng.com/Forums_Post.asp?id=12971) tar upp liknande fråga.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/167025-if-img-width-150-then