<%
Dim Zoom, X, Y
If Request("zoom") = "" Or Not IsNumeric(Request("zoom")) Then
Zoom = 1600/200
Else
Zoom = Request("zoom")
End If
If Request("x") = "" Or Not IsNumeric(Request("x")) Then
X = 0
Else
X = Request("x")
End If
If Request("y") = "" Or Not IsNumeric(Request("y")) Then
Y = -150
Else
Y = Request("y")
End If
%>
opImage demo - Zoom and pan around an image
Click on the + and - buttons to zoom in and out, and the square to return to the default view.
Use the arrows to move around the image.
Return to the site
