Ошибка в событиях:

aspnet_wp.exe (PID: 1616) was recycled because it was suspected to be in a deadlocked state. It did not send any responses for pending requests in the last 180 seconds.

После перезагрузки работает пару часов.

Спасибо за ответ. Я все прочитал и вот еще пару вопросов:
1. Обновление Service Pack 2 решит эту проблему?
2. Может ли эта проблема происходить от того, что SQL Server не возвращает результат запроса за 180 секунд?
3. Если я поменяю 180 секунд на большую цифру проблема может решиться?

2,3 попробовал - не помогло. Даже поменял компьютер и всю систему заново. Так как я начинающий в ASP думаю остается одно - искать в программе. В принципе программа простая. Сам тестирую с 5 компьютеров одновременно по всем возможным параметрам - все работает.

Могу выставить полный код программы.

Сайт:
http://mhm.azrabita.net

Вот он код


Imports System
Imports System.Web
Imports System.WEB.UI
Imports System.Web.UI.Webcontrols
Imports System.Web.UI.Htmlcontrols
Imports System.Data
Imports System.Data.OLEDB
Imports System.Data.SqlClient

Public Class Search : Inherits Page

Protected lblResult as label
Protected txttel as textbox
Protected RangeValidator as RangeValidator
Protected WithEvents cmdSubmit as Button

Protected lbltext as label
Protected txtats as textbox
Protected txtfio as textbox
Protected txtadr as textbox
Protected lststreet as dropdownlist
Protected lstkat as dropdownlist

Protected WithEvents MyDataGrid As DataGrid
Protected Chk1 As Checkbox
Protected lblCurrentIndex As Label
Protected lblPageCount As Label
Protected lblRecCount As Label


Dim sqlConnection1 as SqlConnection = new SqlConnection("server=(local);database=search;Trusted_Connection=yes")
Dim reccount as string

Private SUB cmdSubmit_Click(sender As Object, e As EventArgs) Handles cmdSubmit.Click

MyDataGrid.CurrentPageIndex = 0
MyDataGrid.DataBind()
if txttel.text=""
SubmitAdr_Click()
else
SubmitTel_Click()
end if
lststreet.SelectedIndex = lststreet.Items.IndexOf(lststreet.Items.FindByValue(Request.Form("lststreet")))
End Sub


Private SUB Page_load(sender As Object, e As EventArgs) Handles MyBase.load

MyDataGrid.PagerStyle.Mode = PagerMode.NumericPages

if me.IsPostBack = False
lstkat.Items.Add(New ListItem("","0"))
lstkat.Items.Add(New ListItem("Ferdi","1"))
lstkat.Items.Add(New ListItem("Idare","3"))
End If
FillStreet()

lststreet.SelectedIndex = lststreet.Items.IndexOf(lststreet.Items.FindByValue(Request.Form("lststreet")))

End Sub


Function FillStreet()


Dim cmd As New SqlCommand("Select st_kod, st_adi from wstr order by st_adi", sqlConnection1)
Dim adapter As New SqlDataAdapter(cmd)
Dim Street As New DataSet()

Try
sqlConnection1.Open()
lststreet.datavaluefield = "st_kod"
lststreet.datatextfield = "st_adi"
adapter.fill(Street, "Street")
lststreet.datasource = street
lststreet.databind()
lststreet.SelectedIndex = lststreet.Items.IndexOf(lststreet.Items.FindByValue(Request.Form("lststreet")))

Catch err As Exception
lbltext.text = err.message()
Finally
End Try

End Function



Function SubmitAdr_Click()

if txtats.text & txtfio.text & txtadr.text = ""
Exit Function
end if

Dim SelectSql As String = ""

if txtats.text <> ""
SelectSql = "ad_tel>=" & txtats.text & "0000 and ad_tel<=" & txtats.text & "9999"
end if

if txtfio.text <> ""
if SelectSql <> ""
SelectSql &= " and "
end if
SelectSql &= "ad_adi like '%" & txtfio.text & "%'"
end if

if txtadr.text <> ""
if SelectSql <> ""
SelectSql &= " and "
end if
SelectSql &= "ad_hane like '%" & txtadr.text & "%'"
end if

if request.form("lststreet") <> "0"
if SelectSql <> ""
SelectSql &= " and "
end if
SelectSql &= "ad_street=" & request.form("lststreet")
end if

if lstkat.SelectedItem.value <> "0"
if SelectSql <> ""
SelectSql &= " and "
end if
SelectSql &= "ad_kategori=" & lstkat.SelectedItem.value
end if



SelectSql = "Select TOP 1000 ad_tel, ad_kategori, ad_adi, st_adi, ad_hane from wAdr " & _
"Left Join wStr On ad_street = st_kod Where " & selectsql


Dim sqlAdapter1 as SqlDataAdapter
Dim Adres As New Dataset

MyDataGrid.showheader = false
MyDataGrid.AllowPaging="True"
MyDataGrid.Pagesize = 10


Try
sqlAdapter1 = new SqlDataAdapter(SelectSQL, SqlConnection1)
sqladapter1.fill(Adres, "Adres")
MyDataGrid.datasource = Adres
MyDataGrid.databind()
reccount = adres.tables(0).Rows.Count
' lststreet.SelectedIndex = lststreet.Items.IndexOf(lststreet.Items.FindByValue(Request.Form("lststreet")))

Catch err As Exception
lbltext.text = err.message()
' Finally
End Try

if reccount = 0
lblResult.Text = "M lumat yoxdur"
mydatagrid.visible = false
lblCurrentIndex.visible = false
lblPageCount.visible = false
lblRecCount.visible = false
else
mydatagrid.visible = true
lblCurrentIndex.visible = true
lblPageCount.visible = true
lblRecCount.visible = true
end if
ShowStats()

End Function




Function SubmitTel_Click()
if txttel.text=""
Exit Function
end if

Dim SelectSql As String = "Select ad_tel, ad_adi, st_adi, ad_hane, ad_kategori from wAdr " & _
"Left Join wstr on ad_street = st_kod Where ad_Tel="& txttel.text


Dim sqlAdapter1 as SqlDataAdapter
Dim Adres As New Dataset




Try

sqlAdapter1 = new SqlDataAdapter(SelectSQL, SqlConnection1)
sqladapter1.fill(Adres, "Adres")
reccount = adres.tables(0).Rows.Count


if reccount = 0
lblResult.Text = "Məlumat yoxdur"
else
Dim kat as string
if adres.Tables(0).Rows(0).Item(4) = 1
kat = "Fərdi"
else
kat = "İdarə"
end if
lblResult.Text = adres.Tables(0).Rows(0).Item(1).Trim() & ", " & _
adres.Tables(0).Rows(0).Item(2).Trim() & ", " & _
adres.Tables(0).Rows(0).Item(3).Trim() & ", " & kat
end if


Catch err As Exception
lblResult.Text=err.Message
' Finally
End Try

End Function



Private Sub MyDataGrid_PageIndexChanged(ByVal source As Object, ByVal e As DataGridPageChangedEventArgs) _
Handles MyDataGrid.PageIndexChanged
MyDataGrid.CurrentPageIndex = e.NewPageIndex
SubmitAdr_Click()
lststreet.SelectedIndex = lststreet.Items.IndexOf(lststreet.Items.FindByValue(Request.Form("lststreet")))
End Sub

Function ShowStats()
lblCurrentIndex.Text = "Vərəq: " & (MyDataGrid.CurrentPageIndex + 1)
lblPageCount.Text = "Cəmi vərəqin sayı: " & MyDataGrid.PageCount
lblRecCount.Text = "Cəmi tapılıb: " & reccount & " telefon"
End Function


End class