CONFIRMBOX i ASP (javascript)

  Skal bruge en confirmbox, der giver mulighed for at fortsætte sletning eller forhindrer sletning.
Sletningen foregår fra en href(***) og funktionen ligger her (###)
Jeg har forsøgt mig, men enten er siden forældet (history.back()) eller også er sletningen sket (document.location) - det er lidt tricky, da der skal slæbes rundt på en id. jeg kunne skille siden ad i to(en sletteside, og en opret/ret-side) og så lave en window.confirm ved onload på slettesiden, men det skulle vel ikke være nødvendigt?

Her er scriptet
<%@ Language=VBScript %>

<%
    set upl = server.createobject(\"SoftArtisans.FileUp\")
    slet = Request.querystring(\"slet\")
    com = Request.QueryString(\"com\")
   
(###)    if slet <> \"\" then
        set del = session(\"db\").execute(\"delete from saxop where id =\" & slet )
    end if
   
    if com = \"ny\" then
        set cre = session(\"db\").execute(\"insert into saxop (memo1,memo2) values(\'Erstat denne tekst med din egen\',\'Erstat denne tekst med din egen\')\")
    end if

    function check_change_filname(fpath, s)
      set func_obj = server.createobject(\"Scripting.FileSystemObject\")
      filnr = 0
      if right(fpath,1) <> \"\\\" then fpath = fpath = \"\\\"
      fnavn = func_obj.GetBaseName(s)
      fext  = func_obj.GetExtensionName(s)
      kfilnavn = fnavn & \".\" & fext
      fuldfilnavn = fpath & kfilnavn
      do until not func_obj.FileExists(fuldfilnavn)
        filnr = filnr + 1
        kfilnavn = fnavn & \"_\" & filnr & \".\" & fext
        fuldfilnavn = fpath & kfilnavn
      loop
      check_change_filname = kfilnavn
    end function

   
    if upl.Form(\"saveit\") <> \"\" then
        set saxop = session(\"db\").execute(\"select * from saxop\")
        do while not saxop.eof
                if upl.form(\"F1_\" & saxop(\"id\")).UserFilename <> \"\" and  upl.Form(\"F1_\" & saxop(\"id\")).contentdisposition = \"form-data\" then
                    fpath = session(\"filpath\")
                    kfilnavn = check_change_filname(fpath, upl.form(\"F1_\" & saxop(\"id\")).UserFilename)
                    fuldfilnavn = fpath & kfilnavn
                    upl.form(\"F1_\" & saxop(\"id\")).SaveAs fuldfilnavn
                    set pb = session(\"db\").execute(\"update saxop set billede1 =\'\" & kfilnavn & \"\' where id=\" & saxop(\"id\") )
                end if
                \'if upl.form(\"F2_\" & saxop(\"id\")).UserFilename <> \"\" and  upl.Form(\"F2_\" & saxop(\"id\")).contentdisposition = \"form-data\" then
                    \'fpath = session(\"filpath\")
                    \'kfilnavn = check_change_filname(fpath, upl.form(\"F2_\" & saxop(\"id\")).UserFilename)
                    \'fuldfilnavn = fpath & kfilnavn
                    \'upl.form(\"F2_\" & saxop(\"id\")).SaveAs fuldfilnavn
                    \'set pb = session(\"db\").execute(\"update saxop set billede2 =\'\" & kfilnavn & \"\' where id=\" & saxop(\"id\") )
                \'end if
            set upd = session(\"db\").execute(\"update saxop set memo1 =\'\" & trim(upl.Form(\"T1_\" & saxop(\"id\"))) & \"\' where id =\" & saxop(\"id\") )
            \'set upd = session(\"db\").execute(\"update saxop set memo2 =\'\" & trim(upl.Form(\"T2_\" & saxop(\"id\"))) & \"\' where id =\" & saxop(\"id\") )
        saxop.movenext
        loop
   
    end if
%>
<html>

<head>
<title>Administration</title>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
<link rel=\"StyleSheet\" href=\"mstyl.css\" type=\"text/css\">
<meta name=\"Microsoft Border\" content=\"none\">
</head>

<body leftmargin=\"20\">
<form enctype=\"multipart/form-data\" action=\"saxop_adm.asp\" method=\"POST\" name=\"form1\">
<table BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"1\">
    <tr>
        <td><strong>Tilføj, Ret eller Slet i Saxo</strong></td>
    </tr>
</table>
<br>
<TABLE BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"1\">
    <TR>
        <TD><A href=\"saxop_adm.asp?com=ny\"><img SRC=\"../images/ny.gif\" Border=\"0\" height=\"24\" alt=\"Lav en ny annonce\"></A></TD><BR>
    </TR>
</TABLE>
<BR>

<TABLE WIDTH=75% BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"1\">

<% set saxop = session(\"db\").execute(\"select * from saxop\")%>
<% do while not saxop.eof %>
   
    <tr>   
        <TD>
                <% if saxop(\"billede1\") <> \"\" then %>
                    <img SRC=\"<%=session(\"webpath\")%><%=saxop(\"billede1\")%>\"><br>
                <% end if %>
        <INPUT type=\"file\" name=\"F1_<%=saxop(\"id\")%>\"><br>               
        <textarea cols=\"80\" rows=\"10\" name=\"T1_<%=saxop(\"id\")%>\"><%=trim(saxop(\"memo1\"))%></textarea>
        </TD>

    </TR>
    <TR>
(***)        <TD valign=\"top\"><A href=\"saxop_adm.asp?slet=<%=saxop(\"id\")%>\"><img SRC=\"../images/del.gif\" Border=\"0\" height=\"24\" alt=\"Slet annonce\"></A></TD>
    </TR>
<% saxop.movenext %>
<% loop %>

<TR>
       
        <TD><INPUT type=\"submit\" value=\"Gem tilbehør\" name=\"saveit\"></TD>
       
    </TR>
   
    </CENTER>
</DIV>
</TABLE>
</FORM>
</body>
slut

Mvh.
K-asp-er