Dim s As String
        s = Hiddenfield4.Text
        Dim w1 As String
        Dim reader As SqlDataReader = comm.ExecuteReader
        Do While reader.Read
            w1 = reader("wspiel")
            If s.Contains(w1) Then
 
                x += 3
                reader.Close()
                Return x & "#" & w1
                Exit Function
            End If
        Loop