<script runat="server">
 
    Dim ds As New DataSet()
    Dim dvSchulen As New DataView
    Dim constr As String = ConfigurationManager.ConnectionStrings( _
      "ConnStr").ToString
    Dim connection As New SqlClient.SqlConnection(constr)
    Dim sdaSchulen As New SqlClient.SqlDataAdapter("select * from gf2Schulen", _
      constr)
    Dim Schulenbuilder As SqlClient.SqlCommandBuilder = New _
    SqlClient.SqlCommandBuilder(sdaSchulen)
 
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        sdaSchulen.Fill(ds, "gf2Schulen")
        dvSchulen.Table = (ds.Tables("gf2Schulen"))
 
        Dim rows As Integer = gvLPs.Rows.Count
        dvSchulen.BeginInit()
        For i As Integer = 0 To dvSchulen.Count - 1
            If dvSchulen(i)("Index") = CInt(Session("sl_id")) Then
                dvSchulen(i)("KLPs") = rows 
                Exit For
            End If
        Next
        dvSchulen.EndInit()
        sdaSchulen.Update(ds, "gf2Schulen")
    End Sub
 
</script>