<% '----------------------------------- ' (C) Advancia, 2004 ' www.advancia.se - info@advancia.se '------------------------------------ Dim ID ID = Request("ID") %>

| <%If ID = 1 Then Response.write ""%>Kuvösen | <%If ID = 2 Then Response.write ""%>Korridoren | <%If ID = 3 Then Response.write ""%> Korridoren2 |

<% Public Sub Kameraval(ID) Select Case ID Case 2 Response.write "251" Case 3 Response.write "250" Case Else Response.write "252" End Select End Sub %>