% 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) = "ms1.jpg" ImageArr(2) = "ms2.jpg" ImageArr(3) = "ms3.jpg" if whichpic < 1 or whichpic > ubound(ImageArr) then whichpic = 1 end if %>
|
||||
| ||||