<% Rem รับค่าจากฟอร์ม keyword=request.form("keyword") option1="อุดรธานี" Rem ตั้งเวลาให้ติดต่อได้ไม่เกิน 20 นาที 'Session.timeout = 20 Rem เริ่มส่วนการติดต่อกับฐานข้อมูล Set ObjDB=Server.CreateObject("ADODB.Connection") ObjDB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.Mappath("Serramember.mdb") &";" Rem ตรวจสอบการสืบค้นว่าต้องการค้นจากฟิลด์ใดแล้วกำหนดการสืนค้นให้ตรงฟิลด์ sql = "Select * From Serramember Where Club like '" & option1 & "%' " Rem ส่วนเชื่อมต่อ Recordset Set ObjRS = Server.CreateObject("ADODB.Recordset") ObjRS.Open sql, ObjDB, 1, 3 Rem หากเกิดข้อผิดพลาดขึ้นยังทำต่อไป On Error Resume Next Rem เลื่อนพอยต์เตอร์ไปรายการแรก ObjRS.MoveFirst %> <% If ObjRS.EOF then 'ถ้าไม่พบข้อมูลให้ แสดงผลคำว่า ไม่พบข้อมูล %>

สภาเซอร์ร่าแห่งประเทศไทย
Serra Thailand Database


ไม่พบข้อมูล

กลับไปศูนย์ข้อมูล
<% Response.End End if %>

สภาเซอร์ร่าแห่งประเทศไทย
Serra Thailand Database

ข้อมูลพื้นฐานของสมาชิกเซอร์ร่า
กลุ่ม "<%=option1%>"

<%'พิมพ์ส่วนหัวตาราง%> <%'วนลูบจนกว่าจะหมดรายการ %> <% I=1 Do While Not ObjRS.EOF If Bg="#DDFFFF" Then Bg="#FFFFEE" Else Bg="#DDFFFF" End If %> Valign=Top> <%'เขียนข้อมูลทุกฟิลด์จากตาราง Book ลงในตาราง%> <% ObjRS.MoveNext I = I + 1 Loop %>
ที่ รหัส นักบุญ ชื่อ วันปฎิญาณตัว สถานภาพ
<%= I %> <%=ObjRs("ID") %> <%=ObjRS("Patrone")%> <%=ObjRS("Name")%> <%=ObjRS("VDay")%> <%=ObjRS("Status")%>



จงก้าวไปข้างหน้าเสมอ ขออย่าได้ถอยกลับ