ปรึกษาเรื่อง นับค่าที่ได้จากการหาช่วงวันครับ..ด่วนจริง ๆ ครับ !!~

<%
PrCode = "รหัสพนักงาน"
nYear = 2009

n1 = CountSeType("สัมนา")
n2 = CountSeType("อบรม")
n3 = CountSeType("ประชุม")
n4 = CountSeType("ศึกษาดูงาน")
n5 = CountSeType("สัมนา")

Function CountSeType(nYear,seType)
    SQL = " SELECT Count(*) FROM [Seminar] WHERE [se_PrCode]='"&PrCode&"' AND Year(seStartDate)="&nYear&" AND [seType]='"&seType&"' "
    Set objRs = objConn.Execute(SQL)
    CountSeType = objRs(0)
    objRs.close
End Function
%>

<%
PrCode = "รหัสพนักงาน"
nYear = 2009

n1 = CountSeType("สัมนา")
n2 = CountSeType("อบรม")
n3 = CountSeType("ประชุม")
n4 = CountSeType("ศึกษาดูงาน")
n5 = CountSeType("สัมนา")

Function CountSeType(seType)
    SQL = " SELECT Count(*) FROM [Seminar] WHERE [se_PrCode]='"&PrCode&"' AND Year(seStartDate)="&nYear&" AND [seType]='"&seType&"' "
    Set objRs = objConn.Execute(SQL)
    CountSeType = objRs(0)
    objRs.close
End Function
%>

<%
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td bgcolor="#66CCFF">สัมมนา</td>
    <td bgcolor="#66CCFF">อบรม</td>
    <td bgcolor="#66CCFF">ประชุม</td>
    <td bgcolor="#66CCFF">ศึกษาดูงาน</td>
    <td bgcolor="#66CCFF">ทัศนศึกษา</td>
  </tr>
  <%
	set objconn=server.createobject("adodb.connection")
	objconn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db/personal.mdb")
	set objrs=server.createobject("adodb.recordset")
  	id=request.QueryString("id")
	PrCode = id
	nYear = 2008
			
	n1 = CountSeType("สัมมนา")
	n2 = CountSeType("อบรม")
	n3 = CountSeType("ประชุม")
	n4 = CountSeType("ศึกษาดูงาน")
	n5 = CountSeType("ทัศนศึกษา")
			
      Function CountSeType(seType)
	   SQL = " SELECT Count(*) FROM [Seminar] WHERE [se_PrCode]='"&PrCode&"' AND Year(seStartDate)="&nYear&" AND [seType]='"&seType&"' "
	   Set objRs = objConn.Execute(SQL)
	   CountSeType = objRs(0)
	   objRs.close
      End Function
		
	set objrs=nothing
	objconn.close
	set objconn=nothing
%>
  <tr>
    <td><%=n1%></td>
    <td><%=n2%></td>
    <td><%=n3%></td>
    <td><%=n4%></td>
	<td><%=n5%></td>
  </tr>
</table>
%>