Partial Class Showgames
    Inherits System.Web.UI.Page

    ''' <summary>
    ''' Her tjekkes om querystringen 'category' indeholder en værdi eller er nul.
    ''' hvis ingen værdig findes vil brugeren blive sendt tilbage til forsiden.
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub queryHandeling()
        Dim query As String = Request.QueryString("category")

        If String.IsNullOrEmpty(query) = True Then
            Response.Redirect("Default.aspx")
        End If
    End Sub

    ''' <summary>
    ''' her udskrives produkt liste
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub generateCategory()
        Try
            Dim query As String = Request.QueryString("category")
            Dim categoryList As New productSql

            If query = "1" Then
                lblHeadline.Text = "PC-Spil > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "2" Then
                lblHeadline.Text = "Xbox > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "3" Then
                lblHeadline.Text = "Xbox 360° > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "4" Then
                lblHeadline.Text = "Playstation 2 > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "5" Then
                lblHeadline.Text = "Playstation 3 > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "6" Then
                lblHeadline.Text = "PSP > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "7" Then
                lblHeadline.Text = "Gamecube > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            ElseIf query = "8" Then
                lblHeadline.Text = "Wii > " & categoryList.productSelect(query).Rows.Count & " spil blev fundet"
            End If



            If categoryList.productSelect(query).Rows.Count < 1 Then

                ' OBS: Dette er det rene slamkode, skal beklage. Tror jeg har været
                ' ved at dagdrømme mens jeg kom på denne ide!
                If query = "1" Then
                    lblHeadline.Text = "PC-Spil > " & "<span class='red'>" & "Der er ikke oprettet PC-Spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "2" Then
                    lblHeadline.Text = "Xbox > " & "<span class='red'>" & "Der er ikke oprettet Xbox spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "3" Then
                    lblHeadline.Text = "Xbox 360° > " & "<span class='red'>" & "Der er ikke oprettet Xbox 360° spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "4" Then
                    lblHeadline.Text = "Playstation 2 > " & "<span class='red'>" & "Der er ikke oprettet Playstation 2 spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "5" Then
                    lblHeadline.Text = "Playstation 3 > " & "<span class='red'>" & "Der er ikke oprettet Playstation 3 spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "6" Then
                    lblHeadline.Text = "PSP > " & "<span class='red'>" & "Der er ikke oprettet PSP spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "7" Then
                    lblHeadline.Text = "Gamecube > " & "<span class='red'>" & "Der er ikke oprettet Gamecube spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                ElseIf query = "8" Then
                    lblHeadline.Text = "Wii > " & "<span class='red'>" & "Der er ikke oprettet Wii spil endnu" & "</span>"
                    lblGamelist.Text &= "<table align='center'>" & "<tr>" & "<td>"
                    lblGamelist.Text &= "<span class='red'>" & "Der er ikke oprettet et produkt i denne kategori endnu" & "</span>"
                    lblGamelist.Text &= "</td>" & "</tr>" & "</table>"
                End If

            Else
                lblGamelist.Text &= "<table width='500px' align='center' class='tablesearch'>"
                lblGamelist.Text &= "<tr class='trsearch'>"
                lblGamelist.Text &= "<td class='toplist' valign='top'>"
                lblGamelist.Text &= "</td>"

                lblGamelist.Text &= "<td class='toplist' valign='top'>"
                lblGamelist.Text &= "Navn"
                lblGamelist.Text &= "</td>"

                lblGamelist.Text &= "<td class='toplist' valign='top'>"
                lblGamelist.Text &= "Lagerstatus"
                lblGamelist.Text &= "</td>"

                lblGamelist.Text &= "<td class='toplist' valign='top'>"
                lblGamelist.Text &= "Pris"
                lblGamelist.Text &= "</td>"
                lblGamelist.Text &= "</tr>"

                lblGamelist.Text &= "<tr>"
                lblGamelist.Text &= "<td height='20px'>"
                lblGamelist.Text &= "</td>"
                lblGamelist.Text &= "</tr>"

                Dim strColor As String = ""

                For Each Row As DataRow In categoryList.productSelect(query).Rows
                    If strColor = "#FFFFFF" Then
                        strColor = "#C6E5E8"
                    Else
                        strColor = "#FFFFFF"
                    End If

                    lblGamelist.Text &= "<tr bgcolor='" & strColor & "'>"

                    lblGamelist.Text &= "<td valign='top'>"
                    lblGamelist.Text &= "<img src='Img/Design/game_small.png'>"
                    lblGamelist.Text &= "</td>"

                    lblGamelist.Text &= "<td valign='top'>"
                    lblGamelist.Text &= " <a href='Showproduct.aspx?productgroup=" & Row.Item("productcategory") & "&product=" & Row.Item("id") & "' class='productlist'>" & Row.Item("productname") & "</a>"
                    lblGamelist.Text &= "</td>"

                    lblGamelist.Text &= "<td valign='top'>"

                    If Row.Item("productstatus") = "1" Then
                        lblGamelist.Text &= "<span class='red'>" & "Ikke på lager" & "</span>"
                    ElseIf Row.Item("productstatus") = "2" Then
                        lblGamelist.Text &= "<span class='green'>" & "På lager" & "</span>"
                    Else
                        lblGamelist.Text &= "<span class='red'>" & "Ikke udgivet" & "</span>"
                    End If

                    lblGamelist.Text &= "</td>"

                    lblGamelist.Text &= "<td valign='top'>"
                    lblGamelist.Text &= Row.Item("productprice") & ".-"
                    lblGamelist.Text &= "</td>"
                    lblGamelist.Text &= "</tr>"
                Next

                lblGamelist.Text &= "<tr>"
                lblGamelist.Text &= "<td height='20px'>"
                lblGamelist.Text &= "</td>"

                lblGamelist.Text &= "<td height='20px'>"
                lblGamelist.Text &= "</td>"

                lblGamelist.Text &= "<td height='20px'>"
                lblGamelist.Text &= "</td>"

                lblGamelist.Text &= "<td height='20px'>"
                lblGamelist.Text &= "</td>"
                lblGamelist.Text &= "</tr>"


                lblGamelist.Text &= "</table>"
            End If
        Catch ex As Exception
            lblHeadline.Text = "<span class='red'>" & "Fejl 404 - siden blev ikke fundet" & "</span>"

            lblGamelist.Text &= "<table width='400px' align='center' class='tableerror'>"
            lblGamelist.Text &= "<tr>"
            lblGamelist.Text &= "<td class='errorbgcolor'>"
            lblGamelist.Text &= "<b>" & "Fejl!" & "</b>" & "<br />"
            lblGamelist.Text &= "</td>"
            lblGamelist.Text &= "</tr>"

            lblGamelist.Text &= "<tr>"
            lblGamelist.Text &= "<td>"
            lblGamelist.Text &= "Siden du prøvede at komme ind på blev ikke fundet." & "<br />" & "<br />"
            lblGamelist.Text &= "Prøv evt. følgene:" & "<br />"
            lblGamelist.Text &= "<i>"
            lblGamelist.Text &= "- Tryk på 'Opdater' i din browser." & "<br />"
            lblGamelist.Text &= "- Hvis vi opdatere siden kan det ske at siden ikke kan ses, prøv senere."
            lblGamelist.Text &= "</i>"
            lblGamelist.Text &= "</td>"
            lblGamelist.Text &= "</tr>"

            lblGamelist.Text &= "</table>"
        End Try
    End Sub


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.generateCategory()
        Me.queryHandeling()
    End Sub
End Class