Udbygning af reservatios-script

Hej

Jeg har følgende reservations-script, som overordnet set finder de datoer, som ikke er blevet reseveret i databasen og lister dem i en dropdown-box. Det fungerer fint, men nu vil jeg gerne have udbygget scriptet lidt.

Scriptet fungrerer på sådan, at en dato kun kan reserveres 1 gang, men det skal der nu laves om på, for en dato må godt reserveres 2 gange.

Kan du hjælpe mig - du har helt frie hænder :-)

<%

response.write "<p>Offentliggørelses-dato:<br>"
response.write "<select name='datoPublikation' style='font-size: 10pt; font-family: Trebuchet MS'>"

if Session("henvisningVisOD") = "true" then

    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))
   
    strSQL = "SELECT DISTINCT datopublish FROM search WHERE datopublish >= #"  & Year(date) & "-" & month(date) & "-" & Day(date) &  "# AND datopublish < #" & Year(dateadd("yyyy",1,date)) & "-" & month(dateadd("yyyy",1,date)) &  "-" & Day(dateadd("yyyy",1,date)) & "# order by datopublish"

    set rs = myConn.execute(strSQL)
   
    do while not rs.EOF
          if isDate(rs("datopublish")) then
              myDates = myDates & rs("datopublish") & ", "
        End If
    rs.MoveNext
    Loop
       
    if Session("henvisningStatus") = "opdatere" then
        myDates = Replace(Session("henvisningDatoPublikation") & ", ", "")
    end if
       
    if right(myDates, 2) = ", " then
        myDates = left(myDates,len(myDates)-2)
    end if
   
    myDateArr = Split(myDates,",")

    dato = date ()
    datoSlut = DateAdd("yyyy",1,date)
    i = 0
    do while dato <= datoSlut
        if CDate(myDateArr(i)) <> CDate(dato) then
              Response.Write "<option value=""" & dato & """>" & dato & "</option>"
          else
            i = i + 1
            if i > ubound(myDateArr) then i = ubound(myDateArr)
          end if
        dato = dateAdd("d",1,dato)
    loop
else
    Response.Write "<option value=""" & Session("henvisningDatoPublikation") & """>" & Session("henvisningDatoPublikation") & "</option>"
end if

response.write "</select><br>"
response.write "<font size='1' color='#808080' face='VERDANA, ARIAL'>" & Session("henvisningVisODBesked") & "</font>"
response.write "<script>document.henvisning.datoPublikation.selectedIndex = 0</script>"

%>