Search Results For C

Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) If Not Page.IsPostBack Then BindDeals() End Sub Private Sub BindDeals() Dim cs As String = ConfigurationManager.ConnectionStrings("fd_main").ConnectionString ' 1) Count eligible rows Dim totalRows As Integer Using conn As New MySqlConnection(cs) Using cmd As New MySqlCommand( _ "SELECT COUNT(*) " & "FROM movies " & "INNER JOIN dealoftheday ON moviefk = movieid " & "WHERE discounttype = 1 " & "AND AppleTVURL IS NOT NULL AND AppleTVURL <> ''", conn) conn.Open() totalRows = Convert.ToInt32(cmd.ExecuteScalar()) End Using End Using If totalRows = 0 Then Exit Sub ' 2) Random offset Dim maxValidOffset As Integer = If(totalRows > 3, totalRows - 3, 0) Dim randomOffset As Integer = 0 If maxValidOffset > 0 Then Dim b(3) As Byte System.Security.Cryptography.RandomNumberGenerator.Fill(b) Dim raw As Integer = Math.Abs(BitConverter.ToInt32(b, 0)) randomOffset = raw Mod (maxValidOffset + 1) End If ' 3) Main query – fixed string quotes Dim strSQL As String = _ "SELECT MovieName, poster, PhotoPrefix, iTunesRealID, iTunesID, " & "originalprice, discountedprice, AppleTVURL " & "FROM movies " & "INNER JOIN dealoftheday ON moviefk = movieid " & "WHERE discounttype = 1 " & "AND AppleTVURL IS NOT NULL AND AppleTVURL <> '' " & "ORDER BY topdeal DESC, dateadded DESC " & "LIMIT @lim OFFSET @off;" Using conn As New MySqlConnection(cs) Using cmd As New MySqlCommand(strSQL, conn) cmd.Parameters.Add("@lim", MySqlDbType.Int32).Value = 3 cmd.Parameters.Add("@off", MySqlDbType.Int32).Value = randomOffset Dim dt As New DataTable() Using da As New MySqlDataAdapter(cmd) conn.Open() da.Fill(dt) End Using If dt.Rows.Count > 0 Then dgBestDealsSidePanel.DataSource = dt dgBestDealsSidePanel.DataBind() End If End Using End Using End Sub