Tjeck af booking-system

Hejsa

Jeg er ved at lave et booking-system til et transport-firma men har lidt problemer med at tjecke om en bil/trailer m.m. er booket 2 gange på samme tid.

Min DB indeholder følgende felter:

CarNum (bil-nummer)
TrailerNum (trailer-nummer)
StartSted
Destination
Departure (afgang, dato)
DepTime (klokkeslet)
Arrival (ankomst)
ArrTime (klokkeslet)
Remarks (bemærkning)

Der er følgende kriterier:

1) Samme bil må ikke skulle 2 steder hen på samme tid.
2) 2 biler må ikke bruger den samme trailer på samme tid.
3) Samme bil må ikke skulle afsted igen før den er kommet hjem (ArrTime)
4) En trailer må ikke skifte bil før den er kommet hjem (ArrTime)

Jeg kan ikke rigtig se hvordan det skal gribes an, men jeg har pt. følgende kode:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "brandetrans"

sql = "SELECT * FROM Booking WHERE TrailerNum="&Request.Form("trail_num")&" AND Departure='"&Request.Form("dep_dato")&"' "
Set rs = Connect.Execute(sql)

Session("Bilnr") = Request.Form("car_num")
Session("Trailer") = Request.Form("trailer_num")
Session("UdSted") = Request.Form("start_sted")
Session("IndSted") = Request.Form("destination")
Session("Afgang") = Request.Form("dep_dato")
Session("UdTid") = Request.Form("dep_tid")
Session("Ankomst") = Request.Form("arr_dato")
Session("IndTid") = Request.Form("arr_tid")
Session("Remark") = Request.Form("remarks")

do while not (rs.bof or rs.eof)
    If Session("Bilnr") = rs("CarNum") Then
        Fejl = "Bilen er allerede booket!"
    Else
        Fejl = "Bilen kan godt bookes!"
    End if
rs.movenext
loop

Jeg har forsøgt at lave en simpel test i koden og derefter udskrive min "Fejl", men den udskriver ikke noget.