Friday, December 14, 2007

How to clear the Filter Setup?

How to clear the Filter Setup?

When the Filter Properties have been set, How we can clear the Filter setup to s How all records?

The ASP codes are written and described as below:


<%

Set conn = Server.CreateObject("Adodb.Connection")

conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")

Set rs = Server.CreateObject("Adodb.Recordset")

rs.Open "Member",conn,1,3

%>

<%

rs.Filter = "Location = 'LA'" 'We set a filter that the recordset only s How the member location is "LA"

If rs.EOF Then 'If Eof is True; that means is not record

%>

<%

Else

Do while Not rs.eof

%>

<%

rs.movenext

Loop

End If

%>

No member...
<%=rs("MemID")%> <%=rs("MemberName")%> <%=rs("Location")%>




<%

rs.Filter = "" 'Now we clear the Filter setup

If rs.EOF Then

%>

<%

Else

Do while Not rs.eof

%>


<%

rs.movenext

Loop

End If

rs.Close

Set rs = Nothing

%>

No member...
<%=rs("MemID")%> <%=rs("MemberName")%> <%=rs("Location")%>




No comments: