" method="post">
Home About Us Committee Activities Search Photo
Gallery		 Download
Forms		 Feedback Contact Us

   

 NAME                                                            BACK

<% u_search=request.form("u_search") %> Search Result for : <% response.write u_search if u_search <> "" then ' Grabs the contstant for cursorlocation %> <% p=request.form("p") '' Check the value of p (page) and make sure it is not null '' If a null value is found then 1 is put in its place if p = "" then p=1 end if accessdb="kutchggf" cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb) set rs = server.createobject("ADODB.Recordset") sql = "select * from member where fname like '%%"& u_search &"%%' order by fname" ' *********************************** ' Implements the value from adovbs.inc rs.cursorlocation=aduseclient ' ************************************* rs.cachesize=5 rs.open sql,cn if not rs.eof then g_search="obs found" rs.movefirst ' Sets the number of observations per page to a max of four rs.pagesize=20 maxcount=cint(rs.pagecount) rs.absolutepage=p %> <%do while not rs.eof and numofobs <% rs.movenext ' Counts the number of observations in the current page numofobs=numofobs+1 loop %>

Name

Resident Area

Mobile No

Res-No

Off-No

 Click for Detail
<%=rs.fields("fname") %>  <% =rs.fields("resarea") %>  <% =rs.fields("mobile") %>  <% =rs.fields("resphone") %>  <% =rs.fields("offphone") %>  <% Response.write "" & rs.fields("idno").value & "" %>   

 

<% if p <> 1 then %>

 Previous Page

<% end if %> <% if cint(p) < cint(rs.pagecount) then %>

Next Page 

<% end if %>

<% end if end if %> <% 'Check to see if the search resulted in observations found 'if not then display a message that states no results found if g_search <> "obs found" and u_search <> "" then response.write "Nothing reults found for your search on "& u_search &"
" end if %>