<% Const IMGS_DIR = "/imagenes/got2002/1/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strImageSrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strImageSrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

CAMARA DE NIEBLA

Disponga de nuestra cámara de niebla para jornadas científicas, técnicas, eventos tecnológicos.

Contacte para consultar condiciones.

Un equipamiento que marcará la diferencia.

Video demostrativo

Software "measure Dynamics", análisis automático de vídeo de movimientos

Descargue su version gratuita

Measure Dynamics

Descarga tutorial
NUEVO COBRA 4

COBRA 4