รายชื่อสมาชิกสามัญอาวุโส

ลำดับที่

ประเภทสมาชิก

ชื่อ

นามสกุล

เพศ

สังกัด

<% Dim mappath filePath = Server.MapPath("memberDB.mdb") Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data source=" & filePath &";" Set rs = Server.CreateObject ("ADODB.Recordset") sql = "SELECT UserId, formatt, name, surname, sex, attach, address FROM UserTB order by UserId" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open sql, conn, 1, 3 reccount=Rs.RecordCount Do While Not rs.EOF%>

<%=rs("UserID")%>

<%=rs("formatt")%>

<%=rs("name")%>

<%=rs("surname")%>

<%=rs("sex")%>

<%=rs("attach")%>

<%rs.MoveNext Loop rs.Close conn.Close%>

---