Problem with server? PLEASE HELP!!!

[Gertie]

I'm developping an application, everything goes great, but now all of a sudden i get following error and none of my pages get loaded for a long time, then at once they get loaded again, and then 5 minutes later they won't anymore?

 

error: Server Application Unavailable

 

all pages where working fine, until now? What can there be wrong?

 

I've changed only one page!

 

greetz, thanks Gertie

[Gertie]

only one page

 

It seems that it will only crash when i'm trying to run one specific page.

 

Is it my code?

 

greetz

[PlausiblyDamp]

Without seeing the code - probably.

You may get a better response if you show the code in question.

[Gertie]

In the page_load i just try to fill the page with data from a dataset/ dataview.

 

Only if i put the loop for the Dropdownlist "DDPlaats" code that is in commentary now, into work, the complete application gives a

Server unavailable error.

 

This error tells me to go and have a look at de System event log for te web server, but i don't know where to find that!

 

If Not Page.IsPostBack Then
           'Gegevens ophalen en in dataset steken
           bindData("select * from Postcode", "Postcode")
           'bindData("select * from Customer", "Customer")
           bindData("select * from Webgebruiker", "Webgebruikers")
           bindData("select * from qryGebruiker where KlantNr LIKE '" & getUser("KlantNr") & "' AND GebrNickNaam LIKE '" & getUser("GebrNickNaam") & "'", "Webgebruiker")
           'Postcode en plaats dropdownlists vullen
           DDPlaats.DataTextField = "Plaats"
           DDPlaats.DataValueField = "Postcode"
           DDPlaats.DataSource = dsSignUp.Tables("Postcode")
           DDPlaats.DataBind()
           DDPlaats.Items.Insert(0, "--Gemeente--")
           DDPlaats.Items.Add("--Andere--")
           DDPlaats.SelectedIndex() = 0

           DDPostcode.DataTextField = "Postcode"
           DDPostcode.DataValueField = "Plaats"
           DDPostcode.DataSource = dsSignUp.Tables("Postcode")
           DDPostcode.DataBind()
           DDPostcode.Items.Insert(0, "--Pcode--")
           DDPostcode.Items.Add("--Andere--")
           DDPostcode.SelectedIndex() = 0

           'Alle velden vullen, om aangepast te worden
           dtvWebgebruiker = dsSignUp.Tables("Webgebruiker").DefaultView
           txtKlantCode.Text = ManageNull(dtvWebgebruiker(0)("KlantNr"))
           txtNickNaam.Text = ManageNull(dtvWebgebruiker(0)("GebrNickNaam"))
           txtVoornaam.Text = ManageNull(dtvWebgebruiker(0)("GebrVoornaam"))
           txtNaam.Text = ManageNull(dtvWebgebruiker(0)("GebrNaam"))
           txtAdres.Text = ManageNull(dtvWebgebruiker(0)("GebrAdres"))
           txtPost.Text = ManageNull(dtvWebgebruiker(0)("GebrPostcode"))
           txtPlaats.Text = ManageNull(dtvWebgebruiker(0)("Plaats"))
           txtFax.Text = ManageNull(dtvWebgebruiker(0)("GebrFax"))
           txtTel.Text = ManageNull(dtvWebgebruiker(0)("GebrTel"))
           txtEmail.Text = ManageNull(dtvWebgebruiker(0)("GebrEmail"))
           'DDPlaats.SelectedIndex = DDPlaats.Items.Count - 1
           'Do
           '    If DDPlaats.SelectedItem.Value = ManageNull(dtvWebgebruiker(0)("Plaats")) Then
           '        Exit Do
           '    End If
           '    DDPlaats.SelectedIndex = DDPlaats.SelectedIndex - 1
           'Loop While DDPlaats.SelectedIndex >= 0
           DDWijze.SelectedIndex = DDWijze.Items.Count - 1
           Do
               If DDWijze.SelectedItem.Value = ManageNull(dtvWebgebruiker(0)("GebrVerwittigWijze")) Then
                   Exit Do
               End If
               DDWijze.SelectedIndex = DDWijze.SelectedIndex - 1
           Loop While DDWijze.SelectedIndex >= 0
           dbConn.closeConnection()
       End If

 

The rest of the code is merely for letting the user navigate through the page and application. And to validate the fields and all, but this works perfectly on another page with the same fields?!

 

I don't understand at al

Edited May 22, 2003 by divil