% whichpic = Request.ServerVariables("QUERY_STRING") If whichpic = "" Or Not isnumeric(whichpic) Then whichpic = 1 Else whichpic = CInt(whichpic) End If Dim ImageArr(3) ImageArr(1) = "net1.jpg" ImageArr(2) = "net2.jpg" ImageArr(3) = "net3.jpg" If whichpic < 1 or whichpic > ubound(ImageArr) then whichpic = 1 End If %>
|
||||
|
||||