Dim RandomClass As New Random()
Dim rndNumber As Integer
 
rndNumber = (RandomClass.Next(01, 99))

'Random Image
Public Function RndImage() As String
	Dim rnd As New Random()
	'The below is for image names that start with "T_" and are jpeg.
	Dim ID As String = "T_*.jpg"
	Dim IDArr() As String = ID.split("*")
	Dim images() As String = System.IO.Directory.GetFiles((Server.MapPath("\images\"), ID)
	Dim imageToDisplay As String
	if CountPhotos(ID) < 1 then imageToDisplay = "nopicture"
	Do While Len(imageToDisplay) < 1
		imageToDisplay = images(rnd.Next(images.Length))
	loop
	Return ("\images\" & IDArr(0) & imageToDisplay & IDArr(1))
End Function
 
Public Function CountPhotos(ByVal ID As Long) As Integer
	Dim numero As Integer = 0
	Dim strPath As String = (Server.MapPath("\images\") & ID)
	Dim strFiles As String = Dir(strPath)
	Do Until Len(strFiles) = 0
		numero += 1
		if numero > 0 then exit do
	Loop
	CountPhotos = numero
End Function