Window Confirm med OK & Annulerer

Jeg er ved at lave en site med medlemsoplysninger til vores lokale forening.

Jeg mangler koden til en Confirm Box til nedenstående site

<%@ language = \"VBScript\" %>

<!-- #include virtual=\"common/adovbs.inc\" -->
<HTML>
<HEAD>

<TITLE>Slet Person</TITLE>

<META NAME=\"Author\" CONTENT=\"Mogens Kjeldsen\">
<META NAME=\"Reply-to\" CONTENT=\"mpk@email.dk\">




</head>




<%

TabelNavn=\"profiltbl\"

id=Request.Querystring (\"id\")

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"medlemskartotek\"


%>


<%
Set Opdatering = Server.CreateObject(\"ADODB.Recordset\")
Query = \"Select * From \" & TabelNavn & \" Where (id) =\" & Id & \" \"
Opdatering.Open Query, Connect, adOpenStatic, adLockOptimistic
%>

<BODY bgcolor=\"#5c7c94\" text=\'#000000\' link=\'#ffffff\' vlink=\'#ffffff\'\">
\'<body onload=\"java script:window.opener.location.href=\'standart.asp\';window.close()\">

<%
Opdatering.delete

\'Response.Write \"<div align=center>Medlemmet er..............fjernet<br><br>\"


%>





</BODY>
</HTML>