สรุปข้อมูลการทาฟลูออไรด์วานิช รายสถานบริการ อำเภอชานุมาน
[ ไปหน้า
Login ] [
ไปหน้าหลัก ] [ เพิ่มชื่อและข้อมูลเด็กรายใหม่ ] [
ไปหน้าแก้ไข ] [
ค้นหาข้อมูลรายสถานบริการ
] [ ค้นหาข้อมูลรายอำเภอ ตำบล
]
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempA1 = "Select * From treatment where fpcu = 'รพ.ชานุมาน' "
set rstempA1=Server.CreateObject("adodb.Recordset")
rstempA1.open sqltempA1, connectme,1,3
howmanyrecsA1=rstempA1.recordcount
rstempA1.close
set rstempA1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempB1 = "Select * From treatment where fpcu = 'สอ.โนนกุง อ.ชานุมาน' "
set rstempB1=Server.CreateObject("adodb.Recordset")
rstempB1.open sqltempB1, connectme,1,3
howmanyrecsB1=rstempB1.recordcount
rstempB1.close
set rstempB1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempC1 = "Select * From treatment where fpcu = 'สอ.โคกสาร อ.ชานุมาน' "
set rstempC1=Server.CreateObject("adodb.Recordset")
rstempC1.open sqltempC1, connectme,1,3
howmanyrecsC1=rstempC1.recordcount
rstempC1.close
set rstempC1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempD1 = "Select * From treatment where fpcu = 'สอ.คำเดือย อ.ชานุมาน' "
set rstempD1=Server.CreateObject("adodb.Recordset")
rstempD1.open sqltempD1, connectme,1,3
howmanyrecsD1=rstempD1.recordcount
rstempD1.close
set rstempD1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempE1 = "Select * From treatment where fpcu = 'สอ.โคกก่ง อ.ชานุมาน' "
set rstempE1=Server.CreateObject("adodb.Recordset")
rstempE1.open sqltempE1, connectme,1,3
howmanyrecsE1=rstempE1.recordcount
rstempE1.close
set rstempE1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempF1 = "Select * From treatment where fpcu= 'สอ.พุทธรักษา อ.ชานุมาน' "
set rstempF1=Server.CreateObject("adodb.Recordset")
rstempF1.open sqltempF1, connectme,1,3
howmanyrecsF1=rstempF1.recordcount
rstempF1.close
set rstempF1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempG1 = "Select * From treatment where fpcu= 'สอ.บุ่งเขียว อ.ชานุมาน' "
set rstempG1=Server.CreateObject("adodb.Recordset")
rstempG1.open sqltempG1, connectme,1,3
howmanyrecsG1=rstempG1.recordcount
rstempG1.close
set rstempG1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempH1 = "Select * From treatment where fpcu = 'สอ.ห้วยทม อ.ชานุมาน' "
set rstempH1=Server.CreateObject("adodb.Recordset")
rstempH1.open sqltempH1, connectme,1,3
howmanyrecsH1=rstempH1.recordcount
rstempH1.close
set rstempH1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempI1 = "Select * From treatment where fpcu = 'สอ.ห้วยฆ้อง อ.ชานุมาน' "
set rstempI1=Server.CreateObject("adodb.Recordset")
rstempI1.open sqltempI1, connectme,1,3
howmanyrecsI1=rstempI1.recordcount
rstempI1.close
set rstempI1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempJ1 = "Select * From treatment where fpcu = 'สอ.คำแก้วเมืองเก่า อ.ชานุมาน' "
set rstempJ1=Server.CreateObject("adodb.Recordset")
rstempJ1.open sqltempJ1, connectme,1,3
howmanyrecsJ1=rstempJ1.recordcount
rstempJ1.close
set rstempJ1=nothing
%>
<%
total1=howmanyrecsA1+howmanyrecsB1+howmanyrecsC1+howmanyrecsD1+howmanyrecsE1+howmanyrecsF1+howmanyrecsG1
total2=howmanyrecsH1+howmanyrecsI1+howmanyrecsJ1
total5=total1+total2
%>
ชื่อสถานบริการ |
จำนวนเด็กที่ได้รับการตรวจสุขภาพช่องปาก
และได้รับฟลูออไรด์วานิช |
1. รพ.ชานุมาน |
<%=howmanyrecsA1%>
ราย |
2. สอ.โนนกุง |
<%=howmanyrecsB1%>
ราย |
3. สอ.โคกสาร |
<%=howmanyrecsC1%>
ราย |
4. สอ.คำเดือย |
<%=howmanyrecsD1%>
ราย |
5. สอ.โคกก่ง |
<%=howmanyrecsE1%>
ราย |
6. สอ.พุทธรักษา |
<%=howmanyrecsF1%>
ราย |
7. สอ.บุ่งเขียว |
<%=howmanyrecsG1%>
ราย |
8. สอ.ห้วยทม |
<%=howmanyrecsH1%>
ราย |
9. สอ.ห้วยฆ้อง |
<%=howmanyrecsI1%>
ราย |
10. สอ.คำแก้วเมืองเก่า |
<%=howmanyrecsJ1%>
ราย |
รวม |
<%=total5%>
ราย |
|
ข้อมูล ณ วันที่ <%=now%> หมายเหตุ : เป็นข้อมูลเฉพาะเด็กที่มีภูมิลำเนาอยู่ในจังหวัดอำนาจเจริญ นอกเขตจังหวัดจะไม่นำมานับรวม