Pictures Tell Stories

MAIN MENU


Back to Homepage

Choose a photo group to see pictures in that catagory.

<% ' Create and open ADO Connection object. Set cnHol = Server.CreateObject("ADODB.Connection") cnStHol = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("holiday/holiday.mdb") cnHol.Open cnStHol,"","" ' Create and open ADO Recordset object. Set rsCat = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM categories ORDER BY catnr ; " rsCat.Open sql, cnHol, adOpenStatic, adLockReadOnly ' Loop thorough recordset object, displaying each record. Do While Not rsCat.EOF %> <% rsCat.MoveNext Loop ' Close and destroy the recordset and connection objects. rsCat.Close Set rsCat = Nothing cnHol.Close Set cnHol = Nothing %>
Photo Group Family Name Description
<% Response.Write "" & _ rsCat("catdesc") & "" %> <%=rsCat("familyname")%> <%=rsCat("comments")%>
Family Chanthavatdy Family Brought the kids to work
Christmas 2004 Chanthavatdy Family Sharing our Christmas pictures
Christmas Paris Chanthavatdy Family Christmas pictures from Paris
Share picture Chaiyavong Family Chaiyavong pictures