<% if request("submit")<>"" then keyword=request("keyword") 'lname=request("lname") 'country=request("country") sql="select distinct * from profile where firstname like '%"&keyword&"%'or lastname like '%"&keyword&"%' or country like '%"&keyword&"%' or aboutyou like '%"&keyword&"%' or company like '%"&keyword&"%' or citystate like '%"&keyword&"%' or profession like '%"&keyword&"%' order by firstname" 'response.write sql Set RS = Server.CreateObject("ADODB.RecordSet") set RS.ActiveConnection = conn RS.CursorType = 3 RS.CursorLocation = 3 RS.LockType = 2 RS.Open sql if not rs.eof then RS.pagesize=10 RS.cachesize=50 Pagecounts=rs.Pagecount 'rs.Pagesize=5 'rs.Cachesize=5 If request("Pagenum")="" then rs.Absolutepage=1 else if Cint(request("pagenum"))<= Pagecounts then rs.AbsolutePage = Cint(Request("Pagenum")) Else rs.AbsolutePage=2 End If End IF abspage=rs.AbsolutePage end if end if %> Search
<%if session("loginid")="" then target="login.asp" else: target="updateprofile.asp" %>
Change my password Update your profile <% if session("loginid")="" then%> Register <%else%> Logout <%end if%>

Search
Keyword:
 
<%if request("submit")="" then%> 10 Most Recent Entries

<% mysql="select TOP 10 * from profile order by dateofreg desc" set rs=conn.execute(mysql) Do while not rs.eof %> <% rs.movenext loop %>
Results:
">Contact this person
First Name <%=rs("firstname")%> Last Name <%=rs("lastname")%>
Profession: <%=rs("profession")%> Company/Institution: <%=rs("company")%>
Lebanese Origins:(village) <%=rs("lebaneseorigin")%> Year Of Birth <%=rs("birthyear")%>
About You: <%=replace(rs("aboutyou"),chr(13),"
")%>
   
<%end if%>

<%if request("submit")<>"" then if not rs.eof then%> <% mycount=0 Do while not rs.eof and mycount<10 %> <% mycount=mycount+1 rs.movenext loop %>
Results:
">Contact this person
First Name <%=rs("firstname")%> Last Name <%=rs("lastname")%>
Profession: <%=rs("profession")%> Company/Institution: <%=rs("company")%>
Lebanese Origins:(village) <%=rs("lebaneseorigin")%> Year Of Birth <%=rs("birthyear")%>
About You: <%=replace(rs("aboutyou"),chr(13),"
")%>
   
<% if abspage >1 then%> &lname=<%=request("lname")%>&country=<%=request("country")%>&submit=yes"><<Previous <%end if%>    
<% else%> Sorry no results... <%end if%> <%end if%>