<% Dim con, rs Set con = Server.CreateObject("ADODB.Connection") con.Provider = "Microsoft.Jet.OLEDB.4.0;" con.Open(Server.MapPath("display.mdb")) Set rs = Server.CreateObject ("ADODB.RecordSet") rs.Open("Contributors"), con, 1 do until rs.EOF %>
<%= rs("ClientNum") %>
<%= rs("FName") %>
<%= rs("LName") %>
<%= rs("Addy") %>
<%= rs("City") %>
<%= rs("State") %>
<%= rs("Zip") %>
<%= rs("Gender") %>
<%= rs("AMount") %>
<%= rs("DateContributed") %>
<%= rs("Phone") %>
<%= rs("Email") %>
<% rs.MoveNext %> <% loop %>
Contributor Options:
Sort By:
Last Name
City
State
Zip
Amount
Date
Order:
Ascending
Decending
First Name
Last Name
Address
City
State
Zip
Gender
Male
Female
Amount
Phone
Email Address
<% rs.movelast %>
First Name
Last Name
Address
>
>
>
City
State
Zip
Gender
>
>
>
>
Amount
Phone
Email Address
>
>
>
<% rs.close con.close %>
