Asynchronous Page?

I would say, no.  ajax wouldn't be the way to go, simply because the page is heavy enough.

I've read over that msdn article, but don't understand how I can apply it to the above code...

Right, I don't think that applies to you at all. So without using the word "asynchronous", what is it that you are trying to accomplish?

I would like the 4 sections to fire off at the same time.  The breadcrumbs, the subcategories, the category parts, and category description.

They don't have to render all at the same time, but I do notice that they fire off syncronously

You can use Threads but it would complicate the code.

ok.....  how?

Here is an example

http://www.beansoftware.com/ASP.NET-Tutorials/Multithreading-Thread-Pool.aspx

Yes, you would certainly have to use multiple threads.  But even if you have them firing off at the same time, are you are planning on waiting for a response from all of them before you render the page? Or are you saying that you want to display the page and then update it as the results from the threads become available? The reason I am asking is that if you are trying to do the second case, the best way to accomplish that is by using Ajax.  

i would like to do the second case, but cannot use ajax to do it.  requirement of the project...sorry

here's the latest code.  I am attempting the threading method, but nothing is showing on the page now.

Partial Class Parts_Default
    Inherits System.Web.UI.Page

    Public objPC As Object, StringToQuery As String = ""
    Public QS As Object = HttpContext.Current.Request.QueryString
    Public CatID As Long, IsParent As Boolean = False
    Public objCat As New TurboKits.Parts

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        objPC = Me.PartContent
        Dim tmpString As New StringBuilder
        Try
            If Not (IsNothing(QS)) Then
                StringToQuery = QS(0).ToString()
            End If
            Dim QryArr() As String = StringToQuery.Split("/")
            If UBound(QryArr) - 1 = 1 Then
                CatID = LookUps.GetCategoryID(QryArr(1), LookUps.GetCategoryID(QryArr(0)))
                tmpString.Append(ShowBreadCrumbs(CatID))
            ElseIf UBound(QryArr) - 1 = 0 Then
                IsParent = True
                CatID = LookUps.GetCategoryID(QryArr(0))
                tmpString.Append(ShowBreadCrumbs(CatID))
            End If
            '---------------------------------------
            '---------------------------------------
        Catch ex As Exception
        End Try
        AddSEOToPage(objCat.MetaTitle, objCat.MetaDescription, objCat.MetaKeywords)
        objPC.InnerHtml = tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
        Dim objTh As New System.Threading.Thread(AddressOf AddSubCats)
        With objTh
            .Name = "SubCat"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.BelowNormal
            .Start()
        End With
        objTh = Nothing
        'AddSubCats()
        AddCatParts()
        AddCatDesc()
    End Sub

    Private Function ShowBreadCrumbs(ByVal CatID As Object) As String
        Try
            If TurboKits.Security.Required(CatID) Then
                Dim tmpString As New StringBuilder, tmpA As String = "", tmpStr As String = ""
                tmpString.Append("<span class=""breadcrumb"">")
                Dim objDb As New TurboKits.DataAccessLayer
                With objDb
                    .CommandType = TurboKits.DataAccessLayer.CmdType.StoredProcedure
                    .Query = "spBreadCrumbNav"
                    .ParamNames = New String() {"@PageID"}
                    .ParamValues = New String() {CatID}
                    .ParamDataTypes = New Integer() {TurboKits.DataAccessLayer.DataType.Int}
                    .ExecuteDataReader()
                    If .TotalRecords > 0 Then
                        Dim tmp() As String
                        tmp = .ReturnValues(0, 0)(1).Split(",")
                        For i As Long = 0 To UBound(tmp)
                            If i = UBound(tmp) Then
                                tmpString.Append(tmp(i))
                            Else
                                tmpString.Append("<a href=""/Parts/?" & HttpUtility.UrlEncode(tmp(i).Replace(" ", "_")) & "/"" title=""" & tmp(i) & """>" & tmp(i) & "</a> &raquo; ")
                            End If
                        Next
                        Erase .ReturnValues
                    Else
                        tmpString.Append(String.Empty)
                    End If
                End With
                objDb = Nothing
                tmpString.Append("</span>" & vbCrLf)
                Return tmpString.ToString()
                tmpString.Length = 0 : tmpString = Nothing
            Else
                Return ""
            End If
        Catch ex As Exception
            Dim objErr As New TurboKits.ErrorManager
            objErr.Location = "/Parts/Default.aspx - ShowBreadCrumbs"
            objErr.Stack = ex.StackTrace()
            objErr.Except = ex
            objErr.ParseError()
            objErr = Nothing
        End Try
    End Function

    Private Sub AddSEOToPage(ByVal Title As String, ByVal Description As String, ByVal Keywords As String)
        'Page Title
        Me.Page.Title = Title
        'Page Keywords
        Using objKW As New HtmlMeta()
            objKW.Name = "keywords"
            objKW.Content = Keywords
            Header.Controls.Add(objKW)
        End Using
        Me.KW.InnerHtml = "<!--" & Keywords & "-->"
        'Page Description
        Using objDesc As New HtmlMeta()
            objDesc.Name = "description"
            objDesc.Content = Description
            Header.Controls.Add(objDesc)
        End Using
    End Sub

    Private Sub AddSubCats()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplaySubCategories())
            Else
                tmpString.Append("<h1>Part Categories</h1>")
                tmpString.Append("<div class=""content"">Please select from our part categories on the left.</div>")
            End If
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Private Sub AddCatParts()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplayCategoryParts())
            End If
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Private Sub AddCatDesc()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplayCategoryDescription())
            End If
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Protected Overrides Sub Finalize()
        objCat = Nothing
        MyBase.Finalize()
    End Sub

End Class

Select all Open in new window

Remove this line

        objTh = Nothing

still nothing

AddSubCats is not firing (and yes, I have verified that it does return something)

Are you generating any output from these subs that are running in separate threads?

i am using the exact code above (setting the objPC control's inner html).  I have verified that the thread is running, is alive, is not a background thread.

I am going to do the same to the other 2 subs (AddCatParts, AddCatDesc), and see what they return as well



still nothing on the page

>still nothing on the page
Is that after
>I am going to do the same

or are you trying that now?

3 threads.  same results...  nothing on the page

sorry, I am mistaken.   with the code posted in my last code post, the only thing that is not returning anything is AddSubCats() the rest are working

gets me 3 different thread id's, so I know the threads are at least being created...

but, they aren't doing anything, there is now nothing on the page (other than the design)

With objTh1
            .Name = "SubCat"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh1 = Nothing
        Dim objTh2 As New System.Threading.Thread(AddressOf AddCatParts)
        With objTh2
            .Name = "CatParts"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh2 = Nothing
        Dim objTh3 As New System.Threading.Thread(AddressOf AddCatDesc)
        With objTh3
            .Name = "CatDesc"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh3 = Nothing

Select all Open in new window

here's the full code now:

Imports System.Threading

Partial Class Parts_Default
    Inherits System.Web.UI.Page

    Public objPC As Object, StringToQuery As String = ""
    Public QS As Object = HttpContext.Current.Request.QueryString
    Public CatID As Long, IsParent As Boolean = False
    Public objCat As New TurboKits.Parts

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        objPC = Me.PartContent
        Dim tmpString As New StringBuilder
        Try
            If Not (IsNothing(QS)) Then
                StringToQuery = QS(0).ToString()
            End If
            Dim QryArr() As String = StringToQuery.Split("/")
            If UBound(QryArr) - 1 = 1 Then
                CatID = LookUps.GetCategoryID(QryArr(1), LookUps.GetCategoryID(QryArr(0)))
                tmpString.Append(ShowBreadCrumbs(CatID))
            ElseIf UBound(QryArr) - 1 = 0 Then
                IsParent = True
                CatID = LookUps.GetCategoryID(QryArr(0))
                tmpString.Append(ShowBreadCrumbs(CatID))
            End If
        Catch ex As Exception
        End Try
        objPC.InnerHtml = tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
        Dim objTh1 As New System.Threading.Thread(AddressOf AddSubCats)
        With objTh1
            .Name = "SubCat"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh1 = Nothing
        Dim objTh2 As New System.Threading.Thread(AddressOf AddCatParts)
        With objTh2
            .Name = "CatParts"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh2 = Nothing
        Dim objTh3 As New System.Threading.Thread(AddressOf AddCatDesc)
        With objTh3
            .Name = "CatDesc"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh3 = Nothing

        'AddSubCats()
        'AddCatParts()
        'AddCatDesc()
    End Sub

    Private Function ShowBreadCrumbs(ByVal CatID As Object) As String
        Try
            If TurboKits.Security.Required(CatID) Then
                Dim tmpString As New StringBuilder, tmpA As String = "", tmpStr As String = ""
                tmpString.Append("<span class=""breadcrumb"">")
                Dim objDb As New TurboKits.DataAccessLayer
                With objDb
                    .CommandType = TurboKits.DataAccessLayer.CmdType.StoredProcedure
                    .Query = "spBreadCrumbNav"
                    .ParamNames = New String() {"@PageID"}
                    .ParamValues = New String() {CatID}
                    .ParamDataTypes = New Integer() {TurboKits.DataAccessLayer.DataType.Int}
                    .ExecuteDataReader()
                    If .TotalRecords > 0 Then
                        Dim tmp() As String
                        tmp = .ReturnValues(0, 0)(1).Split(",")
                        For i As Long = 0 To UBound(tmp)
                            If i = UBound(tmp) Then
                                tmpString.Append(tmp(i))
                            Else
                                tmpString.Append("<a href=""/Parts/?" & HttpUtility.UrlEncode(tmp(i).Replace(" ", "_")) & "/"" title=""" & tmp(i) & """>" & tmp(i) & "</a> &raquo; ")
                            End If
                        Next
                        Erase .ReturnValues
                    Else
                        tmpString.Append(String.Empty)
                    End If
                End With
                objDb = Nothing
                tmpString.Append("</span>" & vbCrLf)
                Return tmpString.ToString()
                tmpString.Length = 0 : tmpString = Nothing
            Else
                Return ""
            End If
        Catch ex As Exception
            Dim objErr As New TurboKits.ErrorManager
            objErr.Location = "/Parts/Default.aspx - ShowBreadCrumbs"
            objErr.Stack = ex.StackTrace()
            objErr.Except = ex
            objErr.ParseError()
            objErr = Nothing
        End Try
    End Function

    Private Sub AddSEOToPage(ByVal Title As String, ByVal Description As String, ByVal Keywords As String)
        'Page Title
        Me.Page.Title = Title
        'Page Keywords
        Using objKW As New HtmlMeta()
            objKW.Name = "keywords"
            objKW.Content = Keywords
            Header.Controls.Add(objKW)
        End Using
        Me.KW.InnerHtml = "<!--" & Keywords & "-->"
        'Page Description
        Using objDesc As New HtmlMeta()
            objDesc.Name = "description"
            objDesc.Content = Description
            Header.Controls.Add(objDesc)
        End Using
    End Sub

    Private Sub AddSubCats()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplaySubCategories())
            Else
                tmpString.Append("<h1>Part Categories</h1>")
                tmpString.Append("<div class=""content"">Please select from our part categories on the left.</div>")
            End If
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Private Sub AddCatParts()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplayCategoryParts())
            End If
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Private Sub AddCatDesc()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplayCategoryDescription())
            End If
            AddSEOToPage(.MetaTitle, .MetaDescription, .MetaKeywords)
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Protected Overrides Sub Finalize()
        objCat = Nothing
        MyBase.Finalize()
    End Sub

End Class

Select all Open in new window

I had tried to use ThreadPool.QueueUserWorkItem() as well, with no success

I think the trouble is that page returns to browser before the threads complete. Check this tutorial

http://www.codeproject.com/Articles/38501/Multi-Threading-in-ASP-NET.aspx

I can't get their code to work either

test.aspx =
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="test.aspx.vb" Inherits="test" Async="true" %>
<div id="Output" runat="server"></div>

Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Text.RegularExpressions

Partial Public Class test
    Inherits System.Web.UI.Page
    Private _request As WebRequest

    Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        AddOnPreRenderCompleteAsync(New BeginEventHandler(AddressOf BeginAsyncOperation), New EndEventHandler(AddressOf EndAsyncOperation))
    End Sub

    Private Function BeginAsyncOperation(ByVal sender As Object, ByVal e As EventArgs, ByVal cb As AsyncCallback, ByVal state As Object) As IAsyncResult
        _request = WebRequest.Create("http://www.o7th.com")
        Return _request.BeginGetResponse(cb, state)
    End Function

    Private Sub EndAsyncOperation(ByVal ar As IAsyncResult)
        Dim text As String
        Using response As WebResponse = _request.EndGetResponse(ar)
            Using reader As New StreamReader(response.GetResponseStream())
                text = reader.ReadToEnd()
            End Using
        End Using
        Me.Output.InnerHtml = text.Length
    End Sub

End Class

Select all Open in new window

Do you see nothing?

weird.   On a test page, yes, I see nothing.

On the page above, I get the response

so how would I implement that in my needs?

I guess do everything in EndAsyncOperation function.

right, but what would I do about BeginXXX and EndXXX to call these?

what would they be?  BeginInvoke? and EndInvoke?

Copy all the code excep this line in Begin
    _request = WebRequest.Create("http://www.o7th.com")

In the End sub, remove all the code and add your own code which does processing.

BeginGetResponse And EndGetResponse are webrequest methods

Ok. Lets replace this code

        Dim objTh1 As New System.Threading.Thread(AddressOf AddSubCats)
        With objTh1
            .Name = "SubCat"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh1 = Nothing
        Dim objTh2 As New System.Threading.Thread(AddressOf AddCatParts)
        With objTh2
            .Name = "CatParts"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh2 = Nothing
        Dim objTh3 As New System.Threading.Thread(AddressOf AddCatDesc)
        With objTh3
            .Name = "CatDesc"
            .TrySetApartmentState(Threading.ApartmentState.MTA)
            .Priority = Threading.ThreadPriority.Normal
            .Start()
            objPC.InnerHtml += "Thread ID: " & .ManagedThreadId & "<hr />"
            .Abort()
        End With
        objTh3 = Nothing



with this

Dim MyHandles As New WaitHandle() = {New ManualResetEvent(false), New ManualResetEvent(false), New ManualResetEvent(false) }

Dim Method1 As New WaitCallBack(AddSubCats)
Dim IsQueued1 as Boolean  = ThreadPool.QueueUserWorkItem(Method1, MyHandles(0))

Dim Method2 As New WaitCallBack(AddSubParts)
Dim IsQueued2 as Boolean  = ThreadPool.QueueUserWorkItem(Method1, MyHandles(1))

Dim Method3 As New WaitCallBack(AddSubDesc)
Dim IsQueued3 as Boolean  = ThreadPool.QueueUserWorkItem(Method1, MyHandles(2))


If WaitHandle.WaitAll(MyHandles, 5000, False)
   'successfull
End If




All the methods need to take a parameter State of type Object
Add the end of each method, add these two lines

Dim mre as ManualResetEvent = state
mre.Set()

Select all Open in new window

returns errors

Object not set to an instance of an object:

mre.Set()

IF you leave that part out?

also.   I added in objPC.InnerHtml += 'Successful" to the successful section, and nothing shows

changed:

Returns "Fail"

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        objPC = Me.PartContent
        Dim tmpString As New StringBuilder
        Try
            If Not (IsNothing(QS)) Then
                StringToQuery = QS(0).ToString()
            End If
            Dim QryArr() As String = StringToQuery.Split("/")
            If UBound(QryArr) - 1 = 1 Then
                CatID = LookUps.GetCategoryID(QryArr(1), LookUps.GetCategoryID(QryArr(0)))
                tmpString.Append(ShowBreadCrumbs(CatID))
            ElseIf UBound(QryArr) - 1 = 0 Then
                IsParent = True
                CatID = LookUps.GetCategoryID(QryArr(0))
                tmpString.Append(ShowBreadCrumbs(CatID))
            End If
        Catch ex As Exception
        End Try
        objPC.InnerHtml = tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
        Dim MyHandles As WaitHandle() = New WaitHandle() {New ManualResetEvent(False), _
                                                          New ManualResetEvent(False), _
                                                          New ManualResetEvent(False)}

        Dim Method1 As New WaitCallback(AddressOf AddSubCats)
        Dim IsQueued1 As Boolean = ThreadPool.QueueUserWorkItem(Method1, MyHandles(0))

        Dim Method2 As New WaitCallback(AddressOf AddCatParts)
        Dim IsQueued2 As Boolean = ThreadPool.QueueUserWorkItem(Method2, MyHandles(1))

        Dim Method3 As New WaitCallback(AddressOf AddCatDesc)
        Dim IsQueued3 As Boolean = ThreadPool.QueueUserWorkItem(Method2, MyHandles(2))

        If WaitHandle.WaitAll(MyHandles, 5000, False) Then
            objPC.InnerHtml += "Success"
        Else
            objPC.InnerHtml += "Fail"
        End If

    End Sub

Select all Open in new window

If I change ManualResetEvent to True, it returns 'Success', however, the Methods still do not fire

all 3 methods return as being queued

Dim MyHandles As WaitHandle() = New WaitHandle() {New ManualResetEvent(False), _
                                                          New ManualResetEvent(False), _
                                                          New ManualResetEvent(False)}

        Dim Method1 As New WaitCallback(AddressOf AddSubCats)
        Dim IsQueued1 As Boolean = ThreadPool.QueueUserWorkItem(Method1, MyHandles(0))
        If IsQueued1 Then
            objPC.InnerHtml += "Method1 is Queued<br />"
        End If
        Dim Method2 As New WaitCallback(AddressOf AddCatParts)
        Dim IsQueued2 As Boolean = ThreadPool.QueueUserWorkItem(Method2, MyHandles(1))
        If IsQueued2 Then
            objPC.InnerHtml += "Method2 is Queued<br />"
        End If
        Dim Method3 As New WaitCallback(AddressOf AddCatDesc)
        Dim IsQueued3 As Boolean = ThreadPool.QueueUserWorkItem(Method2, MyHandles(2))
        If IsQueued3 Then
            objPC.InnerHtml += "Method3 is Queued<br />"
        End If
        If WaitHandle.WaitAll(MyHandles, 1000, False) Then
            objPC.InnerHtml += "Success"
        Else
            objPC.InnerHtml += "Fail"
        End If

Select all Open in new window

What if you change the time out from 5000 to 15000 or more?

We need to call the Set method on the mre.

I set it to 50000 and still same results

Ok. Now I have to experiment with it myself. Give me some time. I will get back to you.

do I need DirectCast(state, AutoResetEvent).[Set]()

in my 3 methods?

duh...that was what the:

I added in the
        Dim mre As ManualResetEvent = state
        mre.Set()

to the 3 methods, and still get the same results.  All 3 are queued, but 'Fail'

Alrigt...  little confused here...    is this threading them?

Dim MyHandles As WaitHandle() = New WaitHandle() {New AutoResetEvent(False), _
                                                          New AutoResetEvent(False), _
                                                          New AutoResetEvent(False)}

        Dim Method1 As New WaitCallback(AddressOf AddSubCats)
        Dim IsQueued1 As Boolean = ThreadPool.QueueUserWorkItem(Method1, MyHandles(0))
        If IsQueued1 Then
            objPC.InnerHtml += "Method1 is Queued<br />"
        End If
        Dim Method2 As New WaitCallback(AddressOf AddCatParts)
        Dim IsQueued2 As Boolean = ThreadPool.QueueUserWorkItem(Method2, MyHandles(1))
        If IsQueued2 Then
            objPC.InnerHtml += "Method2 is Queued<br />"
        End If
        Dim Method3 As New WaitCallback(AddressOf AddCatDesc)
        Dim IsQueued3 As Boolean = ThreadPool.QueueUserWorkItem(Method3, MyHandles(2))
        If IsQueued3 Then
            objPC.InnerHtml += "Method3 is Queued<br />"
        End If

        If WaitHandle.WaitAll(MyHandles, 1, False) Then
            objPC.InnerHtml += "Success"
        Else
            objPC.InnerHtml += "Fail"
        End If

        Method1.Invoke(New AutoResetEvent(False))
        Method2.Invoke(New AutoResetEvent(False))
        Method3.Invoke(New AutoResetEvent(False))

Select all Open in new window

I get a response from this.

but...the response isnt threaded....it's simply firing off the delegate

I dont think its threaded.

it's not

so, i've been experimenting...  LMAO

I am now registering a AsyncTask, and running one of the methods (AddSubCats)

What I am finding is that even though, .DisplaySubCategories() returns what it is supposed to (outside the Async task), inside the OnEnd it does not return anything...  although, other tasks I put inside AddSubCats (like a response.write) will fire off

Partial Class Parts_Default
    Inherits System.Web.UI.Page

    Public objPC As Object, StringToQuery As String = ""
    Public QS As Object = HttpContext.Current.Request.QueryString
    Public CatID As Long, IsParent As Boolean = False
    Public objCat As New TurboKits.Parts

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        objPC = Me.PartContent
        Dim tmpString As New StringBuilder
        Try
            If Not (IsNothing(QS)) Then
                StringToQuery = QS(0).ToString()
            End If
            Dim QryArr() As String = StringToQuery.Split("/")
            If UBound(QryArr) - 1 = 1 Then
                CatID = LookUps.GetCategoryID(QryArr(1), LookUps.GetCategoryID(QryArr(0)))
                tmpString.Append(ShowBreadCrumbs(CatID))
            ElseIf UBound(QryArr) - 1 = 0 Then
                IsParent = True
                CatID = LookUps.GetCategoryID(QryArr(0))
                tmpString.Append(ShowBreadCrumbs(CatID))
            End If
        Catch ex As Exception
        End Try

        objPC.InnerHtml = tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing

        Dim asynctask As New PageAsyncTask(AddressOf Me.OnBegin, AddressOf Me.OnEnd, Nothing, Nothing, True)
        ' Register the asynchronous task.
        RegisterAsyncTask(asynctask)
        ' Execute the register asynchronous task.
        ExecuteRegisteredAsyncTasks()


        ' AddSubCats()
        'AddCatParts()
        'AddCatDesc()

    End Sub

    Private _dlgt As New AsyncTaskDelegate(AddressOf AddSubCats), tmp As String
    Delegate Sub AsyncTaskDelegate()
    Public Function OnBegin(ByVal sender As Object, ByVal e As EventArgs, ByVal cb As AsyncCallback, ByVal extraData As Object) As IAsyncResult
        Dim result As IAsyncResult = _dlgt.BeginInvoke(cb, extraData)
        Return result
    End Function

    Public Sub OnEnd(ByVal ar As IAsyncResult)
        tmp = "Complete"
        _dlgt.EndInvoke(ar)
    End Sub

    Private Sub AddSubCats()
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                Me.PartContent.InnerHtml += .DisplaySubCategories()
            Else
                Me.PartContent.InnerHtml += "<h1>Part Categories</h1>"
                Me.PartContent.InnerHtml += "<div class=""content"">Please select from our part categories on the left.</div>"
            End If
        End With
        AddSEOToPage("WHAT TTHE F(*&^%%!!!!", "", "")
    End Sub

    Private Sub AddCatParts()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplayCategoryParts())
            End If
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Private Sub AddCatDesc()
        Dim tmpString As New StringBuilder
        With objCat
            If CatID > 0 Then
                .CategoryID = CatID
                .ParentCategory = IsParent
                tmpString.Append(.DisplayCategoryDescription())
            End If
            AddSEOToPage(.MetaTitle, .MetaDescription, .MetaKeywords)
        End With
        objPC.InnerHtml += tmpString.ToString()
        tmpString.Length = 0 : tmpString = Nothing
    End Sub

    Protected Overrides Sub Finalize()
        objCat = Nothing
        MyBase.Finalize()
    End Sub

    Private Function ShowBreadCrumbs(ByVal CatID As Object) As String
        Try
            If TurboKits.Security.Required(CatID) Then
                Dim tmpString As New StringBuilder, tmpA As String = "", tmpStr As String = ""
                tmpString.Append("<span class=""breadcrumb"">")
                Dim objDb As New TurboKits.DataAccessLayer
                With objDb
                    .CommandType = TurboKits.DataAccessLayer.CmdType.StoredProcedure
                    .Query = "spBreadCrumbNav"
                    .ParamNames = New String() {"@PageID"}
                    .ParamValues = New String() {CatID}
                    .ParamDataTypes = New Integer() {TurboKits.DataAccessLayer.DataType.Int}
                    .ExecuteDataReader()
                    If .TotalRecords > 0 Then
                        Dim tmp() As String
                        tmp = .ReturnValues(0, 0)(1).Split(",")
                        For i As Long = 0 To UBound(tmp)
                            If i = UBound(tmp) Then
                                tmpString.Append(tmp(i))
                            Else
                                tmpString.Append("<a href=""/Parts/?" & HttpUtility.UrlEncode(tmp(i).Replace(" ", "_")) & "/"" title=""" & tmp(i) & """>" & tmp(i) & "</a> &raquo; ")
                            End If
                        Next
                        Erase .ReturnValues
                    Else
                        tmpString.Append(String.Empty)
                    End If
                End With
                objDb = Nothing
                tmpString.Append("</span>" & vbCrLf)
                Return tmpString.ToString()
                tmpString.Length = 0 : tmpString = Nothing
            Else
                Return ""
            End If
        Catch ex As Exception
            Dim objErr As New TurboKits.ErrorManager
            objErr.Location = "/Parts/Default.aspx - ShowBreadCrumbs"
            objErr.Stack = ex.StackTrace()
            objErr.Except = ex
            objErr.ParseError()
            objErr = Nothing
        End Try
    End Function

    Private Sub AddSEOToPage(ByVal Title As String, ByVal Description As String, ByVal Keywords As String)
        'Page Title
        Me.Page.Title = Title
        'Page Keywords
        Using objKW As New HtmlMeta()
            objKW.Name = "keywords"
            objKW.Content = Keywords
            Header.Controls.Add(objKW)
        End Using
        Me.KW.InnerHtml = "<!--" & Keywords & "-->"
        'Page Description
        Using objDesc As New HtmlMeta()
            objDesc.Name = "description"
            objDesc.Content = Description
            Header.Controls.Add(objDesc)
        End Using
    End Sub


End Class

Select all Open in new window

side note on that...    DisplaySubCategories() is a function in a class in a class assembly (don't know if that makes a difference...)

digging further....

DisplaySubCategories() fires off just fine, however, the db stuff inside it does not seem to want to work right..

Although...  it does what it is supposed to do outside an async call...

So....why would it return what it is suppsoed to outside the asynchronicity but not within?

I am working on a demo project myself right now.

I am so confused right now....  it's not even funny.

I don't get why .DisplaySubCategories() won't return the data that it pulls inside of the threading processes, but will outside it?

Inside .DisplaySubCategories() is a SqlCommand that pulls data from a SQL database.  It works just fine when not being threaded.

maybe my flow needs explaining?

I have a DataAccessLayer, which is simply a way I can call out to the database and do some work.

I have a BusinessLayer, which calls out to the DAL to pull what I need for records, or tells the DAL to do some work.

Then I have the page above.  Which displays the result from the BusinessLayer.

Now, it seems with theading the DAL doesn't work.  (there is no other threading going on, and non-threading it does work...  just fine as a matter of fact)

Both the DAL and BusinessLayer are in a class assembly

when I use a straight SqlCommand connection right in AddSubCats, it works., but through the DAl it does not work

not that it should matter, because it works every where else.

I'll do it, and get back in a few

un-flippin believable.   ok.   so, it was the caching mechanism I had (have) in the DAL.

Apparently async operations do not like to cache?

so... do you know of any way I can keep my caching, whilst doing teh async stuff?  

(by the way...  the async stuff made the page 3x faster [per firebug] went from 1.3s to .43s :)

That's a lot of improvement. I am not sure what caching mechanism you have and why async does not work with it.

it was just HttpContext.Current.Cache...

but yeah, huge improvement.

Thanks