here the code, i'm sorry, it's a bit messy
<html>
<head>
</head>
<body>
<div align="center">
<%
dim workweek
set rs = Server.CreateObject("ADODB.Connection"
'setting the recordset
set results=Server.CreateObject("ADODB.Recordset"

'set results2=Server.CreateObject("ADODB.Recordset"
cn = "Provider=MSDAORA;"&_
"Data Source=(Description=(Address=(Protocol=TCP)"&_
"(host=145.7.2.54)"&_
"(port=1521))"&_
"(CONNECT_DATA=(SID=WRSMQS)));"&_
"User ID=MDAMQS;"&_
"Password=waris"
'select from table prolist all data which the status is close and date close is not null
strSQL="select date_close, date_enter, pro_ctgry from prolist where rej_stat='Closed' and date_close is not null and date_enter is not null and date_enter<=date_close order by date_close asc"
'strSQL2="select count(*) as totalrecords from AISTEST where rej_stat='Closed' and date_close is not null"
rs.Open cn
results.Open strSQL,rs,1,2
' initiate variable
dtcount=0
qcount=0
ecount=0
mcount=0
ncount=0
do until results.eof
select case results("pro_ctgry"

case "DownTime"
response.write strsql
workweek=cint(DateDiff("ww",#30-12-2000#,(results("date_close"

),1,1))
select case workweek
case "12"
dedt12=trim(results("date_close"

-results("date_enter"

)+1
acdedt12=acdedt12+dedt12
dtcount12=dtcount12+1
case "13"
dedt13=trim(results("date_close"

-results("date_enter"

)+1
acdedt13=acdedt13+dedt13
dtcount13=dtcount13+1
case "14"
dedt14=trim(results("date_close"

-results("date_enter"

)+1
acdedt14=acdedt14+dedt14
dtcount14=dtcount14+1
end select
case "QualityMfg"
workweek=cint(DateDiff("ww",#30-12-2000#,(results("date_close"

),1,1))
select case workweek
case "12"
deq12=trim(results("date_close"

-results("date_enter"

)+1
acdeq12=acdeq12+deq12
qcount12=qcount12+1
case "13"
deq13=trim(results("date_close"

-results("date_enter"

)+1
acdeq13=acdeq13+deq13
qcount13=qcount13+1
case "14"
deq14=trim(results("date_close"

-results("date_enter"

)+1
acdeq14=acdeq14+deq14
qcount14=qcount14+1
end select
case "NPI/NPR"
workweek=cint(DateDiff("ww",#30-12-2000#,(results("date_close"

),1,1))
select case workweek
case "12"
den12=trim(results("date_close"

-results("date_enter"

)+1
acden12=acden12+den12
ncount12=ncount12+1
case "13"
den13=trim(results("date_close"

-results("date_enter"

)+1
acden13=acden13+den13
ncount13=ncount13+1
case "14"
den14=trim(results("date_close"

-results("date_enter"

)+1
acden14=acden14+den14
ncount14=ncount14+1
end select
case "Entitlement"
workweek=cint(DateDiff("ww",#30-12-2000#,(results("date_close"

),1,1))
select case workweek
case "12"
dee12=trim(results("date_close"

-results("date_enter"

)+1
acdee12=acdee12+dee12
ecount12=ecount12+1
case "13"
dee13=trim(results("date_close"

-results("date_enter"

)+1
acdee13=acdee13+dee13
ecount13=ecount13+1
case "14"
dee14=trim(results("date_close"

-results("date_enter"

)+1
acdee14=acdee14+dee14
ecount14=ecount14+1
end select
case "Mischuck"
dem=results("date_enter"

mcount=mcount+1
end select
results.movenext
loop %>
<H3><center> Average closing time by CoPs<center></H3>
<table border=1 bordercolor="green">
<tr><td>COP</td>
<td>WW12</td>
<td>WW13</td>
<td>WW14</td>
<tr>
<td>DownTime</td>
<td>
<%=formatnumber(acdedt12/dtcount12,1)%></td>
<td>
<%=formatnumber(acdedt13/dtcount13,1)%></td>
<td>
<% if acdedt14=0 or dtcount14=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdedt14/dtcount14,1)%>
<%end if %></td>
</tr>
<tr>
<td>Quality</td><td>
<%=formatnumber(acdeq12/qcount12,1)%></td>
<td>
<%=formatnumber(acdeq13/qcount13,1)%></td>
<td>
<% if acdeq14=0 or qcount14=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdeq14/qcount14,1)%>
<%end if %></td>
</tr>
<tr>
<td>NPI/NPR</td>
<td>
<% if acden12=0 or ncount12=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acden12/ncount12,1)%>
<%end if %></td>
<td>
<% if acden13=0 or ncount13=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acden13/ncount13,1)%>
<%end if %></td>
<td>
<% if acden14=0 or ncount14=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acden14/ncount14,1)%>
<%end if %></td>
</tr>
<tr>
<td>Mischuck</td>
<td>
<% if acdem12=0 or mcount12=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdem12/mcount12,1)%>
<%end if %></td>
<td>
<% if acdem13=0 or mcount13=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdem13/mcount13,1)%>
<%end if %></td>
<td>
<% if acdem14=0 or mcount14=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdem14/mcount14,1)%>
<%end if %></td>
</tr>
<tr>
<td>Entitlement</td>
<td>
<% if acdee12=0 or ecount12=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdee12/ecount12,1)%>
<%end if %></td>
<td>
<% if acdee13=0 or ecount13=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdee13/ecount13,1)%>
<%end if %></td>
<td>
<% if acdee14=0 or ecount14=0 then %>
<font color="white">null</font>
<% else %>
<%=formatnumber(acdee14/ecount14,1)%>
<%end if %></td>
</tr>
</table>
</body>
</html>