
280
Playback Control
Part III: Home Security
<%
whatCamera = Request("camera")
If ( (whatCamera > 0) AND (whatcamera < 9) ) Then
Response.Write ("Camera selected: " & whatCamera)
Set WShShell = Server.CreateObject("WScript.Shell")
WShShell.Run("c:\homehacking\switchCamera.pl " & whatCamera)
End If
%>
</body>
</html>
You may also need to change the If statement. Ideally, you should verify
that the input is a valid choice, keeping in mind that valid choices may be
A–G if your cameras are numbered 10–16. For example, if your cameras
are numbered 9, 10, and 11, you could replace the
If statement with the
following:
If ( (whatCamera = "9") OR (whatCamera = "A") OR (whatCamera = "B")
Then
If your cameras aren’t numbered 1, 2, and 3, you’ll need to change the
HTML to pass the correct arguments back to the recursive ASP script.
Basically, this page passes the
camera parameter back to itself when the user
clicks the link. Issuing a GET request for
cam.asp?camera=2 therefore calls
the
cam.asp file you created, and passes the parameter camera with the value
of
2. The value passed in the camera parameter is passed straight through to
the
switchCamera.pl script in this line:
WShShell.Run("c:\homehacking\switchCamera.pl " &
whatCamera)
I chose ASP 3.0 and VBScript for this page because they’re included with
Windows 2000 and Windows XP.