popup skal lukke og opdatere den side den kom fra

hej...

jeg har et prøblem med et popup vindue som skal lukke når man har submitter formen og kørt nog script, bagefter skal den opdatere den side man kom fra...

koden til popupen:
if Request.QueryString("ID") = "opretkalender" then
%>    <div id="funk">
        <h1>Opret ny aftale</h1>
            <form name="søg" method="post" action="funk.asp?id=gemkaldb">
                  <p align="left">
                Titel
<%                if Request.QueryString("FEJL") = "1" then
%>                    <a style="color:#FF0000" style="font-style:oblique">Aftalen skal havde en titel</a>
<%                end if
%>                <br>
                <input name="txttitel" type="text" class="txt">
                  <br>Note<br>
                  <textarea name="txtnote" class="txt"></textarea>
                <br>Tid<br>
                <input name="txttid" type="text" class="txt" value="TT:MM">
                  <br>
                Dato
<%                if Request.QueryString("FEJL2") = "2" then
%>                    <a style="color:#FF0000" style="font-style:oblique">Der er ikke valgt en gyldig dato</a>
<%                end if
%>                <br>
                <input name="txtdato" type="text" class="txt" value="DD-MM-YYYY">
               
                    </p>
                  <p align="left">
                    <input type="submit" name="cmdannuler" value="Annuller" onclick="self.close()">
                      <input type="submit" name="cmdagem" value="Gem">
                  </p>
            </form>
           
    </div>
<%   
end if

if Request.QueryString("ID") = "gemkaldb" then
    fejl = ""
    fejl2 = ""
   
    if Request.Form("txttitel") = "" then
        fejl = "1"
    end if
   
    if Request.Form("txtdato") = "" or Request.Form("txtdato") = "DD-MM-YYYY" then
        fejl2 = "2"
    end if
   
    if fejl = "" and fejl2 = "" then
        brugerfull = mid(Session.Contents("login"),14)
        bruger = Lcase(brugerfull)
   
        sql = "select * from tbl_bruger where bruger_id = '" & bruger & "'"
        rs.open sql, con, adopenforwardonly, adlockreadonly,adcmdtext
       
        holdid = rs.fields("hold_ID")
        postid = rs.fields("bruger_ID")
   
        rs.close
       
        dim id
            id2 = "start"
        do until id2 = "stop"
   
            Randomize
            Random_Number_Min = 1
            Random_Number_Max = 1000
            Random_Number1 = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)
                       
            sql = "select post_id from tbl_kalender where post_id = '" & bruger & "-" & random_number1 & "'"
            rs.open sql, con, adopenforwardonly, adlockreadonly,adcmdtext
                response.write Random_Number1 & "-"
            do until rs.eof
                rs.movenext
                id = id + 1
            loop

            if id = "" then
                response.write "%%" & id & "%%"
                id2 = "stop"
            else
                response.write random_number1
                response.write "-"
                response.write id
            end if
            rs.close
        loop
               
        postid = postid & "-" & random_number1
       
        sql = "insert into tbl_kalender VALUES ('" & lcase(bruger) & "', '" & holdid & "', '" & Request.Form("txtdato") & "', '" & Request.Form("txttitel") & "', '" & Request.Form("txtnote") & "', '" & Request.Form("txttid") & "', '" & postid & "')"
        rs.open sql, con, adopenforwardonly, adlockreadonly,adcmdtext
       
        'java script:self.close()
    else
        Response.Redirect("funk.asp?ID=opretkalender&FEJL=" & fejl & "&FEJL2=" & fejl2 )
    end if
end if
%>