fejl i asp kan ikke læse fra db

hele min kode ser sådan ud :







<!--#include file="db.asp"-->
<%

  Response.buffer = true
  Response.expires = 0
  Response.expiresabsolute = Now() - 1
  Response.addHeader "pragma", "no-cache"
  Response.addHeader "cache-control", "private"
  Response.CacheControl = "no-cache"

  if session("login") = "" Then
  ' Response.redirect("login.asp")
  end if

  Dim Error_Array()
  Dim j
  Dim Selected
  Dim ComboBox_Str
  Dim FirstRow
  Dim Arrival,Arrival1,Antal,Antal1,PrisVoksenSalg,AntalVoksenSalg,PrisBarnSalg,PrisBarnSalg1,PrisInfantSalg,PrisInfantSalg1,Terminal,Terminal1
 
  Function OpretBooking()
   
    Response.Write("Opret Booking...")

  End Function

  Sub ShowReturnValue(aFe)
    Response.Write(Request.Form(aFe))
  End Sub

  Sub ShowError(aFE)
    ReturnValue = ""
    For Each Ele In Error_Array
      if Ele = aFE then
        ReturnValue = "<font size='1' color='#FF0000'>&nbsp; *</font>"       
        Exit For
      end if
    Next
    'Response.Write(Ele)
    Response.Write(ReturnValue)
  end Sub

  Sub GetComboData(aFe,aSql)
    SQL_Str      = aSql
    ComboBox_Str = ""   
    Selected1    = False   
       
    Set DataConn = Server.CreateObject("ADODB.Connection")
    DataConn.ConnectionTimeout = 15
    DataConn.CommandTimeout    = 30
    DataConn.Open Application("xDb_Conn_Str")
    Set cmdObj = Server.CreateObject("ADODB.Command")
    cmdObj.ActiveConnection = DataConn
    cmdObj.CommandText      = SQL_Str
    cmdObj.CommandType      = 1
    Set rsObj = Server.CreateObject("ADODB.Recordset")
    rsObj.Open cmdObj, ,0,1 
 
    If Not rsObj.EOF Then rsObj.MoveFirst
 
    ComboBox_Str = "<option>Vælg</option>"
    Do While Not rsObj.EOF
      if aFe = "flightnr" OR aFe = "flightnr1" then
        Flight_Str = rsObj.Fields(0).Value & " : " & rsObj.Fields(1).Value
        if Flight_Str = Request.Form(aFe) AND Request.Form(aFe) <> "Vælg" then
          Selected1 = True
          ComboBox_Str = ComboBox_Str & "<option selected='True'>" &_
                        rsObj.Fields(0).Value & " : " & rsObj.Fields(1).Value & "</option>"
        else
          ComboBox_Str = ComboBox_Str & "<option>" & rsObj.Fields(0).Value &_
                        " : " & rsObj.Fields(1).Value & "</option>"
        End if 
      else     
        if rsObj.Fields(0).Value = Request.Form(aFe) AND Request.Form(aFe) <> "Vælg" then
          Selected1 = True
          ComboBox_Str = ComboBox_Str & "<option selected='True'>" & rsObj.Fields(0).Value & "</option>"
        else
          ComboBox_Str = ComboBox_Str & "<option>" & rsObj.Fields(0).Value & "</option>"   
        End if
      End if 
      rsObj.MoveNext
    Loop
   
    ComboBox_Str = "<select style='width:130px' name='" & aFe & "' onchange='document.forms[0].submit();' " &_ 
                  "id='" & aFe & "'>" & ComboBox_Str & "</select>"
    Response.Write(ComboBox_Str)       
    Selected    = Selected1 
   
    rsObj.Close
    Set rsObj    = Nothing
    Set cmdObj  = Nothing
    DataConn.Close
    Set DataConn = Nothing
  End Sub
 
  Sub DisableCombobox(aFe)
    ComboBox_Str = "<select disabled='True' style='width:130px' name='" & aFe & "' onchange='document.forms[0].submit();' " &_ 
                  "id='" & aFe & "'><option selected='True'>Vælg</option></select>"
    Response.Write(ComboBox_Str)
  End Sub
 
  Sub ShowFra(aFe)
    if aFe = "Afrejse" then
      FirstRow = True
    else
      FirstRow = False 
    End if 
    GetComboData aFe,"SELECT Distinct x_afrejse FROM flight ORDER BY x_afrejse ASC"
  End Sub

  Sub ShowTil(aFe) 
    if Selected then
      if FirstRow then
        Afrejse =  Request.Form("Afrejse")
      else
        Afrejse =  Request.Form("Afrejse1")
      End if
      Sql_Str = "SELECT Distinct x_ankomst FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') ORDER BY x_ankomst ASC"             
      GetComboData aFe,Sql_Str
    else
      DisableCombobox(aFe)
    End if 
  End Sub
 
  Sub ShowFlight(aFe)
    if Selected then
      if FirstRow then
        Ankomst =  Request.Form("Ankomst")
        Afrejse =  Request.Form("Afrejse")
      else
        Ankomst =  Request.Form("Ankomst1")
        Afrejse =  Request.Form("Afrejse1")
      End if
   
      Sql_Str = "SELECT Distinct x_flightnr,x_Destairlines FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') ORDER BY x_Destairlines ASC"             
      GetComboData aFe,Sql_Str
    else
      DisableCombobox(aFe)
    End if 
  End Sub

  Sub ShowDato(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))
      else
        Ankomst  =  Request.Form("Ankomst1")
        Afrejse  =  Request.Form("Afrejse1")
        Tmp_Array =  Split(Request.Form("flightnr1"),":")
        Flightnr  =  Trim(Tmp_Array(0))
      End if
      Sql_Str = "SELECT Distinct x_afrejsedato FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') ORDER BY x_afrejsedato ASC"             
      GetComboData aFe,Sql_Str
    else
      DisableCombobox(aFe)
    End if 
  End Sub

  Sub ShowDepart(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
      Sql_Str = "SELECT x_depart FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_ankomst='" & Ankomst &_
                "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') ORDER BY x_depart ASC"             
      GetComboData aFe,Sql_Str
    else
      DisableCombobox(aFe)
    End if 
  End Sub
 
 
 
 
  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
      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
    else
      DisableCombobox(aFe)
    End if 
  End Sub
 
 

 

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

     
      Sql_Str = "SELECT x_arrival,x_antal,x_PrisVoksenSalg,x_PrisBarnSalg," &_
                "x_PrisInfantSalg FROM flight WHERE (x_afrejse='" &_
                Afrejse & "') AND (x_flightnr='" & Flightnr & "') " &_
                "AND (x_afrejsedato='" & Afrejsedato & "') AND (" &_
                "x_depart='" & Depart & "')"             
     
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DataConn.ConnectionTimeout = 15
      DataConn.CommandTimeout    = 30
      DataConn.Open Application("xDb_Conn_Str")
      Set cmdObj = Server.CreateObject("ADODB.Command")
      cmdObj.ActiveConnection = DataConn
      cmdObj.CommandText      = SQL_Str
      cmdObj.CommandType      = 1
      Set rsObj = Server.CreateObject("ADODB.Recordset")
      rsObj.Open cmdObj, ,0,1 
 
      If Not rsObj.EOF Then rsObj.MoveFirst
     
      if FirstRow then
        Arrival        = rsObj.Fields(0).Value
        Antal          = rsObj.Fields(1).Value
        PrisVoksenSalg  = rsObj.Fields(2).Value
        PrisBarnSalg    = rsObj.Fields(3).Value
        PrisInfantSalg  = rsObj.Fields(4).Value
        terminal  = rsObj.Fields(5).Value
        Response.Write("<p align='right'><font size='2' color='#000000'>" &_
                        Arrival & "</font></p>")
      else
        Arrival1        = rsObj.Fields(0).Value
        Antal1          = rsObj.Fields(1).Value
        PrisVoksenSalg1 = rsObj.Fields(2).Value
        PrisBarnSalg1  = rsObj.Fields(3).Value
        PrisInfantSalg1 = rsObj.Fields(4).Value   
        terminal        = rsObj.Fields(6).Value   
        Response.Write("<p align='right'><font size='2' color='#000000'>" &_
                        Arrival1 & "</font></p>")
      End if
       
      rsObj.Close
      Set rsObj    = Nothing
      Set cmdObj  = Nothing
      DataConn.Close
      Set DataConn = Nothing
    End if 
  End Sub

  Sub ShowAntal
    if FirstRow then
      Response.Write("<p align='right'><font size='2' color='#000000'>" &_
                    Antal & "</font></p>")
    else
      Response.Write("<p align='right'><font size='2' color='#000000'>" &_
                    Antal1 & "</font></p>")
    End if
  End Sub
 
 
 
 
 
 
 
 
 

  Function CheckDateTime(aFe)
    ReturnValue = True
    Tmp_Array = split(aFe,",")
   
    For Each Ae In Tmp_Array
      Tmp_Str = Trim(Request.Form(Ae))
         
      if not IsDate(Tmp_Str) AND Tmp_Str <> "" then
        j = j + 1
        ReturnValue = False
        ReDim Preserve Error_Array(j)
        Error_Array(j-1) = Ae
      end if     
    Next
    CheckDateTime = ReturnValue
  End Function

  Function BookingCheck()
    if Request.Form("Tilfoej") = "" then
      BookingCheck = 1
      Exit Function
    end if

    i    = -1
    j    =  0
    Error = False   
   
    Redim Error_Array(1)   

    For Each FE In Request.Form
      if FE <> "Tilfoej" then
        TmpStr = Trim(Request.Form(FE))
        if TmpStr = "" then
          j = j + 1
          Error = True
          ReDim Preserve Error_Array(j)
          Error_Array(j-1) = FE
        end if
      end if     
    Next
   
    if not CheckDateTime("x_afrejse1,x_ankomst1") then
      Error = True
    end if
   
       
    if Error then
      BookingCheck = 1
      Exit Function
    end if
   
  End Function

 
  'startup code

  if BookingCheck = 0 then
    OpretBooking   
  end if
 
%>
<!--#include file="top.asp"-->
<html>
<head>
      <title>Opret booking</title>
      <LINK REL=STYLESHEET HREF="OpretBooking.css" TYPE="text/css">
      <script language="javascript1.2" type="text/javascript" src="OpretBooking.js">
      </script>
      <!--  <script language="JavaScript1.2" src="../sitetester/calendar1.js">
      </script> -->
</head>
<body style="font-size:12px;">
        <form action="autobooking.asp" method="post">
              <p>
              <br></p>
                <table cellpadding="0" cellspacing="0" width="450" border="0" id="table22">
                    <tr class="GenRow">
                        <td bgcolor="#4682B4" style="color: #000000; font-family:Tahoma,Verdana; font-size: 11px">
                            <table cellpadding="5" cellspacing="1" width="100%" border="0" id="table23">
                                  <tr class="GenRow">
                                    <td bgcolor="#DBEAF5"><p align="left">
                                        <font face="tahoma, verdana" size="2"><b>Kunde Oplysninger</b></font>
                                    </td>
                                  </tr>
                                  <tr class="GenRow">
                                    <td bgcolor="#ffffff" valign="top" style="color:#000000; font-family: Tahoma, Verdana;font-size: 11px">
                                        <table border="1" width="752" height="106" bgcolor="#FFFFFF" id="table24"
                                              style="border-collapse:collapse">
                                              <tr>
                                                  <td width="104" height="28" class="GenCol">
                                                      Navn
                                                  </td>
                                                  <td width="204" height="28" bgcolor="#FFFFFF" colspan="2">
                                                      <font size="1" face="Verdana">
                                                      <input name="x_navn" value="<% ShowReturnValue("x_navn") %>" size=28 maxlength=50></font></td>
                                                  <td width="188" height="28" bgcolor="#FFFFFF"><% ShowError "x_navn" %></td>
                                                  <td width="242" height="28" bgcolor="#FFFFFF">&nbsp;</td>
                                              </tr>
                                              <tr>
                                                <td width="104" height="24" class="GenCol">
                                                    Adresse
                                                </td>
                                                <td width="204" height="24" colspan="2"><font face="Arial" size="-1">
                                                    <input size="28" name="x_adresse" value="<% ShowReturnValue("x_adresse") %>"></td>
                                                <td width="188" height="24"><% ShowError "x_adresse" %></td>
                                                <td width="242" height="24">&nbsp;</td>
                                              </tr>
                                              <tr>
                                                <td width="104" height="23" class="GenCol">
                                                    Postnr. &amp; by
                                                </td>
                                                <td width="64" height="23"><font face="Arial" size="-1">
                                                    <font size="1" face="Verdana"><input size="8" name="x_postnr"
                                                          value="<% ShowReturnValue("x_postnr") %>"></font>
                                                </td>
                                                <td width="108" height="23"><font face="Arial" size="-1">
                                                    <font size="1" face="Verdana">
                                                    <input size="12" name="x_city"
                                                      value="<% ShowReturnValue("x_city") %>"></font>
                                                </td>
                                                <td width="188" height="23"><% ShowError "x_postnr" %></td>
                                                <td width="242" height="23"><% ShowError "x_city" %></td>
                                              </tr>
                                              <tr>
                                                <td width="104" height="12" class="GenCol">
                                                    Telefon
                                                    &amp; mail</td>
                                                <td width="93" height="12"><font face="Arial" size="-1">
                                                    <input size="9" name="x_Telefon" value="<% ShowReturnValue("x_Telefon") %>"></font></td>
                                                <td width="108" height="12"><font face="Arial" size="-1">
                                                    <input size="12" name="x_email" value="<% ShowReturnValue("x_email") %>"></font></td>
                                                <td width="188" height="12"><% ShowError "x_Telefon" %></td>
                                                <td width="242" height="12">&nbsp;</td>
                                              </tr>
                                              <tr>
                                                <td width="104" height="5" class="GenCol">
                                                    Deltager liste
                                                </td>
                                                <td width="204" height="5" colspan="2"><font size="1" face="Verdana">
                                                    <textarea name="x_Deltager" rows="3" Cols="20">
                                                              <% ShowReturnValue("x_Deltager") %></textarea></font>
                                                </td>
                                                <td width="188" height="5"><% ShowError "x_Deltager" %></td>
                                                <td width="242" height="5">&nbsp;</td>
                                              </tr>
                                        </table>   
                                    </td>
                                  </tr>         
                            </table>
                        </td>
                    </tr>
              </table>
              &nbsp;<table cellpadding="0" cellspacing="0" width="450" border="0" id="table6">
                    <tr class="GenRow">
                        <td bgcolor="#4682B4" style="color: #000000; font-family:Tahoma,Verdana; font-size: 11px">
                            <table cellpadding="5" cellspacing="1" width="100%" border="0" id="table7">
                                  <tr class="GenRow">
                                    <td bgcolor="#DBEAF5">
                                        <p align="left"><font face="tahoma,verdana" size="2"><b>Booking </b></font>&nbsp;</td>
                                  </tr>
                                  <tr class="GenRow">
                                    <td bgcolor="#ffffff" valign="top" style="color: #000000; font-family: Tahoma,Verdana; font-size: 11px">
                                        <table border="1" width="100%" bgcolor="#FFFFFF" id="table18" style="border-collapse:collapse">
                                              <tr class="GenRow">
                                                  <td width="104" height="19" class="GenCol">Fra</td>
                                                  <td width="104" height="19" class="GenCol">Til</td>
                                                  <td width="78" height="19" class="GenCol">Flight</td>
                                                  <td width="179" height="19" class="GenCol">Dato</td>
                                                  <td width="67" height="19" class="GenCol">Depart</td>
                                                  <td width="71" height="19" class="GenCol">Arrival</td>
                                                  <td width="27" height="19" class="GenCol">Antal </td>
                                                  <td width="26" height="19" class="GenCol">
                                                    Terminal </td>
                                                  <td width="9" height="19" class="GenCol">&nbsp;</td>
                                              </tr>
                                              <tr class="GenRow">
                                                  <td width="104" height="25" class="GenColB">
                                                      <% ShowFra("Afrejse") %>
                                                  </td>
                                                  <td width="104" class="GenColB" height="25">
                                                    <% ShowTil("Ankomst") %>
                                                  </td>
                                                  <td width="78" class="GenColB" height="25">
                                                    <% ShowFlight("flightnr") %>
                                                  </td>
                                                  <td width="179" class="GenColB" height="25">
                                                    <% ShowDato("afrejsedato") %>
                                                  </td>
                                                  <td width="67" class="GenColB" height="25">
                                                    <% ShowDepart("depart") %>
                                                  </td>
                                                  <td width="71" class="GenColB" height="25">
                                                      <% ShowArrival("arrival") %>
                                                  </td>
                                                  <td width="27" class="GenColB" height="25">
                                                      <% ShowAntal %>
                                                  </td>
                                                  <td width="26" class="GenColB" height="25">
                                                    <% ShowTerminal%> </td>
                                              </tr>
                                              <tr class="GenRow">
                                                  <td width="104" class="GenColB" height="27">
                                                    <% ShowFra("Afrejse1") %>
                                                  </td>
                                                  <td width="104" class="GenColB" height="27">
                                                    <% ShowTil("Ankomst1") %>
                                                  </td>
                                                  <td class="GenColB" height="27">
                                                    <% ShowFlight("flightnr1") %>
                                                  </td>
                                                  <td class="GenColB" height="27">
                                                    <% ShowDato("hjemrejsedato") %>
                                                  </td>
                                                  <td class="GenColB" height="27"><font size="1" face="Verdana">
                                                    <% ShowDepart("depart1") %>
                                                  </td>
                                                  <td width="71" class="GenColB" height="27"><font size="1" face="Verdana">
                                                    <% ShowArrival("arrival1") %>
                                                  </td>
                                                  <td width="27" class="GenColB" height="27">
                                                      <% ShowAntal %>
                                                  </td>
                                                  <td width="26" class="GenColB" height="27">
                                                      &nbsp;</td>
                                              </tr>
                                              <tr class="GenRow">
                                                  <td width="104" height="12" class="GenCol">
                                                      Antal Voksne
                                                  </td>
                                                  <td width="104" height="12" class="GenCol">
                                                    <select size="1" name="x_AntalVoksenSalg" onchange="udregn('x_AntalVoksenSalg',
                                                            '<%= PrisVoksenSalg %>','<%= PrisVoksenSalg1 %>');">
                                                          <option value="0">0</option>
                                                          <option value="1">1</option>
                                                          <option value="2">2</option>
                                                          <option value="3">3</option>
                                                          <option value="4">4</option>
                                                          <option value="5">5</option>
                                                          <option value="6">6</option>
                                                          <option value="7">7</option>
                                                          <option value="8">8</option>
                                                          <option value="9">9</option>
                                                          <option value="10">10</option>
                                                          <option value="11">11</option>
                                                          <option value="12">12</option>
                                                          <option value="13">13</option>
                                                          <option value="14">14</option>
                                                          <option value="15">15</option>
                                                          <option value="16">16</option>
                                                    </select>
                                                  </td>
                                                  <td width="78" class="GenCol">
                                                      Antal børn
                                                  </td>
                                                  <td width="179" class="GenCol">
                                                    <select size="1" name="x_AntalBarnSalg" onchange="udregn('AntalBarnSalg');">
                                                            <option selected value="0">0</option>
                                                            <option value="1">1</option>
                                                          <option value="2">2</option>
                                                          <option value="3">3</option>
                                                          <option value="4">4</option>
                                                          <option value="5">5</option>
                                                          <option value="6">6</option>
                                                          <option value="7">7</option>
                                                          <option value="8">8</option>
                                                          <option value="9">9</option>
                                                          <option value="10">10</option>
                                                          <option value="11">11</option>
                                                          <option value="12">12</option>
                                                          <option value="13">13</option>
                                                          <option value="14">14</option>
                                                          <option value="15">15</option>
                                                          <option value="16">16</option>
                                                    </select>
                                                  </td>
                                                  <td class="GenCol">
                                                      Antal Infant
                                                  </td>
                                                  <td class="GenCol">
                                                    <select size="1" name="x_AntalInfantSalg" onchange="udregn('AntalInfantSalg');">
                                                            <option selected value="0">0</option>
                                                            <option value="1">1</option>
                                                            <option value="2">2</option>
                                                            <option value="3">3</option>
                                                            <option value="4">4</option>
                                                            <option value="5">5</option>
                                                            <option value="6">6</option>
                                                            <option value="7">7</option>
                                                            <option value="8">8</option>
                                                            <option value="9">9</option>
                                                            <option value="10">10</option>
                                                            <option value="11">11</option>
                                                            <option value="12">12</option>
                                                            <option value="13">13</option>
                                                            <option value="14">14</option>
                                                            <option value="15">15</option>
                                                            <option value="16">16</option>
                                                    </select>
                                                  </td>
                                                  <td width="53" class="GenCol" colspan="2">&nbsp;</td>
                                              </tr>
                                              <tr class="GenRow">
                                                  <td width="104" class="GenCol">Billet nr.</td>
                                                  <td width="104" class="GenCol">
                                                      <input name="Billetnummer"
                                                            value="<% ShowReturnValue("Billetnummer") %>" size="13"></font>
                                                  </td>
                                                <td width="67" class="GenCol">
                                                      Betaling
                                                  </td>
                                                  <td width="152" class="GenCol" colspan="2">
                                                      <font size="1" face="Verdana">
                                                      <input name="Betbetingelser"
                                                            value="<% ShowReturnValue("Betbetingelser") %>" size="9"></font>
                                                  </td>
                                                  <td width="78" class="GenCol"></td>
                                                  <td width="53" class="GenColB" colspan="2"></td>
                                              </tr>
                                        </table>
                                    </td>
                                  </tr>
                            </table>
                        </td>
                    </tr>
              </table>   
              <br>
              <table cellpadding="0" cellspacing="0" width="450" border="0" id="table28">
                    <tr class="GenRow">
                        <td bgcolor="#4682B4" style="color: #000000; font-family: Tahoma, Verdana; font-size: 11px">
                          <table cellpadding="5" cellspacing="1" width="100%" border="0" id="table29">
                                <tr class="GenRow">
                                    <td bgcolor="#DBEAF5"><p align="left"><font face="tahoma, verdana" size="2">
                                      <b>Betaling</b></font>
                                  </tr>
                                  <tr class="GenRow">
                                    <td bgcolor="#ffffff" valign="top" style="color: #000000; font-family: Tahoma, Verdana; font-size: 11px">
                                        <table border="1" width="752" height="80" bgcolor="#FFFFFF" id="table30"
                                              style="border-collapse: collapse">
                                              <tr>
                                                <td class="GenCol">Pris voksne</td>
                                                <td width="121" height="27">
                                                    <input name="x_PrisVoksenSalg" onchange="udregn(this.form);" size="12" value="<%= x_PrisVoksenSalg %>">
                                                </td>
                                                <td class="GenCol">Pris børn</td>
                                                <td width="97" class="GenColB" height="27">
                                                  <input type="text" name="x_PrisBarnSalg" value="" size="11"></td>
                                                <td width="72" class="GenCol">Pris Infant</td>
                                                <td width="60" height="27">
                                                    <input name="x_PrisInfantSalg" onchange="udregn(this.form);"
                                                            size="7" value="<%= x_PrisInfantSalg %>">
                                                </td>
                                                <td width="195" height="27">
                                                    &nbsp;</td>
                                              </tr>
                                              <tr>
                                                <td width="92" height="27"><b>
                                                    <font face="Verdana" size="1" color="#336699">Depositum</font>
                                                    </b>
                                                </td>
                                                <td width="121" height="27"><font face="Verdana" size="1">
                                                    <input name="x_Depositium" onchange="udregn(this.form);" value="<%= x_Depositium %>"
                                                            size="12" maxlength="50"></font>
                                                </td>
                                                <td width="93" height="27" class="GenCol">Betales senest</td>
                                                <td width="97" height="27"><font face="Verdana" size="1">
                                                    <input name="x_Betsenest" value="<%= x_Betsenest %>" size="11"></font></td>
                                                <td width="72" height="27" class="GenCol">Restbeløb</td>
                                                <td width="60" height="27"><font size="1" face="Verdana">
                                                    <input name="x_restbelob" value="<%= x_restbelob %>" size="7"></font>
                                                </td>
                                                <td width="195" height="27">&nbsp;</td>
                                              </tr>
                                              <tr>
                                                  <td width="92" height="28" class="GenCol">Købs pris</td>
                                                  <td width="121" height="28"><b>&nbsp;</b><input name="x_Totalalle" onchange="pro(this.form);"
                                                      size="13" value="<%=x_Totalalle %>">
                                                  </td>
                                                  <td width="93" height="28"><b><font face="Verdana" size="1">
                                                      &nbsp;</font></b><input name="x_total" size="10" value="<%=x_total %>">
                                                  </td>
                                                  <td width="97" height="28"><b>&nbsp;</b><input name="x_Profit" size="10"
                                                      value="<%=x_Profit %>">
                                                  </td>
                                                  <td width="72" height="28" class="GenCol">Forsikring</td>
                                                  <td width="60" height="28"><font size="1" face="Verdana">
                                                      <input name="x_forsikring" onchange="udregn(this.form);" value="<%= x_forsikring %>"
                                                      size="7"></font>
                                                  </td>
                                                  <td width="195" height="28">&nbsp;</td>
                                              </tr>
                                        </table>
                                    </td>
                                  </tr>
                          </table>
                        </td>
                    </tr>
              </table>
              <br>
              <input type="submit" name="Tilfoej" value="Opret billet" style="font-weight: 700">
      </form>
</body>
</html>
<!--#include file="footer.asp"-->

hvor kalder du showTerminal ?

det der sker er at man kan vælge et bestemt fly fra databasen også kommer de andre ting automatisk en efter en, men når jeg tilføjer "terminal" på så dukker der en fejl op !

det gør jeg nede i koden :


hvor jeg et sted skriver :    <% ShowTerminal%>
også er det meningen at den bare skal visse det terminal der står i det pågædende recordsætet

<% ShowTerminal %>

problemet ligger her...

Du mangler at definere hvilken streng funktionen skal køre på...
Det er den streng der hedder AFe i funktionen.

men trore ikke jeg har lavet det rigtigt

hvad skal jeg skrive nu : jeg har lige skrevet <% ShowTerminal %> men det virker ikke ? den melder :


Error Type:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: 'ShowTerminal'
/tester/autobooking.asp, line 511

fx kan du kalde den med...

<% ShowTerminal("heathrow") %>

linje 511: 

<td width="26" class="GenColB" height="25">
<% ShowTerminal %> </td>

Måske ikke helt heathrow...

Jeg ved ikke helt hvad den variabel skal bruges til, men du tager den med videre til funktionen GetComboData hvor den liver benyttet

har fået det til at virke, men det er bare det problem nu, at den visser det i en listboks, og det vil jeg ikke have den skal.
den skal bare visse værdien.

proceduren ser 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
      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
    else
      DisableCombobox(aFe)
    End if 
  End Sub


hvor skal jeg ændre hvis jeg ikke vil have at den skal visse det i en listboks, men istedet bare skrive det ud i feltet. ?

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
      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

Set DataConn = Server.CreateObject("ADODB.Connection")
      DataConn.ConnectionTimeout = 15
      DataConn.CommandTimeout    = 30
      DataConn.Open Application("xDb_Conn_Str")
      Set cmdObj = Server.CreateObject("ADODB.Command")
      cmdObj.ActiveConnection = DataConn
      cmdObj.CommandText      = SQL_Str
      cmdObj.CommandType      = 1
      Set rsObj = Server.CreateObject("ADODB.Recordset")
      rsObj.Open cmdObj, ,0,1 
ASC"             

if not rsObj.EOF then
while not rs.eof
response.write rsObj.fields("x_terminal") & "<br>"
rs.movenext
wend
end if
    else
      DisableCombobox(aFe)
    End if 
  End Sub

sådan her vil jeg tro

den melder fej i det :(
men jeg trorre at jeg lige leger lidt med det. men du skal have tak for hjælpen.

Anytime.

Sig endelig til hvis du stadig har problemer med det.

Takker for points..
..Ellebæk

jeg har har flere problemmer med det her side :( det er såden at jeg lige har lært at programmere asp, og en af mine venner har hjulpet med at lave det her side, og nu kan jeg ikke komme ud af det :(
hvis jeg ligger flere point i det vil du kunne hjælpe mig ?

det kommer da an på hvad det er du skal have hjælp til ;-)

Jeg har lidt svært ved at overskue din kode, og også se hvad de forskellige funktioner gør.

Men hvad er det for nogle fejl du får ?

en af de ting jeg gerne vil have rettet er :
at den he procedure ikke skal visse resultatet i en listboks men bare skrive den 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
      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
  else
      DisableCombobox(aFe)
    End if 
  End Sub




den kode som du gav mig virkede ikke :(

vil det være nemere hvis jeg uploadet det på weben med database og det hele.
så¨kunne det måske være lidt mere overskuellige ?