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