skal ikke visse i listboks

huh?
Hvis Seleted er true/sand, udføres:

      Sql_Str = "SELECT x_Terminal FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_Terminal ASC"             
      GetComboData aFe,Sql_Str

Du kan lave en
Sub DoConnect()
      Sql_Str = "SELECT x_Terminal FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_Terminal ASC"             
      GetComboData aFe,Sql_Str
End sub

Og så kalde den med DoConnect, når du vil..

hmm.. skal der egentligt () efter navnet på en sub, hvis den ikke bruge parametre?

nej jeg bruger ikke nogen parameter :)

jo men du kan ikke smide en procedure ind i en anden procedure ! eller kan man ?



for hvis jeg forstå dig rigtigt kommer det til at se således ud :




  Sub ShowTerminal(aFe)
    if Selected then
      if FirstRow then
        Ankomst    =  Request.Form("Ankomst")
        Afrejse    =  Request.Form("Afrejse")
        Tmp_Array  =  Split(Request.Form("flightnr"),":")
        Flightnr    =  Trim(Tmp_Array(0))
        Afrejsedato =  Request.Form("afrejsedato")
      else
        Ankomst    =  Request.Form("Ankomst1")
        Afrejse    =  Request.Form("Afrejse1")
        Tmp_Array  =  Split(Request.Form("flightnr1"),":")
        Flightnr    =  Trim(Tmp_Array(0))
        Afrejsedato =  Request.Form("hjemrejsedato")
      End if
   
    Sub DoConnect
      Sql_Str = "SELECT x_Terminal FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_Terminal ASC"             
    GetComboData aFe,Sql_Str
   
End sub
  else
      DisableCombobox(aFe)
    End if 
  End Sub

og når jeg smider den der doconnect som en procedure for sig, dukker der bare et problem når jeg kalder den længere nede med :



<% ShowDoConnect("terminal") %>

Det tror jeg ikke.. men kan du ikke bruge:

Sub ShowTerminal(aFe)
    if Selected then
      if FirstRow then
        Ankomst    =  Request.Form("Ankomst")
        Afrejse    =  Request.Form("Afrejse")
        Tmp_Array  =  Split(Request.Form("flightnr"),":")
        Flightnr    =  Trim(Tmp_Array(0))
        Afrejsedato =  Request.Form("afrejsedato")
      else
        Ankomst    =  Request.Form("Ankomst1")
        Afrejse    =  Request.Form("Afrejse1")
        Tmp_Array  =  Split(Request.Form("flightnr1"),":")
        Flightnr    =  Trim(Tmp_Array(0))
        Afrejsedato =  Request.Form("hjemrejsedato")
      End if

      DoConnect

  else
      DisableCombobox(aFe)
    End if 
  End Sub

Sub DoConnect()
      Sql_Str = "SELECT x_Terminal FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_Terminal ASC"             
      GetComboData aFe,Sql_Str
End Sub

Hvis den ikke automatisk skal hente data fra db, kan du f.eks. bruge:



Sub ShowTerminal(aFe)
    if Selected then
      if FirstRow then
        Ankomst    =  Request.Form("Ankomst")
        Afrejse    =  Request.Form("Afrejse")
        Tmp_Array  =  Split(Request.Form("flightnr"),":")
        Flightnr    =  Trim(Tmp_Array(0))
        Afrejsedato =  Request.Form("afrejsedato")
      else
        Ankomst    =  Request.Form("Ankomst1")
        Afrejse    =  Request.Form("Afrejse1")
        Tmp_Array  =  Split(Request.Form("flightnr1"),":")
        Flightnr    =  Trim(Tmp_Array(0))
        Afrejsedato =  Request.Form("hjemrejsedato")
      End if

      if Hent = "ja" then DoConnect

  else
      DisableCombobox(aFe)
    End if 
  End Sub

Sub DoConnect()
      Sql_Str = "SELECT x_Terminal FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_Terminal ASC"             
      GetComboData aFe,Sql_Str
End Sub

Så skal værdien af "Hent" være "ja", før den henter data fra db..

Den hedder "ShowTerminal", og ikke "ShowDoConnect("terminal")"

Bliver nød til at smutte.. kigger tilbage engang i aften..

ok :)

den visser det som en listboks stadige, men nu er der bare ikke noget i boksen :(

Smid lige hele koden her ind.. men erstat brugernavn, kodeord, sti til database, og andre vitale data med f.eks. "*****".

lukker