Problem with server? PLEASE HELP!!!

G

Gertie

Active member
Joined
May 8, 2003
Messages
25
Location
Belgium
Im 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 wont anymore?

error: Server Application Unavailable

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

Ive changed only one page!

greetz, thanks Gertie
 
only one page

It seems that it will only crash when im trying to run one specific page.

Is it my code?

greetz
 
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 dont know where to find that!

Code: 
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 dont understand at al
 
Last edited by a moderator:
Back
Top