Function og Loop

Et bud:

<%
function find_bil(bil)
    Sql = "SELECT * FROM korsel WHERE bil = '" & bil & "'"
    Set rs = Conn.Execute(Sql)

    start_dato = rs("fra_dato")
    start_kl = rs("fra_klokken")

    slut_dato = rs("til_dato")
    slut_kl = rs("til_klokken")

    Ny_start_Dato = request("ny_start_dato")   
    Ny_slut_dato = request("ny_slut_dato")

    Ny_start_kl = request("ny_start_kl")
    Ny_slut_kl = request("ny_slut_kl")

    If ((CDate(Ny_Start_Dato & " " & Ny_Start_Kl) >= CDate(Start_Dato & " " & Start_Kl) _
        And CDate(Ny_Start_Dato & " " & Ny_Start_Kl) <= CDate(Slut_Dato & " " & Slut_Kl)) _
        Or (CDate(Ny_Slut_Dato & " " & Ny_Slut_Kl) >= CDate(Start_Dato & " " & Start_Kl) _
        And CDate(Ny_Slut_Dato & " " & Ny_Slut_Kl) <= CDate(Slut_Dato & " " & Slut_Kl)) _
        Or (CDate(Ny_Start_Dato & " " & Ny_Start_Kl) < CDate(Start_Dato & " " & Start_Kl) _
        And CDate(Ny_Slut_Dato & " " & Ny_Slut_Kl) > CDate(Slut_Dato & " " & Slut_Kl))) Then
            DateOverlap = True
    End If

    If DateOverlap = True Then
        find_bil = "booket"
    Else
        find_bil = "ledig"
    End If
End function



ForetrukneBil = Request("bil")

If find_bil(ForetrukneBil) = "ledig" Then
    Response.Write "Bilen er ledig"
Else
    Response.Write "Bilen er desværre booket<br><br>"
    Response.Write "Alternativer:<br>"

    Sql2 = "SELECT bil FROM korsel WHERE bil <> '" & ForetrukneBil & "'"
    Set rs2 = Conn.Execute(Sql)

    Do While Not rs2.EoF
        AlternativBil = rs2("bil")
        Response.Write AlternativBil & " : " & find_bil(AlternativBil) & "<br>"

        rs2.MoveNext
    Loop

    Response.End
End If
%>

Det virker ikke helt, hvis der er en post (reservering) som ligger første i db hvor den nye reservering ikke er i konfikt er resultatet at bilen er ledig.

jeg har forsøgt at gøre følgende:

function find_bil(bil)
    Sql = "SELECT * FROM korsel WHERE bil = '" & bil & "'"
    Set rs = Conn.Execute(Sql)
'indsat
do while rs.eof
    start_dato = rs("fra_dato")
    start_kl = rs("fra_klokken")

    slut_dato = rs("til_dato")
    slut_kl = rs("til_klokken")

    Ny_start_Dato = request("ny_start_dato")   
    Ny_slut_dato = request("ny_slut_dato")

    Ny_start_kl = request("ny_start_kl")
    Ny_slut_kl = request("ny_slut_kl")

    If ((CDate(Ny_Start_Dato & " " & Ny_Start_Kl) >= CDate(Start_Dato & " " & Start_Kl) _
        And CDate(Ny_Start_Dato & " " & Ny_Start_Kl) <= CDate(Slut_Dato & " " & Slut_Kl)) _
        Or (CDate(Ny_Slut_Dato & " " & Ny_Slut_Kl) >= CDate(Start_Dato & " " & Start_Kl) _
        And CDate(Ny_Slut_Dato & " " & Ny_Slut_Kl) <= CDate(Slut_Dato & " " & Slut_Kl)) _
        Or (CDate(Ny_Start_Dato & " " & Ny_Start_Kl) < CDate(Start_Dato & " " & Start_Kl) _
        And CDate(Ny_Slut_Dato & " " & Ny_Slut_Kl) > CDate(Slut_Dato & " " & Slut_Kl))) Then
            DateOverlap = True
    End If

    If DateOverlap = True Then
        find_bil = "booket"
    Else
        find_bil = "ledig"
    End If

'indsat

rs.movenext
loop
End function

men så vises ikke om bilen er ledig eller booket.

Hvordan kan jeg checke alle posterne, og samtidigt få samme oversigt med booket eller ledig.?

Desuden kommer alle posterne med i oversigten forstået på den måde at, hvis en bil med nr. XX45456 er booket 3 gange vises booket/ledig 3 gange for denne bil.

hvordan kan man gøre så en bil kun vises en gang.?

Det var med vilje at jeg fjernede den indre løkke. Jeg gik nemlig ud fra at der kun var en bil i databasen som svarede til en given værdi af Request("bil"). Men det er måske ikke rigtigt?

nej, for en bil kan godt være booket flere gange - i forskellige perioder.

Fik du nogensinde løst denne her?

Nej, det gjorde jeg ikke

Jeg lukker spr.