How to manage a Thread IN ASP.NET

Public Partial Class workload_generator2
    Inherits System.Web.UI.Page
    Dim thread1 As New Threading.Thread(AddressOf Me.loadwikistats)
    Dim doforever As Boolean = False
    Dim endforever As Boolean = False

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

        If Me.Session("endforever") Is Nothing Then
            doforever = False
            Me.Session("endforever") = doforever
        Else
            doforever = Me.Session("endforever")
        End If

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        doforever = True
        Me.Session("endforever") = False
        thread1.Start()
    End Sub

    Protected Sub loadwikistats()
        Dim d As New Random
        Do While doforever
            If Me.Session("endforever") Then
                doforever = False
            End If

            Dim c As Integer
            c = d.Next

            Dim adapter As New AEDataSetTableAdapters.t1TableAdapter

            adapter.InsertQuery(c)

            Threading.Thread.Sleep(1000)
        Loop


    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        endforever = True
        Me.Session("endforever") = endforever
    End Sub
End Class

 

 

 

SyncLock Session.SyncRoot  
       Session("Status") = strStartTime & _  
 "<br>Thread Complete. End Time: " & DateTime.Now & "<br>"  
 
       Session("Complete") = True  
       End SyncLock 

 

 


        If Me.Session("endforever") Is Nothing Then
            doforever = False
            Me.Session("endforever") = doforever
        Else
            doforever = Me.Session("endforever")
        End If

        If Me.Session("num") Is Nothing Then
            currentnum = 0
            Me.Session("num") = currentnum
        Else
            currentnum = Me.Session("num")
        End If