uendelig løkke

Det ser ud som om at jeg har fået lavet mig en uendelig løkke. HJÆLP!!!
uge = Request.Querystring(\"uge\")
Dim Con
    Set Con=Server.CreateObject(\"ADODB.Connection\")
    Con.Open\"Driver={Microsoft Access Driver (*.MDB)};DBQ=\" & Server.MapPath(\"stenlund.mdb\")

Dim RS
    Set RS=Server.CreateObject(\"ADODB.RECORDSET\")
    RS.Open \"SELECT Uge FROM Holdoversigt\",Con
    \'RS.Open \"SELECT * FROM Holdoversigt WHERE uge IN (SELECT MAX(uge) FROM Holdoversigt)\",Con


   
    Do Until RS.EOF
    If uge > RS.EOF Then
        Response.write\"Denne uge er ikke tilgængelig endnu\"
        Else if uge < RS.EOF Then
            Response.write\"Det er desværre forsent at booke til denne uge\"
            Else if uge = RS.EOF then
                Response.write\"Tillykke\"
            End if
        End if
    End if
    Loop
    RS.Close
    Set RS=Nothing