Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Please Help! small changes breaking everything

Status
Not open for further replies.
JGresko

JGresko

Programmer
Apr 24, 2002
86
US
ANY Suggestions Welcome!

Excuse the amount of text here, I don’t usually include a full page of code to support my questions, but for the last week I've spent 75% of each day trying to fix my ASP.NET app. This is my first ASP.NET app, and at this rate, I’m not getting very far at all. Please offer any suggestions you can think of as to why my app seems to have a mind of it’s own... all the problem seem to have no cause that I can find and most disappear as suddenly as they start (but they stick around for hours).

Every day has been similar to today, so I’m using today as my example…
Today I simply changed the font size (10pt to 8pt) and family (Arial to Verdana) in the style attribute for a table and put some comments in my code-behind page (VB.NET) and now I'm getting a “Server Application Unavailable” message when I try to view the pages... the server log simply says it terminated the connection because "there was no requests for 180 seconds" ... the pages won't even come up at all. There doesn’t seem to be anything wrong with the server as I’ve put test pages on it and they display fine. I’ve also rebooted my development PC figuring what the heck, can’t hurt.

Both my dev PC and the server are Win2k, I’m using VS.NET and the server is IIS5. The HTML view for the page causing all this trouble is below. It was working fine this morning (with the exception of the dropdownlists selected text displaying in the grid when I hit the add button)


Thank you!!!!
JG



Code: 
<%@ Page Language=&quot;vb&quot; AutoEventWireup=&quot;false&quot; Codebehind=&quot;Fields_include.aspx.vb&quot; Inherits=&quot;QS.fields_include&quot;%>
<!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;>
<HTML>
  <HEAD>
	<TITLE>Search Criteria Tab</TITLE>
	<META content=&quot;Microsoft Visual Studio.NET 7.0&quot; name=GENERATOR>
	<META content=&quot;Visual Basic 7.0&quot; name=CODE_LANGUAGE>
	<META content=JavaScript name=vs_defaultClientScript>
	<META content=[URL unfurl="true"]http://schemas.microsoft.com/intellisense/ie5[/URL] name=vs_targetSchema>
  </HEAD>

<BODY MS_POSITIONING=&quot;GridLayout&quot;>

<FORM id=SCForm runat=&quot;server&quot; method=&quot;post&quot;>

<TABLE cellSpacing=0 cellPadding=5 width=&quot;100%&quot; border=0>
<TR>
	<TD vAlign=top noWrap width=&quot;35%&quot;><!-- #include file=&quot;SC_options.aspx --></TD>
	<TD vAlign=top noWrap width=&quot;5%&quot;>   </TD>
	<TD vAlign=top width=&quot;40%&quot;>
	
<TABLE cellSpacing=0 cellPadding=0 width=&quot;100%&quot; border=0 Style=&quot;FONT-SIZE: 8pt; FONT-FAMILY: Verdana&quot;>
<TR>
	<TD align=middle bgColor=#cccccc colSpan=3 height=25>
		<!-- Display Associated Title -->
		<B>
		<%If     optCat01.Checked = True Then %>            
			File# / Serial# / Grant#
		<%ElseIf optCat02.Checked = True Then %>             
			Attorney
		<%ElseIf optCat03.Checked = True Then %>             
			Patent Counsel
		<%ElseIf optCat04.Checked = True Then %>             
			Events
		<%ElseIf optCat05.Checked = True Then %>             
			Program
		<%ElseIf optCat06.Checked = True Then %>             
			Title
		<%ElseIf optCat07.Checked = True Then %>             
			Inventor
		<%ElseIf optCat08.Checked = True Then %>             
			Budget Center
		<%ElseIf optCat09.Checked = True Then %>             
			Organization
		<%ElseIf optCat10.Checked = True Then %>             
			Technical Category
		<%ElseIf optCat11.Checked = True Then %>             
			Foreign Agent
		<%End IF%>
		</B>
	</TD>
</TR>
<TR><TD align=middle colSpan=3 height=10> <!-- Spacer --></TD></TR>

<%'Begin Criteria Input Fields %>

<%If optCat01.Checked = True Then%>
	<TR>
		<TD noWrap align=right>Grant #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT id=Grant type=text maxLength=20 size=20 name=Grant></TD>
	</TR><TR>
		<TD noWrap align=right>File #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=File id=File></TD>
	</TR><TR>
		<TD noWrap align=right>Type:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><ASP:DROPDOWNLIST id=lstType runat=&quot;server&quot; DataValueField=&quot;CODTYP&quot; datatextfield=&quot;LIBTGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%ElseIf optCat02.Checked = True Then %>
	<TR>
		<TD noWrap align=right>Attorney:  </TD>
		<TD width=&quot;3%&quot;> </TD>
		<TD><INPUT type=text maxLength=4 size=20 name=Attorney id=Attorney></TD>
	</TR>
<%ElseIf optCat03.Checked = True Then %>
	<TR>
		<TD noWrap align=right>Manager:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><ASP:DROPDOWNLIST id=lstManager runat=&quot;server&quot; DataValueField=&quot;IDEPAY&quot; datatextfield=&quot;LIBPGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%ElseIf optCat04.Checked = True Then %>
	<TR>
		<TD noWrap align=right>Event:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=Ent id=Ent></TD>
	</TR>
<%ElseIf optCat05.Checked = True Then %>
	<TR>
		<TD noWrap align=right>Program:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=Program id=Program></TD>
	</TR>
<%ElseIf optCat06.Checked = True Then %>
	<TR>
		<TD noWrap align=right>Title:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=Title></TD>
	</TR>
<%ElseIf optCat07.Checked = True Then %>
	<TR>
		<TD noWrap align=right>Last Name:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=LName></TD>
	</TR><TR>
		<TD noWrap align=right>First Name:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=Fname></TD>
	</TR>
<%End If%>


<%If (optCat01.Checked = True) OR (optCat02.Checked = True) OR (optCat03.Checked = True) OR (optCat04.Checked = True) OR (optCat05.Checked = True) OR (optCat06.Checked = True) OR (optCat07.Checked = True) Then %>
	<TR>
		<TD noWrap align=right width=&quot;40%&quot;>Country:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD width=&quot;57%&quot;><ASP:DROPDOWNLIST id=lstCountry runat=&quot;server&quot; DataValueField=&quot;IDEPAY&quot; datatextfield=&quot;LIBPGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%End IF%>


<%If optCat01.Checked = True Then %>	
	<TR>
		<TD noWrap align=right>Application #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=AppNum></TD>
	</TR><TR>
		<TD noWrap align=right>Internal Ref #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=IRNum></TD>
	</TR><TR>
		<TD noWrap align=right>Outside Counsel Ref #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=OCNum></TD>
	</TR><TR>
		<TD noWrap align=right>Aquired Ref #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=AqRNum></TD>
	</TR><TR>
		<TD noWrap align=right>Agent Ref #:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD><INPUT type=text maxLength=20 size=20 name=ARNum></TD>
	</TR><TR>
		<TD noWrap align=right STYLE=&quot;HEIGHT: 21px&quot;>Agent Country:  </TD>
		<TD width=&quot;3%&quot; STYLE=&quot;HEIGHT: 21px&quot;></TD>
		<TD STYLE=&quot;HEIGHT: 21px&quot;><ASP:DROPDOWNLIST id=ARcountry runat=&quot;server&quot; DataValueField=&quot;IDEPAY&quot; datatextfield=&quot;LIBPGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%ElseIf optCat08.Checked = True Then %>
	<TR>
		<TD noWrap align=right width=&quot;40%&quot;>Budget Center:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD width=&quot;55%&quot;><ASP:DROPDOWNLIST id=lstBC runat=&quot;server&quot; DataValueField=&quot;IDEPAY&quot; datatextfield=&quot;LIBPGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>	
<%ElseIf optCat09.Checked = True Then %>
	<TR>
		<TD noWrap align=right width=&quot;40%&quot;>Org:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD width=&quot;55%&quot;><ASP:DROPDOWNLIST id=lstOrg runat=&quot;server&quot; DataValueField=&quot;IDEPAY&quot; datatextfield=&quot;LIBPGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%ElseIf optCat10.Checked = True Then %>
	<TR>
		<TD noWrap align=right width=&quot;40%&quot;>Tech Cat:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD width=&quot;55%&quot;><ASP:DROPDOWNLIST id=lstTC runat=&quot;server&quot; DataValueField=&quot;CODTYP&quot; datatextfield=&quot;LIBTGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%ElseIf optCat11.Checked = True Then %>
	<TR>
		<TD noWrap align=right width=&quot;40%&quot;>Agent:  </TD>
		<TD width=&quot;3%&quot;></TD>
		<TD width=&quot;55%&quot;><ASP:DROPDOWNLIST id=lstAgent runat=&quot;server&quot; DataValueField=&quot;CODTYP&quot; datatextfield=&quot;LIBTGB&quot;></ASP:DROPDOWNLIST></TD>
	</TR>
<%End If%>	

<TR>
	<TD align=middle colSpan=3 height=10 > </TD></TR>
	<TR>
	<TD align=middle colSpan=3 height=40>
		<ASP:BUTTON id=cmdAdd runat=&quot;server&quot; Text=&quot;Add Criteria&quot; CommandName=&quot;AddCriteria&quot;></ASP:BUTTON>
	</TD>
</TR>
<%' End Criteria Fields %>
</TABLE>
<%' End Inner Table %>

	</TD>
</TR><TR>
	<TD  align=middle colSpan=3>
		<TABLE border=0 cellpadding=0 cellspacing=0 width=&quot;90%&quot;>
		<TR>
			<TD><SMALL><B>SEARCH CRITERIA:</B></SMALL></TD>
			<TD align=right><ASP:BUTTON id=&quot;cmdDelete&quot;  style=&quot;FONT-SIZE: 7pt; FONT-FAMILY: Verdana; LETTER-SPACING: 1pt&quot; runat=&quot;server&quot; Text=&quot;Delete Criteria&quot; CommandName=&quot;removeCriteria&quot;></ASP:BUTTON></TD>
		</TR>
		<TR>
			<TD colspan=2 align=middle>
				<ASP:DATAGRID id=dgCriteria runat=&quot;server&quot; 
					BorderColor=&quot;black&quot;
					BorderWidth=&quot;1&quot;
					CellPadding=&quot;3&quot; 
					Font-Name=&quot;Verdana&quot;
					Font-Size=&quot;8pt&quot; 
					Width=&quot;100%&quot;>
					<HEADERSTYLE BACKCOLOR=&quot;#cccccc&quot; FONT-NAME=&quot;Verdana&quot; FONT-SIZE=&quot;10pt&quot;></HEADERSTYLE>
				</ASP:DATAGRID>
					
				<!--
					AutoGenerateColumns=&quot;false&quot;
					OnEditCommand=&quot;dgCriteria_Edit&quot;
					OnCancelCommand=&quot;dgCriteria_Cancel&quot;
					OnUpdateCommand=&quot;dgCriteria_Update&quot;
					-->
			</TD>
		</TR>
		</TABLE>
		
	</TD>
</TR>
</TABLE>
</FORM>

</BODY>
</HTML>


The Code Behind page looks like this. . .
Code: 
Public Class fields_include

    Inherits System.Web.UI.Page
    Protected WithEvents lstType As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstCountry As System.Web.UI.WebControls.DropDownList
    Protected WithEvents ARcountry As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstManager As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstOrg As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstBC As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstTC As System.Web.UI.WebControls.DropDownList
    Protected WithEvents lstAgent As System.Web.UI.WebControls.DropDownList

    Protected WithEvents Grant As System.Web.UI.WebControls.TextBox
    Protected WithEvents FileNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents AppNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents IRNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents OCNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents AqRNum As System.Web.UI.WebControls.TextBox
    Protected WithEvents ARNum As System.Web.UI.WebControls.TextBox

    Protected WithEvents optCat01 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat02 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat03 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat04 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat05 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat06 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat07 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat08 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat09 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat10 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents optCat11 As System.Web.UI.WebControls.RadioButton
    Protected WithEvents dgCriteria As System.Web.UI.WebControls.DataGrid
    Protected WithEvents cmdDelete As System.Web.UI.WebControls.Button

    Protected WithEvents cmdAdd As System.Web.UI.WebControls.Button


#Region &quot; Web Form Designer Generated Code &quot;

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Dim dGrid As DataTable
    Dim dGridView As DataView

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        'Create database connections for dropdown lists
        Dim strConn As String = &quot;Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=xeroxpat;password=xeroxpat;Data Source=QuickSearch;&quot;
        Dim Conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(strConn)
        Dim strSQL As String
        Dim Cmd As System.Data.OleDb.OleDbCommand

        If Not (optCat08.Checked Or optCat09.Checked Or optCat10.Checked Or optCat11.Checked) Then
            strSQL = &quot;SELECT 0 as IDEPAY, ' ' as LIBPGB from dual union SELECT IDEPAY, LIBPGB FROM TABPAY ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstCountry.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.Default)
            lstCountry.DataBind()
            Conn.Close()
        End If

        If optCat01.Checked = True Then

            strSQL = &quot;SELECT 0 AS IDEPAY, ' ' AS LIBPGB FROM Dual Union SELECT IDEPAY, LIBPGB FROM TABPAY ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            ARcountry.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            ARcountry.DataBind()
            Conn.Close()

            strSQL = &quot;SELECT Null as CODTYP, ' ' as LIBTGB from dual union SELECT CODTYP, LIBTGB FROM TABTYP ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstType.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            lstType.DataBind()
            Conn.Close()

        ElseIf optCat03.Checked = True Then
            strSQL = &quot;SELECT 0 AS IDEPAY, ' ' AS LIBPGB FROM Dual Union SELECT IDEPAY, LIBPGB FROM TABPAY ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstManager.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            lstManager.DataBind()
            Conn.Close()
        ElseIf optCat08.Checked = True Then
            strSQL = &quot;SELECT 0 AS IDEPAY, ' ' AS LIBPGB FROM Dual Union SELECT IDEPAY, LIBPGB FROM TABPAY ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstBC.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            lstBC.DataBind()
            Conn.Close()
        ElseIf optCat09.Checked = True Then
            strSQL = &quot;SELECT 0 AS IDEPAY, ' ' AS LIBPGB FROM Dual Union SELECT IDEPAY, LIBPGB FROM TABPAY ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstOrg.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            lstOrg.DataBind()
            Conn.Close()
        ElseIf optCat10.Checked = True Then
            strSQL = &quot;SELECT Null as CODTYP, ' ' as LIBTGB from dual union SELECT CODTYP, LIBTGB FROM TABTYP ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstTC.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            lstTC.DataBind()
            Conn.Close()
        ElseIf optCat11.Checked = True Then
            strSQL = &quot;SELECT Null as CODTYP, ' ' as LIBTGB from dual union SELECT CODTYP, LIBTGB FROM TABTYP ORDER BY 2&quot;
            Cmd = New System.Data.OleDb.OleDbCommand(strSQL, Conn)
            Conn.Open()
            lstAgent.DataSource = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)
            lstAgent.DataBind()
            Conn.Close()

        End If


        'Create Search Criteria Grid
        If Session(&quot;Scriteria&quot;) Is Nothing Then
            dGrid = New DataTable()
            dGrid.Columns.Add(New DataColumn(&quot;Field&quot;, GetType(String)))
            dGrid.Columns.Add(New DataColumn(&quot;Op&quot;, GetType(String)))
            dGrid.Columns.Add(New DataColumn(&quot;Value&quot;, GetType(String)))
            Session(&quot;Scriteria&quot;) = dGrid
        Else
            dGrid = CType(Session(&quot;Scriteria&quot;), DataTable)
        End If
        dGridView = New DataView(dGrid)
        dgCriteria.DataSource = dGridView
        dgCriteria.DataBind()


    End Sub

    Private Sub cmdAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        Dim scRow As DataRow
        Dim boo As String = &quot;<SELECT Name='&quot;
        Dim boo2 As String = &quot;' SIZE=1><OPTION VALUE='AND'>AND</OPTION><OPTION VALUE='OR'>OR</OPTION></SELECT>&quot;

        If optCat01.Checked = True Then
            If Request(&quot;Grant&quot;) <> &quot;&quot; Then                      'Grant #:	Grant
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Grant #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opGrant&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;Grant&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If Request(&quot;File&quot;) <> &quot;&quot; Then                      'File #:	File
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;File #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opFile&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;File&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If Request(&quot;AppNum&quot;) <> &quot;&quot; Then                      'Application #: AppNum
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Application #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opAppNum&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;AppNum&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If Request(&quot;IRNum&quot;) <> &quot;&quot; Then                      'Internal Ref #:   IRNum
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Internal Ref #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opIRNum&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;IRNum&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If Request(&quot;OCNum&quot;) <> &quot;&quot; Then                      'Outside Counsel Ref #: 	OCNum
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Outside Counsel Ref #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opOCNum&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;OCNum&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If Request(&quot;AqRNum&quot;) <> &quot;&quot; Then                      'Aquired Ref #: 	        AqRNum
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Aquired Ref #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opAqRNum&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;AqRNum&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If Request(&quot;ARNum&quot;) <> &quot;&quot; Then                      'Agent Ref #:   ARNum
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Agent Ref #&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opARNum&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;ARNum&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If

            If (lstType.SelectedItem.Text <> &quot; &quot;) Then      'Type:  lstType (DropDownList)
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Type&quot;
                scRow(&quot;Op&quot;) = boo & &quot;oplstType&quot; & boo2
                scRow(&quot;Value&quot;) = lstType.SelectedItem.Text
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If lstCountry.SelectedItem.Text <> &quot; &quot; Then      'Country:  lstCountry (DropDownList)
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Country&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opCountry&quot; & boo2
                scRow(&quot;Value&quot;) = lstCountry.SelectedItem.Text
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            If ARcountry.SelectedItem.Text <> &quot; &quot; Then      'Agent Country: ARcountry (DropDownList)
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Agent Country&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opARcountry&quot; & boo2
                scRow(&quot;Value&quot;) = ARcountry.SelectedItem.Text
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If

        ElseIf optCat02.Checked = True Then
            If Request(&quot;Attorney&quot;) <> &quot;&quot; Then                      'Attorney:	Attorney
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Attorney&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opAttorney&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;Attorney&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            'Country: 	                lstCountry	DropDownList
        ElseIf optCat03.Checked = True Then
            'Manager:   lstManager                  DropDownList
            'Country: 	                lstCountry	DropDownList
        ElseIf optCat04.Checked = True Then
            If Request(&quot;Ent&quot;) <> &quot;&quot; Then                      'Event:	    Ent
                scRow = dGrid.NewRow()
                scRow(&quot;Field&quot;) = &quot;Event&quot;
                scRow(&quot;Op&quot;) = boo & &quot;opEvent&quot; & boo2
                scRow(&quot;Value&quot;) = Request(&quot;Ent&quot;)
                dGrid.Rows.Add(scRow)
                dGridView = New DataView(dGrid)
                dgCriteria.DataSource = dGridView
                dgCriteria.DataBind()
            End If
            'Country: 	                lstCountry	DropDownList
        ElseIf optCat05.Checked = True Then
            'Program: 	Program
            'Country: 	                lstCountry	DropDownList
        ElseIf optCat06.Checked = True Then
            'Title: 	Title
            'Country: 	                lstCountry	DropDownList
        ElseIf optCat07.Checked = True Then
            'Last Name: 	            Lname
            'First Name: 	            Fname
            'Country: 	                lstCountry	DropDownList
        ElseIf optCat08.Checked = True Then
            'Budget Center: 	        lstBC	    DropDownList
        ElseIf optCat09.Checked = True Then
            'Org: 	                    lstOrg	    DropDownList
        ElseIf optCat10.Checked = True Then
            'Tech Cat: 	                lstTC	    DropDownList
        ElseIf optCat11.Checked = True Then
            'Agent: 	                lstAgent	DropDownList
        End If

    End Sub


    Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDelete.Click
        'Delete Criteria     -- my whiteboard area

        'InstalledFonts.Items.Remove(InstalledFonts.SelectedItem.Value)
        'Dim dr As DataRow = dGrid.NewRow()
        'Dim scRow As DataRow
        'scRow(&quot;Value&quot;) = ARcountry.SelectedItem.Text
        'dGrid.Rows.Add(scRow)
        'dGrid.Rows.Remove(    )
        'dGridView = New DataView(dGrid)
        'dgCriteria.DataSource = dGridView
        'dgCriteria.DataBind()


    End Sub


End Class
 
Sort by date Sort by votes
When you get that big red message, it's your server, not your code.

If your server is a domain controller, then here's a KB article:


here's the address for the asp.net support center:

You might also try going w/ cmd prompt to:
c:\winnt\system32\microsoft.net\framework\vxxx.xxx
and run:
aspnet_regiis -i

to reinstall asp.net to your iis -- and then I'd start restarting my services.

If none of this works, then grab any error code you see in the event log and start searching google for it... the only thing I can tell you for sure is what I said first. It's your server, not your code.

good luck -
paul

ps. if it makes you feel any better, you're not alone. my production servers are clustered domain controllers and I've spent quite a bit of time hair pulling myself.
penny1.gif
penny1.gif
 
Upvote 0 Downvote
Thanks Paul

My server is not a domain controller, so I skipped that part and aspnet_regiis -i didn't do anything for the server either, but it did fix the server on my development PC which had refused to run ASP.NET at all until now... small yeah. Unfortunatly I'm still getting the same big red text... now on both servers.

I can run simple 'hello world' type aspx files on both servers, but not my problem page. I know you said it's my server, not my code... but why is that page giving me the same 'Server Application Unavailable' error on two different servers while other aspx files will run on them? I checked the Application Log in my event viewer and the same errors (see below) are showing up on both servers. Am I looking at the right log? I've been a programmerfor a few years, but I've always had someone handle the environment setup until now so please pardon me if I'm a bit slow about the server side configuration. It's not obvious to me what codes should I be looking up?

Thanks!!! for your help,

Judy

Code: 
Event Type:	Error
Event Source:	Userenv
Event Category:	None
Event ID:	1000
Date:		6/26/2002
Time:		12:20:27 PM
User:		NT AUTHORITY\SYSTEM
Computer:	JGRESKO2K
Description:
Windows cannot determine the user or computer name. Return value (1722). 
==========================================================
Event Type:	Error
Event Source:	ASP.NET 1.0.3705.0
Event Category:	None
Event ID:	1003
Date:		6/26/2002
Time:		12:16:28 PM
User:		N/A
Computer:	JGRESKO2K
Description:
aspnet_wp.exe  (PID: 864) 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. 

==========================================================
Server Application Unavailable
The web application you are attempting to access on this web server is currently unavailable.  Please hit the &quot;Refresh&quot; button in your web browser to retry your request. 

Administrator Note: An error message detailing the cause of this specific request failure can be found in the system event log of the web server. Please review this log entry to discover what caused this error to occur.


 
Upvote 0 Downvote
One thing - I don't know if it'll help your problem, but you should enclose everything in your Page_Load function with the following if statement:

If Not IsPostBack Then
...
End If

Just something to note Chris says: &quot;It's time for a beer.&quot;
 
Upvote 0 Downvote
Thanks Chris,

I wasn't sure what portions should be in that so i hadn't put it in yet. I just did to see if it'd make any difference, but it didn't.

Judy

PS: someone on microsoft.public.dotnet.framework.aspnet is having the same problem
 
Upvote 0 Downvote
VICTORY DANCE... I've been trying to fix the app and then the server for over 24 hours and it was the database the whole time!!!!

THANK YOU HARRY!!!!!!!!!!!!!



&quot;JGresko&quot; <judy_gresko@hotmail.com> wrote in message news:rbnS8.68797$GY.24953667@twister.nyroc.rr.com...

My DataGrid is empty when the page is first accessed, but there are three dropdown lists that are populated...
<short break while I invistigate...>

I just discovered the database instance is frozen solid......... I'm off to scare up a DBA

&quot;Harry Simpson&quot; <hssimpson@nospamphgt.net> wrote in message news:e4y60VTHCHA.2364@tkmsftngp11...
Usually you get this error when you try to cram too much data into a datagrid. Memory is exceeded and IIS will shut down the session before it gets too squirrely.

Look at any data access you are doing and put a break right after you retreive your dataset. Then check the tables(0).Rows.count and see how many records you're bringing back..

HTH,
Harry Simpson
MCSD

&quot;JGresko&quot; <judy_gresko@hotmail.com> wrote in message news:7umS8.68690$GY.24909849@twister.nyroc.rr.com...
I'm having the same problem... I hope someone can help!

see my post from yesterday &quot;Please Help! gremlin ridden page&quot;
also posted to &quot;Tek-Tips&quot; forum at thread855-300745

&quot;Assaf Wodeslavksy&quot; <assafwo@hotmail.com> wrote in message news:O8lC8CTHCHA.2716@tkmsftngp12...
hi all.

my iis has stopped working for me.
one second, all was well.
i was debuggin an aspx file.

i made a change and re-ran it.
and than, suddenly. i got this screen for any aspx file.

Server Application Unavailable

<<<REST SNIPPED>>>
 
Upvote 0 Downvote
I noticed that you got the following error:

aspnet_wp.exe (PID: 864) 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.

Now, this error can be caused by deadlock (2 or more processes trying to acquire the same data resource at the same time and waiting for each other ad infinitum)

OR, you could be getting this error because the SQL queries you have are timing out. They could be timing out because you are using UNION queries which can produce enormous tables (depending on the size of your tables of course). These tables are stored in a temporary database on Oracle, and it has a size limit. If your queries produce tables that are too large, this size limit will be reached, and you wil get no response from Oracle, which would leave your asp_net process hanging.... Whew!

I would try commenting out your queries, to see if this is the problem.

Good luck! Chris says: &quot;It's time for a beer.&quot;
 
Upvote 0 Downvote
Ok, I was too late - and wrong - oh well :(
Glad you solved the problem though
Chris says: &quot;It's time for a beer.&quot;
 
Upvote 0 Downvote


...And thanks to Chris too!!! I'll check the unions to see if they caused the database to wig out.

Thanks!
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

G12Consult
  • Locked
  • Question
Help with Json
Replies
2
Views
704
gmmastros
gmmastros
ahm1985
  • Locked
  • Question
cannot save changes of courses if remove in edit httppost
Replies
0
Views
109
ahm1985
ahm1985
southbeach
  • Locked
  • Question
.NET to PHP snippet - Translate this for me please!
Replies
3
Views
140
MakeItSo
MakeItSo
peac3
  • Locked
  • Question
Generate console exe apps in web bin folder... help
Replies
1
Views
125
jbenson001
jbenson001
stinkybee
  • Locked
  • Question
Update dropdownlist in one listview after changes in another
Replies
1
Views
131
jbenson001
jbenson001

Part and Inventory Search

Sponsor

Back
Top