<% ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" ConnectionString = ConnectionString & "Data Source=" & Server.MapPath("/../databases/pb.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open ConnectionString SQLQuery = "SELECT * FROM categories ORDER BY category_name" Set rsCat = objConn.Execute(SQLQuery) %> DFW PhotoButtons
Bringing Life To Your Event
Backgrounds

Click on the categories below to view the images for that group.

<% IF NOT rsCat.EOF THEN %>

<% DO WHILE NOT rsCat.EOF %> <% rsCat.MoveNext IF NOT rsCat.EOF THEN %> <% rsCat.MoveNext ELSE %> <% END IF IF NOT rsCat.EOF THEN %> <% rsCat.MoveNext ELSE %> <% END IF IF NOT rsCat.EOF THEN %> <% rsCat.MoveNext ELSE %> <% END IF IF NOT rsCat.EOF THEN %> <% rsCat.MoveNext ELSE %> <% END IF IF NOT rsCat.EOF THEN %> <% rsCat.MoveNext ELSE %> <% END IF LOOP rsCat.Close objConn.Close SET rsCat = Nothing SET objConn = Nothing %>
">" border="0">
<%= rsCat.Fields("category_name") %>
">" border="0">
<%= rsCat.Fields("category_name") %>
">" border="0">
<%= rsCat.Fields("category_name") %>
">" border="0">
<%= rsCat.Fields("category_name") %>
">" border="0">
<%= rsCat.Fields("category_name") %>
 ">" border="0">
<%= rsCat.Fields("category_name") %>

 

<% ELSE %>


CURRENTLY THERE ARE NO CATEGORIES
LISTED IN THE DATABASE

<% END IF %>