---
title: "Se om webcam är aktiv"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39040-se-om-webcam-är-aktiv/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Sico"
published: "2002-03-05T21:37:10.000Z"
updated: "2002-03-07T11:02:08.000Z"
replies: 22
views: 604
page: 2
pages: 2
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/39040-se-om-webcam-är-aktiv"
---

# Se om webcam är aktiv

_Sida 2 av 2._

## #21 — Sico, 2002-03-06T22:30Z

detta funkade utmärkt partikb... 
jag undrar om nån annan kan hjälpa mig men en sak eftersom PartikB ser på tv nu  :e  

hur jag ska bygga upp det så att jag scriptet ska visa flera olika webcams status? (alla webcam-sidorna ligger på min server)

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

## #22 — PatrikB, 2002-03-06T23:02Z

beror ju på hur du visar bilderna, eller vill visa bilderna?

testa detta ... som sagt, otestat :OO 

```
<%
Dim varWebcamImg(2)
Dim strRootPath, strFilePath, strImgPath
Dim dteFileDate, dteMinuteDiff
Dim objFSO, objFile

'## -- fysiska sökvägen till wwwroot --
strRootPath = Server.MapPath("/")

'## -- array med alla sökvägar till webcamerabilderna från wwwroot --
varWebcamImg(0) = "/webcam1/webcamimg1.gif"
varWebcamImg(1) = "/webcam2/webcamimg2.gif"
varWebcamImg(2) = "/webcam3/webcamimg3.gif"

	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

		For N = 0 TO UBound(varWebcamImg)
			strImgPath = varWebcamImg(N)
			
			'## -- hämta filen för att kontrollera senast ändrat datum --
			Set objFile = objFSO.GetFile(strRootPath & strImgPath)
			
				'## -- datum när filen senast uppdaterades --
				dteFileDate = objFile.DateLastModified
	
				'## -- hur många minuter sedan filen uppdaterades --
				dteMinuteDiff = DateDiff("n", dteFileDate, Now())
				
				'## -- kolla om filen är yngre än 1 minut.
				'##    om, webcameran online. annan uppdaterings frekven
				'##    på webcameran/webcamerorna så ändras 1:an till
				'##    webcamerornas uppdaterings frekvens --
				If dteMinuteDiff < 1 Then
					Response.Write "<IMG src=""" & strImagePath & """><BR>Online<BR><BR>"
				Else
					Response.Write "Offline<BR><BR>"
				End If
				
			Set objFile = Nothing
			
		Next
		
	Set objFSO = Nothing

%>
```

cya,
PatrikB ...... som nu ska gå och krama kudden .....

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

## #23 — Sico, 2002-03-07T11:02Z

jag har fortfarande problem med sökvägarna  :(

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39040-se-om-webcam-är-aktiv/page2  
Föregående sida: https://www.webforum.nu/amne/asp/39040-se-om-webcam-är-aktiv.md