Partial Class _Default
    Inherits System.Web.UI.Page
    Dim i As Integer
    Dim ImageURL As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            i = 1
        Else
            i = CInt(Label1.Text)
        End If
        ImageURL = "~/bilder/ReferenzenEvents/" & i & ".jpg"
        Image2.ImageUrl = ImageURL
 
    End Sub
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        i = i - 1
        Label1.Text = i.ToString
    End Sub
 
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        i = i + 1
        Label1.Text = i.ToString
    End Sub
End Class