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

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