Miscellany

Public Shared Sub saveScore(ByVal id As String, ByVal home_score As String, ByVal away_score As String)
        Dim conn As New SqlConnection
        Dim cmd As New SqlCommand
        Dim ds As New DataSet
        Dim da As New SqlDataAdapter

        Try
            conn.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("P5CS").ConnectionString
            cmd.Connection = conn
            cmd.CommandText = "select * from scores where game_id=@id"
            cmd.Parameters.AddWithValue("@id", id)
            da.SelectCommand = cmd
            da.Fill(ds)
            If ds.CreateDataReader.HasRows Then
                cmd.CommandText = "update scores set home_team_score=@home_score,away_team_score=@away_score where game_id=@id"
            Else
                cmd.CommandText = "insert into scores(home_team_score,away_team_score,game_id) values(@home_score,@away_score,@id)"
            End If


            cmd.Parameters.AddWithValue("@homeId", home_score)
            cmd.Parameters.AddWithValue("@away_score", away_score)
            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()

        Catch ex As Exception
         

        Finally
            If conn IsNot Nothing Then
                If conn.State = Data.ConnectionState.Open Then
                    conn.Close()
                End If
                conn.Dispose()
            End If
        End Try
    End Sub