Loop funktion (do while - loop) timer out!

Hej!

Nedenstående script tæller antal værelser ud for en given dato. Hvis jeg slår loop'et fra, tæller scriptet fint for "aktueldato", men jeg vil gerne have talt og listet alle datoer i perioden (i eks. 2010/09/13 - 2010/09/18).

Hvad er der galt med koden?

--- start kode ---

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

' Database forbindelse
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../database/11243.mdb")

' Recordset object
Set objRs = Server.CreateObject("ADODB.Recordset")

' SQL
strSQL= "SELECT RoomReservation.Checkin, RoomReservation.Checkout FROM RoomReservation;"

' Tæl værelser
startdato = "2010/09/13"
slutdato = "2010/09/18"
aktueldato = startdato

do while startdato <> slutdato

set objRs=objConn.execute("select count(*) as antal from RoomReservation where Checkin <= '"&aktueldato&"' and Checkout>'"&aktueldato&"'")

response.write "<br>"&aktueldato&" = "& objRs("antal") &" V&aelig;relser"

aktueldato = dateadd("D",1,aktueldato)

loop

%>

--- stop kode ---