If img width > 150 then?

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

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

Ligger i en mapp

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(".")

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

Kika på LoadPicture()-funktionen om du vill komma undan utan bildkomponent.
T.ex den här tråden tar upp liknande fråga.