Partial Class Showproduct
    Inherits System.Web.UI.Page

    ''' <summary>
    ''' Her tjekkes om querystringen 'product' 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("product")

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

    ''' <summary>
    ''' Her oprettes listen med spille information.
    ''' - Spilnavn, billede, lagerstatus, antal på lager osv.
    ''' </summary>
    ''' <remarks>Wiki information/Google search!</remarks>
    Public Sub generateGameInfo()
        Try
            Dim gameInfo As New productSql
            Dim dt As New DataTable

            Dim query As String = Request.QueryString("product")
            Dim productQuery As String = Request.QueryString("productgroup")

            dt = gameInfo.showProduct(query)


            Dim dtCategory As New DataTable
            dtCategory = gameInfo.productGroup(productQuery)
            lblHeadline.Text &= dtCategory.Rows(0).Item("categoryname") & " > " & dt.Rows(0).Item("productname")

            lblGameInfo.Text &= "<img src='Img/Produkter/" & dt.Rows(0).Item("productpicture") & "' class='thumbnail'>" & "<br />" & "<br />"
            lblGameInfo.Text &= "<div class='zoomcenter'>" & "<img src='Img/Design/loop.jpg'>" & "<a href='Img/Produkter/" & dt.Rows(0).Item("productpicture") & "' target='_blank' class='zoom'>" & "Stort billede" & "</a>" & "<br />" & "<br />" & "</div>"
            lblGameInfo.Text &= "<div class='pricecenter'>" & "<span class='headline'>" & dt.Rows(0).Item("productprice") & ".-" & "</span>" & "</div>" & "<br />" & "<br />"

            lblGameInfo.Text &= "<span class='gamedesc'>" & "Genre:" & "</span>" & "<br />"
            lblGameInfo.Text &= dt.Rows(0).Item("productgene") & "<br />" & "<br />"

            lblGameInfo.Text &= "<span class='gamedesc'>" & "Udvikler:" & "</span>" & "<br />"
            lblGameInfo.Text &= "<a href='http://www.google.com/search?hl=en&q=" & dt.Rows(0).Item("productcreater") & "&btnG=Google+Search" & "' class='creatorlink' target='_blank'>" & dt.Rows(0).Item("productcreater") & "</a>"
            lblGameInfo.Text &= " (" & "<a href='http://en.wikipedia.org/wiki/" & dt.Rows(0).Item("productcreater") & "'class='creatorlink' target='_blank'>" & dt.Rows(0).Item("productcreater") & " on wiki" & "</a>" & ")"

            lblGameInfo.Text &= "<br />" & "<br />"

            lblGameInfo.Text &= "<span class='gamedesc'>" & "Udgivelses dato:" & "</span>" & "<br />"
            lblGameInfo.Text &= dt.Rows(0).Item("productreleasedate") & "<br />" & "<br />"

            lblGameInfo.Text &= "<span class='gamedesc'>" & "Antal spillere:" & "</span>" & "<br />"
            lblGameInfo.Text &= dt.Rows(0).Item("productamountofplayers") & "<br />" & "<br />"
            lblGameInfo.Text &= "<span class='gamedesc'>" & "Lagerstatus:" & "</span>" & "<br />"

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

            lblGameInfo.Text &= "<br />" & "<br />"

            lblGameInfo.Text &= "<span class='gamedesc'>" & "Antal på lager:" & "</span>" & "<br />"

            If dt.Rows(0).Item("productstockcount") > 1 And dt.Rows(0).Item("productstockcount") < 5 Then
                lblGameInfo.Text &= "<span class='red'>" & "Ikke mange på lager" & " (" & dt.Rows(0).Item("productstockcount") & " stk.)" & "</span>"
            ElseIf dt.Rows(0).Item("productstockcount") > 5 And dt.Rows(0).Item("productstockcount") < 30 Then
                lblGameInfo.Text &= "<span class='orange'>" & "Vi har lidt på lager" & " (" & dt.Rows(0).Item("productstockcount") & " stk.)" & "</span>"
            ElseIf dt.Rows(0).Item("productstockcount") = 0 Then
                lblGameInfo.Text &= "<span class='red'>" & "Ingen på lager" & "</span>"
            ElseIf dt.Rows(0).Item("productstatus") = 3 Then
                lblGameInfo.Text &= "<span class='red'>" & "Ikke udgivet derfor ikke på lager" & "</span>"
            Else
                lblGameInfo.Text &= "<span class='green'>" & "Fuldt hus" & " (" & dt.Rows(0).Item("productstockcount") & " stk.)" & "</span>"
            End If

            lblGameDesc.Text &= "<div class='gameinfo'>"
            lblGameDesc.Text &= "<span class='headline'>" & dt.Rows(0).Item("productname") & "</span>" & "<br />" & "<br />"

            If dt.Rows(0).Item("productstatus") = 3 Then
                lblGameDesc.Text &= "<span class='gamedesc'>" & "Varenummer:" & "</span>" & "<br />"
                lblGameDesc.Text &= "Intet pga. det ikke er udgivet" & "<br />" & "<br />"
            Else
                lblGameDesc.Text &= "<span class='gamedesc'>" & "Varenummer:" & "</span>" & "<br />"
                lblGameDesc.Text &= dt.Rows(0).Item("id") & "<br />" & "<br />"
            End If

            lblGameDesc.Text &= "<span class='gamedesc'>" & "Spil wiki (wikipedia.org):" & "</span>" & "<br />"
            lblGameDesc.Text &= "<a href='http://en.wikipedia.org/wiki/" & dt.Rows(0).Item("productname") & "'class='creatorlink' target='_blank'>" & dt.Rows(0).Item("productname") & "</a>" & "<br />" & "<br />"

            lblGameDesc.Text &= "<span class='gamedesc'>" & "Beskrivelse:" & "</span>" & "<br />"
            lblGameDesc.Text &= dt.Rows(0).Item("productdesc") & "<br />" & "<br />"
            lblGameDesc.Text &= "<span class='gamedesc'>" & "Screenshots:" & "</span>" & "<br />"
            lblGameDesc.Text &= "</div>"

            lblGameDesc.Text &= "<table>" & "<tr>"

            If dt.Rows(0).IsNull("productthumb1") = True Then
                lblGameDesc.Text &= "<td>"
                lblGameDesc.Text &= "<div class='gameinfo'>"
                lblGameDesc.Text &= "<span class='red'>" & "(Intet billede)" & "</span>"
                lblGameDesc.Text &= "</div>"
                lblGameDesc.Text &= "</td>"
            Else
                lblGameDesc.Text &= "<td>"
                lblGameDesc.Text &= "<div class='gameinfo'>"
                lblGameDesc.Text &= "<a href='Img/Produkter/Thumb/" & dt.Rows(0).Item("productthumb1") & "' target='_blank'>" & "<img src='Img/Produkter/Thumb/" & dt.Rows(0).Item("productthumb1") & "' class='screenthumb'>" & "</a>"
                lblGameDesc.Text &= "</div>"
                lblGameDesc.Text &= "</td>"
            End If

            If dt.Rows(0).IsNull("productthumb2") = True Then
                lblGameDesc.Text &= "<td>"
                lblGameDesc.Text &= "<div class='gameinfo'>"
                lblGameDesc.Text &= "<span class='red'>" & "(Intet billede)" & "</span>"
                lblGameDesc.Text &= "</div>"
                lblGameDesc.Text &= "</td>"
            Else
                lblGameDesc.Text &= "<td>"
                lblGameDesc.Text &= "<div class='gameinfo'>"
                lblGameDesc.Text &= "<a href='Img/Produkter/Thumb/" & dt.Rows(0).Item("productthumb2") & "' target='_blank'>" & "<img src='Img/Produkter/Thumb/" & dt.Rows(0).Item("productthumb2") & "' class='screenthumb'>" & "</a>"
                lblGameDesc.Text &= "</div>"
                lblGameDesc.Text &= "</td>"
            End If

            If dt.Rows(0).IsNull("productthumb3") = True Then
                lblGameDesc.Text &= "<td>"
                lblGameDesc.Text &= "<div class='gameinfo'>"
                lblGameDesc.Text &= "<span class='red'>" & "(Intet billede)" & "</span>"
                lblGameDesc.Text &= "</div>"
                lblGameDesc.Text &= "</td>"
            Else
                lblGameDesc.Text &= "<td>"
                lblGameDesc.Text &= "<div class='gameinfo'>"
                lblGameDesc.Text &= "<a href='Img/Produkter/Thumb/" & dt.Rows(0).Item("productthumb3") & "' target='_blank'>" & "<img src='Img/Produkter/Thumb/" & dt.Rows(0).Item("productthumb3") & "' class='screenthumb'>" & "</a>"
                lblGameDesc.Text &= "</div>"
                lblGameDesc.Text &= "</td>"
            End If

            lblGameDesc.Text &= "</tr>" & "</table>"

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

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