What is the mistake on this page?

Discussion in 'Programming' started by jophan, Jul 25, 2008.

0
  1. #1
    Hello,

    due to my lack of programming language I still
    cannot gauge what I do wrong on this page.

    http://lastminutejoy.de/last-minute-tuerkei/Default.aspx

    you see the button "reisen finden" or "flüge finden".
    when you press on them a failure message appears.
    as an orientation you can see how it is done on the
    homepage. I have simply copied this form using
    visual web developer but it doesnt work.

    moreover, the "Hinflug ab:" and "Rückflug bis:" fields
    remain empty. why is that so?

    I appreciate every kind of help, thanks.
     
    jophan, Jul 25, 2008 IP
  2. jophan

    jophan Active Member

    Messages:
    1,309
    Likes Received:
    14
    Best Answers:
    0
    Trophy Points:
    98
    #2
    really no one who can help me out?
     
    jophan, Jul 26, 2008 IP
  3. Limotek

    Limotek Peon

    Messages:
    165
    Likes Received:
    5
    Best Answers:
    0
    Trophy Points:
    0
    #3
    It's impossible to guess where the problem is. Post the code here so we can have a look.
     
    Limotek, Jul 29, 2008 IP
  4. jophan

    jophan Active Member

    Messages:
    1,309
    Likes Received:
    14
    Best Answers:
    0
    Trophy Points:
    98
    #4
    which code shall I post here? the html code is visible to all of you.
    I think you mean something different?
     
    jophan, Jul 29, 2008 IP
  5. jophan

    jophan Active Member

    Messages:
    1,309
    Likes Received:
    14
    Best Answers:
    0
    Trophy Points:
    98
    #5
    here is the code of "reiseangebote.aspx.vb", the file where the mistake
    shall be on.

    Partial Class Reiseangebote
    Inherits System.Web.UI.Page
    Sub RenderSomething()
    'Abflughafen
    Dim MyHmi As String
    Dim MyHmiDDL As DropDownList
    MyHmiDDL = CType(PreviousPage.FindControl("Ddl_lm_hmi"), DropDownList)
    MyHmi = MyHmiDDL.SelectedValue.ToString()

    'Zielflughafen
    Dim MyDsi As String
    Dim MyDsiDDL As DropDownList
    MyDsiDDL = CType(PreviousPage.FindControl("Ddl_lm_dsi"), DropDownList)
    MyDsi = MyDsiDDL.SelectedValue.ToString()

    'Abflugdatum zusammenstellen
    Dim MyVnd As Date
    Dim MyVndDay As DropDownList
    MyVndDay = CType(PreviousPage.FindControl("Ddl_Tag_lm_vnd"), DropDownList)
    Dim MyVndMY As DropDownList
    MyVndMY = CType(PreviousPage.FindControl("Ddl_mj_lm_vnd"), DropDownList)
    MyVnd = CDate(MyVndDay.SelectedValue.ToString & MyVndMY.SelectedItem.ToString)

    'Rückflugdatum zusammenstellen
    Dim MyBsd As Date
    Dim MyBsdDay As DropDownList
    MyBsdDay = CType(PreviousPage.FindControl("Ddl_Tag_lm_bsd"), DropDownList)
    Dim MyBsdMY As DropDownList
    MyBsdMY = CType(PreviousPage.FindControl("Ddl_mj_lm_bsd"), DropDownList)

    MyBsd = CDate(MyBsdDay.SelectedValue.ToString & MyBsdMY.SelectedValue.ToString)

    'Reisedauer holen
    Dim MyTdc As String
    Dim MyTdcDDL As DropDownList
    MyTdcDDL = CType(PreviousPage.FindControl("Ddl_lm_tdc"), DropDownList)
    MyTdc = MyTdcDDL.SelectedValue.ToString()

    'Anzahl Erwachsene
    Dim MyEpc As String
    Dim MyEpcDDL As DropDownList
    MyEpcDDL = CType(PreviousPage.FindControl("Ddl_lm_epc"), DropDownList)
    MyEpc = MyEpcDDL.SelectedValue.ToString()

    'Alter der Kinder
    Dim MyKa1 As String
    Dim MyKa1DDL As DropDownList
    MyKa1DDL = CType(PreviousPage.FindControl("Ddl_lm_ka1"), DropDownList)
    MyKa1 = MyKa1DDL.SelectedValue.ToString

    Dim MyKa2 As String
    Dim MyKa2DDL As DropDownList
    MyKa2DDL = CType(PreviousPage.FindControl("Ddl_lm_ka2"), DropDownList)
    MyKa2 = MyKa2DDL.SelectedValue.ToString

    Dim MyKa3 As String
    Dim MyKa3DDL As DropDownList
    MyKa3DDL = CType(PreviousPage.FindControl("Ddl_lm_ka3"), DropDownList)
    MyKa3 = MyKa3DDL.SelectedValue.ToString


    'Weitere Parameter
    'Dim MyCfg As String = "&cfg=0190003000000000"
    'Dim MyTyp As String = "&typ=N"
    'Dim MyIxp As String = "&ixp=N"
    Dim MyStp As String = "&stp=2"
    Dim MyCss As String = "&css=http://www.lastminutejoy.de/css/traffics.css"
    Dim MyKinder As String = "&ka1=" & MyKa1 & "&ka2=" & MyKa2 & "&ka3=" & MyKa3

    'Url zusammenstellen
    Dim trafficsUrl As String
    trafficsUrl = "http://tibet-comfort.de/tibet.php?typ=P&cfg=0190003000000000"
    trafficsUrl += "&hmi=" & MyHmi
    trafficsUrl += "&dsi=" & MyDsi
    trafficsUrl += "&vnd=" & MyVnd
    trafficsUrl += "&bsd=" & MyBsd
    trafficsUrl += "&mmc=" & MyTdc
    trafficsUrl += "&epc=" & MyEpc
    trafficsUrl += MyKinder
    trafficsUrl += MyStp
    trafficsUrl += MyCss

    Response.Write(trafficsUrl)
    End Sub
    End Class
     
    jophan, Jul 29, 2008 IP