Tjek om dato-intervaller falder sammen

Jeg har følgende script der udskriver alt fra en tabel i en drop down box

Det er en liste over nogle maskiner, som til tider skal til service.

Jeg har et dato interval bestående af en start dato og en slut dato
session("start_dato") og session("slut_dato")
Det jeg skal have lavet er et lille ekstra udtræk fra databasen der hver gang der hentes en post fra tabellen "maskiner" går ind og tjekker i tabellen "service" om felterne "dato_fra" og "dato_til" falder sammen med de to sessions (enten i mellem eller lig med)
Falder det sammen, skal der indsættes en "*" eller lign ud for linjen i drop down boxen

<% Set rs_grup =  Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From maskingrupper where slettet = FALSE order by gruppe asc "
Set rs_grup = Conn.Execute(strSQL)
if not rs_grup.eof or rs_grup.bof then
do until rs_grup.eof or rs_grup.bof
response.write "<optgroup label=""" & rs_grup("gruppe") & """</optgroup>"
Set rs =  Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From maskiner where ref_maskingrup = " & rs_grup("id") & " and slettet = FALSE order by maskine asc "
Set rs = Conn.Execute(strSQL)
if not rs.eof or rs.bof then
do until rs.eof or rs.bof
dato = aar & "-" & mdr & "-" & dag2
response.write "<option value=""" & rs("id") & """>&nbsp;&nbsp;" & rs("maskine") & "</option>"
rs.movenext
loop
end if
set rs = nothing
rs_grup.movenext
loop
end if
set rs_grup = nothing %>