CPU at 100% - Web Wiz Support and Community Forums

Hi all

I have small problem. I have found a small script written in aspx and every time i try to open a page in browser my CPU goes to 100% right away and it take up to 1min or more for page to load.

I have .net Framework 2.0 installed.

The thing is that from the beginning the page loaded ok, but after a month when i was actually trying to start learing aspx the page need lots of time to load and CPU is at 100% always.

I reinstalled framework, but same thing occur.

Can you give me some suggestions what should I do so that asp.net would run normaly?

Thanks,

Edited by urko - 12 August 2006 at 2:49pm

Urko

Sorry

here is the index.aspx.

I have found this script on web.....

[code]
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.Oledb" %>

<script runat="server">

'++++++++++++++++++++++++++++++++++++++++++++
'Handle the page load event
Sub Page_Load(Sender As Object, E As EventArgs)

         'Display all categories
         Display_Category()

         'Call Total Link Count - get the number links
         Total_Link_Count()

         'Call Newest links
         Newest_Links()

         'Call MostPopular Sub - Display 15 most popular links
         Most_Popular_Links()

         'Call risplay link name A to Z
         Display_Letter_Links()

         'Call Random link
         Random_Link_Number()
         Random_Link()

         lblletter.Text = "Link Name A-Z:"

End Sub
'++++++++++++++++++++++++++++++++++++++++++++

'++++++++++++++++++++++++++++++++++++++++++++
'Display all categories with count
Sub Display_Category()

strSQL = "SELECT *, (SELECT COUNT (*) FROM LINKS WHERE LINKS.CAT_ID = CATEGORY.CAT_ID AND LINK_APPROVED = 1) AS REC_COUNT FROM CATEGORY ORDER BY CAT_NAME ASC"

         'Call Open database - connect to the database
         DBconnect()

         Dim LinkAdapter as New OledbDataAdapter(objCommand)
         Dim dts as New DataSet()
         LinkAdapter.Fill(dts, "CAT_ID")

         lbltotalCat.Text = CStr(dts.Tables(0).Rows.Count) & " categories"

         LinkCat.DataSource = dts.Tables("CAT_ID").DefaultView
         LinkCat.DataBind()

         'Close database connection
         objConnection.Close()

End Sub
'++++++++++++++++++++++++++++++++++++++++++++

'++++++++++++++++++++++++++++++++++++++++++++
'Show an Item in a Bound List - Display sub categories
'This is not the best way to query the sub-categories name. After many attempts, I decided to use this method and it works. I'm not sure
'hos this affect the performance, since it use nested queries.
Sub LinkCat_ItemDataBound(sender As Object, e As DataListItemEventArgs)

    'First, make sure we're not dealing with a Header or Footer row
    If e.Item.ItemType <> ListItemType.Header AND e.Item.ItemType <> ListItemType.Footer then

       Dim intCatID as integer
       Dim strSQL2 as string

       intCatID = DataBinder.Eval(e.Item.DataItem, "CAT_ID")

       Dim subnamelabel As Label = CType(e.Item.FindControl("lblsubname"), Label)

       'SQL display details and rating value
       strSQL2 = "SELECT * FROM SUBCATEGORY WHERE CAT_ID=" & intCatID & " Order by SUB_NAME DESC"

       Dim objDataReader as OledbDataReader

       objConnection = New OledbConnection(strConnection)
       objCommand = New OledbCommand(strSQL2, objConnection)

       objConnection.Open()
       objDataReader = objCommand.ExecuteReader()

       'Read data
        objDataReader.Read()

        Dim intSID as integer = objDataReader("SUB_ID")

subnamelabel.text = subnamelabel.text & "<a class=""dt3"" title=""Go to " & objDataReader("SUB_NAME") &" Sub-Category"" href=""pageview.aspx?tab=" & 1 & "&catid=" & intCatID & "&subid=" & intSID & """>" & objDataReader("SUB_NAME") & "</a>"

      objDataReader.Close()
      objConnection.Close()

       Dim intCatID2 as integer
       Dim strSQL3 as string

       intCatID2 = DataBinder.Eval(e.Item.DataItem, "CAT_ID")
       Dim subnamelabel2 As Label = CType(e.Item.FindControl("lblsubname2"), Label)

       'SQL display details and rating value
       strSQL3 = "SELECT * FROM SUBCATEGORY WHERE CAT_ID=" & intCatID2 & " Order by SUB_NAME ASC"

       objConnection = New OledbConnection(strConnection)
       objCommand = New OledbCommand(strSQL3, objConnection)

       objConnection.Open()
       objDataReader = objCommand.ExecuteReader()

       'Read data
       objDataReader.Read()

        Dim intSID2 as integer = objDataReader("SUB_ID")

subnamelabel2.text = subnamelabel2.text & "<a class=""dt3"" title=""Go to " & objDataReader("SUB_NAME") &" Sub-Category"" href=""pageview.aspx?tab=" & 1 & "&catid=" & intCatID2 & "&subid=" & intSID2 & """>" & objDataReader("SUB_NAME") & "</a>..."

      objDataReader.Close()
      objConnection.Close()

   End if

End Sub
'++++++++++++++++++++++++++++++++++++++++++++

'++++++++++++++++++++++++++++++++++++++++++++
'Display the alphabetical letter listing in the footer
Sub Display_Letter_Links()

      Dim i as Integer
      lblalphaletter.Text = string.empty

       for i = 65 to 90
         lblalphaletter.text = lblalphaletter.text & "<a href=""pageview.aspx?tab=2&l=" & chr(i) & chr(34) & _
" class=""letter"" title="& chr(i) & ">" & chr(i) & "</a>  "
      next

End Sub
'++++++++++++++++++++++++++++++++++++++++++++

'++++++++++++++++++++++++++++++++++++++++++++
'Sub Display 15 newest links
Sub Newest_Links()
     &nbs

Urko