Får HTTP 500 Internal Server Error efter 1-2 timer..

Hejsa,

Jeg har en Page_Load Sub der udskriver nogle thumbs. Inkluderet i koden er noget paging mod mySQL.

Koden fungerer tilsyneladende ok, men efter ca. 1-2 timer får jeg HTTP 500 Internal Server Error. Så kan jeg genstarte min server og scenariet gentager sig osv osv...

Jeg formoder at der er et eller andet jeg glemmer at lukke, eller noget ved brugerens request til siden der aldrig dør..

Kode:

Partial Class viewgalleries
    Inherits System.Web.UI.Page

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


        Dim mySqlConn As New MySqlConnection("Database=imagecrack;Data Source=localhost;User Id=root;Password=xxxxx")
        mySqlConn.Open()

        Dim cmd As MySqlCommand = New MySqlCommand("SELECT COUNT(DISTINCT(unique_key)) AS records FROM images", mySqlConn)
        cmd.ExecuteNonQuery()

        Dim reader As MySqlDataReader = cmd.ExecuteReader
        reader.Read()
        Dim intRecords As Integer = reader("records")
        Dim intPage As Integer = Request("page")
        If Request("page") = "" Then
            intPage = 1
        Else
            intPage = intPage
        End If
        Dim intPageSize As Integer = 16
        Dim intStart As Integer = intPage * intPageSize
        intStart = intStart - intPageSize
        Dim intPages As Integer = intRecords / intPageSize



        Dim mySqlConn2 As New MySqlConnection("Database=imagecrack;Data Source=localhost;User Id=root;Password=xxxxx")
        mySqlConn2.Open()
        Dim cmd2 As MySqlCommand = New MySqlCommand("SELECT * FROM images GROUP BY unique_key ORDER BY image_id DESC LIMIT " & intStart & ", " & intPageSize & "", mySqlConn2)
        Dim reader2 As MySqlDataReader = cmd2.ExecuteReader
        Label1.Text = "<div id=""gallery_content"" style=""width:760px; position:relative;"" align=""left"">"
        While reader2.Read()



            Label1.Text &= "<a href=gallery.aspx?q=" & reader2("unique_key") & " title=" & reader2("title") & ">" & "<img src=publicimages/tn_" & reader2("image_filename") & " style=""margin:2px;"" border=""0"" class=""img""></a>"

        End While
        Label1.Text &= "</div>"

       
        Dim i As Integer
        labelPaging.Text = "<span class=""paging"">"
        For i = 1 To intPages


            labelPaging.Text &= "<a href=?page=" & i & ">" & i & "</a>"

        Next

        labelPaging.Text &= "</span>"
        reader.Close()
        reader2.Close()
        mySqlConn.Close()
        mySqlConn.Dispose()
    End Sub
End Class

På forhånd tak :-)