สรุปข้อมูลการทาฟลูออไรด์วานิช รายสถานบริการ อำเภอหัวตะพาน

[ ไปหน้า 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%> หมายเหตุ : เป็นข้อมูลเฉพาะเด็กที่มีภูมิลำเนาอยู่ในจังหวัดอำนาจเจริญ นอกเขตจังหวัดจะไม่นำมานับรวม