<% re=request.querystring("Re") if re <> "" then if session("proN")>0 then pr1=session("proN") dim invoice1(100) dim invoiceN(100) for t= 1 to pr1 invoice1(t) = session("Sinvoice1")(t) invoiceN(t) = session("SinvoiceN")(t) next for t= re to pr1 invoice1(t) = invoice1(t+1) invoiceN(t) = invoiceN(t+1) next pr1=pr1-1 session("Sinvoice1")= invoice1 session("SinvoiceN")= invoiceN session("proN") =pr1 'Response.Redirect Request.ServerVariables("HTTP_REFERER") Response.Redirect "invoice.asp" end if end if %>