急！！！！asp中弹出确定窗口的程序

<%
call admintop()
if session("admin_name")="" then
adminflag()
else
dim action

action=request("action")

select case action

case "add"
if trim(request("p_name"))<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from product", conn, 1, 3
rs.AddNew
rs("p_name")=trim(request("p_name"))
rs("p_bianma")=trim(request("p_bianma"))
rs("p_sort")=trim(request("p_sort"))
rs("p_zuozhe")=trim(request("p_zuozhe"))
rs("p_beizhu")=trim(request("p_beizhu"))
rs("p_chubanshe")=trim(request("p_chubanshe"))
rs("p_chubanriqi")=trim(request("p_chubanriqi"))
rs("p_price")=cint(trim(request("p_price"))) <