สรุปข้อมูลการทาฟลูออไรด์วานิช รายสถานบริการ อำเภอหัวตะพาน
[ ไปหน้า
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
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempK1 = "Select * From treatment where fpcu = 'สอ.หนองยอ อ.หัวตะพาน' "
set rstempK1=Server.CreateObject("adodb.Recordset")
rstempK1.open sqltempK1, connectme,1,3
howmanyrecsK1=rstempK1.recordcount
rstempK1.close
set rstempK1=nothing
%>
<%
Set connectme = Server.CreateObject("ADODB.Connection")
connectme.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & server.mappath("database/metacart.mdb")
sqltempL1 = "Select * From treatment where fpcu = 'สอ.จิกดู่ อ.หัวตะพาน' "
set rstempL1=Server.CreateObject("adodb.Recordset")
rstempL1.open sqltempL1, connectme,1,3
howmanyrecsL1=rstempL1.recordcount
rstempL1.close
set rstempL1=nothing
%>
<%
total1=howmanyrecsA1+howmanyrecsB1+howmanyrecsC1+howmanyrecsD1+howmanyrecsE1+howmanyrecsF1+howmanyrecsG1
total2=howmanyrecsH1+howmanyrecsI1+howmanyrecsJ1+howmanyrecsK1+howmanyrecsL1
total5=total1+total2
%>
ชื่อสถานบริการ |
จำนวนเด็กที่ได้รับการตรวจสุขภาพช่องปาก
และได้รับฟลูออไรด์วานิช |
1. รพ.หัวตะพาน |
<%=howmanyrecsA1%>
ราย |
2. สอ.หัวตะพาน |
<%=howmanyrecsB1%>
ราย |
3. สอ.คำพระ |
<%=howmanyrecsC1%>
ราย |
4. สอ.โนนหนามแท่ง |
<%=howmanyrecsD1%>
ราย |
5. สอ.เค็งใหญ่ |
<%=howmanyrecsE1%>
ราย |
6. สอ.โคกเลาะ |
<%=howmanyrecsF1%>
ราย |
7. สอ.โพนเมืองน้อย |
<%=howmanyrecsG1%>
ราย |
8. สอ.ขุมเหล็ก |
<%=howmanyrecsH1%>
ราย |
9. สอ.สร้างถ่อใน |
<%=howmanyrecsI1%>
ราย |
10. สอ.นาคู |
<%=howmanyrecsJ1%>
ราย |
11. สอ.หนองยอ |
<%=howmanyrecsK1%>
ราย |
12. สอ.จิกดู่ |
<%=howmanyrecsL1%>
ราย |
รวม |
<%=total5%>
ราย |
|
ข้อมูล ณ วันที่ <%=now%> หมายเหตุ : เป็นข้อมูลเฉพาะเด็กที่มีภูมิลำเนาอยู่ในจังหวัดอำนาจเจริญ นอกเขตจังหวัดจะไม่นำมานับรวม