Fejlmeddelelse: Filen er allerede åben

Når jeg kører denne subrutine får jeg en fejlmeddelelse om at filen allerede er i brug:

sub buildmenu()
    if session.contents("login") <> 1 then
        Set objConn = Server.CreateObject
("ADODB.Connection")
        objConn.Open strDBConn
        strSQL = "SELECT * FROM menulinks WHERE public = 1"
        set objRS = objConn.execute(strSQL)

        Do UNTIL objRS.EOF
            tmp = "<a href="
            tmp = tmp & chr(34)
            tmp = tmp & "default.asp?"
            tmp = tmp & objRS("file")
            tmp = tmp & chr(34)
            tmp = tmp & ">"
            tmp = tmp & objRS("file")
            tmp = tmp & "</a><br>"
            response.write tmp
        loop
    else
        response.write "blablabla"
    end if
objConn.Close
objConn = nothing
objRS.Close
objRS = nothing
end sub

Er der nogen der kan kringle den?

Og er der forresten en smartere måde at skrive " i et response.write end at bruge chr(34)?