You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
1.1 KiB
Plaintext
59 lines
1.1 KiB
Plaintext
5 years ago
|
<HTML>
|
||
|
<HEAD><TITLE>Place Document Title Here</TITLE></HEAD>
|
||
|
<BODY BGColor=ffffff Text=000000>
|
||
|
<%
|
||
|
Set cn = Server.CreateObject("ADODB.Connection")
|
||
|
Set rs = Server.CreateObject("ADODB.RecordSet")
|
||
|
cn.Open Application("guestDSN")
|
||
|
rs.ActiveConnection = cn
|
||
|
rs.CursorType = adOpenStatic
|
||
|
rs.LockType = adLockOptimistic
|
||
|
rs.Source = "SELECT * FROM authors"
|
||
|
rs.Open
|
||
|
%>
|
||
|
<TABLE BORDER=1>
|
||
|
<TR>
|
||
|
<TH Colspan=<%= rs.Fields.Count %>><B>Before Filter</B></TH>
|
||
|
</TR>
|
||
|
<TR>
|
||
|
<% For i = 0 To RS.Fields.Count - 1 %>
|
||
|
<TD><B><%= RS(i).Name %></B></TD>
|
||
|
<% Next %>
|
||
|
</TR>
|
||
|
<% Do While Not RS.EOF %>
|
||
|
<TR>
|
||
|
<% For i = 0 To RS.Fields.Count - 1 %>
|
||
|
<TD><%= RS(i) %></TD>
|
||
|
<% Next %>
|
||
|
</TR>
|
||
|
<%
|
||
|
RS.MoveNext
|
||
|
Loop
|
||
|
rs.Filter = "phone LIKE '415%'"
|
||
|
rs.MoveFirst
|
||
|
%>
|
||
|
</TABLE>
|
||
|
<P>
|
||
|
<TABLE BORDER=1>
|
||
|
<TR>
|
||
|
<TH Colspan=<%= rs.Fields.Count %>><B>After Filter</B></TH>
|
||
|
</TR>
|
||
|
<TR>
|
||
|
<% For i = 0 To RS.Fields.Count - 1 %>
|
||
|
<TD><B><%= RS(i).Name %></B></TD>
|
||
|
<% Next %>
|
||
|
</TR>
|
||
|
<% Do While Not RS.EOF %>
|
||
|
<TR>
|
||
|
<% For i = 0 To RS.Fields.Count - 1%>
|
||
|
<TD><%= RS(i) %></TD>
|
||
|
<% Next %>
|
||
|
</TR>
|
||
|
<%
|
||
|
RS.MoveNext
|
||
|
Loop
|
||
|
rs.MoveFirst
|
||
|
RS.Close
|
||
|
Cn.Close
|
||
|
%>
|
||
|
</TABLE>
|