Klikk på minibildet for å få et stort bilde..

<% Set fs = CreateObject("Scripting.FileSystemObject") folder1 = Request.ServerVariables.Item("APPL_PHYSICAL_PATH") & "images\webcam" Set folder = fs.getfolder(folder1) For Each File In folder.files name = File.name If InStr(1,name,"jpg") Then if InStr(1,name,"sm_") Then i=i+1 else text=mid(name,1,len(name)-4) Response.Write(" ") Response.Write("") end if End if Next %>