rendered paste body
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