<% dbname="CbaoMember0948.mdb" strcon = "provider =microsoft.jet.oledb.4.0;" & _ "data source=" & server.mappath(dbname) set rs = server.CreateObject("adodb.recordset") set rs_sum_people = server.CreateObject("adodb.recordset") set rs_sum_male = server.CreateObject("adodb.recordset") set rs_sum_female = server.CreateObject("adodb.recordset") set rs_max_vote = server.CreateObject("adodb.recordset") if Request("search") = "" then strsql = "select * from register where mType = 'mc' order by mOrder desc, id desc" 'strsql = "select * from register where mType = 'mc' or mType is null order by mOrder desc, id desc" else if Request("sex") <> "" then session("email") = Request("email") session("sex") = Request("sex") session("age") = Request("age") session("address") = Request("address") session("picture") = Request("picture") session("address") = Request("address") end if email = session("email") sex = session("sex") age = session("age") address = session("address") picture = session("picture") address = session("address") select case age case 1 age = " and age between '" & 543+year(now)-12 & "' and '" & 543+year(now)-25 & "' " case 2 age = " and age between '" & 543+year(now)-26 & "' and '" & 543+year(now)-35 & "' " case 3 age = " and age between '" & 543+year(now)-1 & "' and '" & 543+year(now)-11 & "' " case 4 age = " and age between '" & 543+year(now)-37 & "' and '" & 543+year(now)-100 & "' " case else age = " and age <> '' " end select 'response.write picture if address = "ไม่ระบุ" then address = " and provence <> '""' " else address = " and provence = '" & address & "' " end if if picture = "on" then picture = "space.gif" else picture = "" end if if email = "" then email = "" else email = " (id like '%" & email & "%' or surName like '%" & email & "%' or name like '%" & email & "%' or nickName like '%" & email & "%') and " end if if sex = "ไม่เกี่ยงเพศ" then sex = "''" else sex = " sex = '" & sex & "' " end if if picture = "" then picture = "" else picture = " and fileName <> '" & picture & "' " end if strsql = "select * from register where " & email & sex & age & address & picture &" and mType = 'mc' order by id desc" 'strsql = "select * from register where " & email & sex & age & address & picture &" and (mType = 'mc' or mType is null) order by id desc" 'strsql = "select * from register where " & email & sex & age & address & picture &" order by id desc" end if rs.CursorLocation = 3 rs.Open strsql,strcon set rs.ActiveConnection = Nothing Pagesize = 50 if Request("page") = "" then iPage = 0 else iPage = cInt(Request ("page")) end if if rs.EOF then iFound = False iPage = 0 else iFound = True rs.PageSize = Pagesize if iPage <= 0 then iPage = 1 end if if iPage >= rs.PageCount then iPage = rs.PageCount end if rs.AbsolutePage = iPage end if %>
<% if iFound = false then Response.Write ("") Response.End end if %> <%for i = 1 to pagesize%> <% sex =rs("sex") select case sex case "male" sex = "ชาย" case "female" sex = "หญิง" end select %> <%rs.MoveNext if rs.EOF then exit for Next %>
สมาชิกในระบบใหม่ [MC]
ชื่อ: " class="CbaoForm"> เพศ: อายุ: ที่อยู่: รูป: >

ไม่พบข้อมูลที่ท่านค้นหา
ลำดับ ชื่อบนเวที ชื่อ-นามสกุล เพศ รูปถ่าย อายุ จังหวัด ถูกเปิด
  <%if rs("mOrder") = "0" then%>" target="_blank"><%response.Write "Crb" & right("0000" & rs("id"),4)%><%else%>" target="_blank"><%=ucase(rs("mType"))%><%=right("0000" & rs("mOrder"),4)%><%end if%> " target="_blank"><%=rs("nickName")%> " target="_blank"><%if not rs("nameStatus") = "checked" then%>-<%else%><%=rs("name")%><%end if%>  <%if not rs("surnameStatus") = "checked" then%><%else%><%=rs("surName")%><%end if%><%=sex%> <%=left(rs("filePicture"),instr(rs("filePicture"),",")-1)%> <%=abs(right(rs("age"),4)-year(now)-543)%> ปี <%=rs("provence")%> <%=rs("viewer")%>

<%if iFound = true and rs.pagesize > 1 then%> <%if iPage = 1 then %> |< หน้าแรก |<< หน้าที่แล้ว <%else%> |<หน้าแรก | <<หน้าที่แล้ว | <%end if%>        ไปยังหน้า : size="3" class="CbaoForm"> of <% if iFound then Response.Write rs.PageCount else Response.Write "0" end if %>        <%if iPage = rs.pagecount then%> หน้าถัดไป >>| หน้าสุดท้าย>| <%else%> หน้าถัดไป >> | หน้าสุดท้าย >| <%end if%> <%end if%>