hjælpe med serverfejl

jeg bruger dette script
<form name="x" action=sideretnu.asp method=post>

<!-- #Include file="forbindelse.asp" -->
<%
    dim oRec, SQL, ID, k, strConnect, dato, page, tekst, oprettetaf
   
    ID = request.queryString("ID")
    page = request.QueryString("page")
    overskrift = request.querystring("overskrift")
    tekst = request.querystring("tekst")
    fotostor = request.querystring("fotostor")
    foto1 = request.querystring("foto1")
    foto2 = request.querystring("foto2")
    foto3 = request.querystring("foto3")   
   
sub photos()
afdkald = "Select * from pict order by picture ASC"
        set Rs = server.createobject("ADODB.recordset")
        Rs.open afdkald, strConnect
        Response.write "<SELECT AccessKey='a' NAME='fotostor'>"
        if not Rs.EOF then
            do until Rs.EOF
                if oRec("fotostor")= Rs("picture") then
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'SELECTED>" & Rs("picture") & "</OPTION>"
                else
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'>" & Rs("picture") & "</OPTION>"
                end if
                Rs.movenext
            loop
            Rs.Close
        end if
        Response.write "</SELECT>"
end sub
sub photos1()
afdkald = "Select * from pict order by picture ASC"
        set Rs = server.createobject("ADODB.recordset")
        Rs.open afdkald, strConnect
        Response.write "<SELECT AccessKey='a' NAME='foto1'>"
        if not Rs.EOF then
            do until Rs.EOF
                if oRec("foto1")= Rs("picture") then
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'SELECTED>" & Rs("picture") & "</OPTION>"
                else
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'>" & Rs("picture") & "</OPTION>"
                end if
                Rs.movenext
            loop
            Rs.Close
        end if
        Response.write "</SELECT>"
end sub

sub photos2()
afdkald = "Select * from pict order by picture ASC"
        set Rs = server.createobject("ADODB.recordset")
        Rs.open afdkald, strConnect
        Response.write "<SELECT AccessKey='a' NAME='foto2'>"
        if not Rs.EOF then
            do until Rs.EOF
                if oRec("foto2")= Rs("picture") then
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'SELECTED>" & Rs("picture") & "</OPTION>"
                else
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'>" & Rs("picture") & "</OPTION>"
                end if
                Rs.movenext
            loop
            Rs.Close
        end if
        Response.write "</SELECT>"
end sub

sub photos3()
afdkald = "Select * from pict order by picture ASC"
        set Rs = server.createobject("ADODB.recordset")
        Rs.open afdkald, strConnect
        Response.write "<SELECT AccessKey='a' NAME='foto3'>"
        if not Rs.EOF then
            do until Rs.EOF
                if oRec("foto3")= Rs("picture") then
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'SELECTED>" & Rs("picture") & "</OPTION>"
                else
                    Response.write "<OPTION VALUE='" & Rs("picture") & "'>" & Rs("picture") & "</OPTION>"
                end if
                Rs.movenext
            loop
            Rs.Close
        end if
        Response.write "</SELECT>"
end sub


   
    SQL = "Select * from sider where ID=" & ID
    set oRec = server.createobject("ADODB.Recordset")
    oRec.open SQL, strConnect

    Response.write "<tr><td><input type=hidden value='" & trim(oRec("ID")) & "'name=" & oRec("ID").name &"></td></tr>"
    response.write "<tr><td><input type=hidden value='" & trim(oRec(2)) & "'name=" & oRec(2).name &"></td></tr>"
    Response.write "<tr><td><strong>Tekst:</strong><br> <textarea  rows='10' name='tekst' cols='60'>" & oRec(3) & "</textarea></td></tr><br>"   
    response.write "<tr><td><strong>Stort foto:&nbsp;&nbsp;&nbsp;</strong>"
    photos()
    response.write" </td></tr><br>"
    response.write "<tr><td><strong>foto1:&nbsp;&nbsp;&nbsp;</strong>"
    photos1()
    response.write" </td></tr><br>"
    response.write "<tr><td><strong>foto2:&nbsp;&nbsp;&nbsp;</strong>"
    photos2()
    response.write" </td></tr><br>"
    response.write "<tr><td><strong>foto3:&nbsp;&nbsp;&nbsp;</strong>"
    photos3()
    response.write" </td></tr><br>"

    oRec.close
    set oRec = nothing
%>
    <input type=submit value=Ret>
    <script language="JavaScript1.2" defer>
editor_generate('tekst');
</script>
</form>
<br><a href=sideliste.asp>Tilbage</a>


Det virker lokalt på min maskine under http:localhost osv....
men når jeg uploader filen til den server hvor sitet ligger får jeg en fejl der siger file already in use og den peger på den linie i den første sub: Rs.open afdkald, strConnect
hvordan kommer jeg omkring det?