<% Datapath = Server.MapPath("data/Photo.mdb") Set c = CreateObject("ADODB.Connection") c.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Datapath sql = "SELECT * FROM tblPage WHERE PageKey = 'Photos'" Set rsT = Server.CreateObject("ADODB.Recordset") rsT.Open sql, c, 3, 3 Sub MakeAColumn Do while not rs.EOF response.write "

" rs.MoveNext Loop End Sub %> D.C. Anderson
 

D.C. Anderson will shoot portraits/headshots wherever PHANTOM OF THE OPERA is currently playing.
Cost is $199.00. You will receive a CD with your images. Contact D.C. at dc@dcanderson.net

<% ColNo=1 Do Until ColNo=6 response.write "" ColNo=ColNo+1 Loop %>
<%= rsT("PageTitle") %>
" sql = "SELECT * FROM tblPhoto WHERE PhotoPage = 'Photos' and PhotoCol=" & ColNo & " ORDER BY PhotoSeq, PhotoID desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, c, 3, 3 call MakeAColumn response.write "

Click here for archived pictures

These photos ©2006 David Cameron Anderson. Unauthorized reproduction is a violation of applicable laws.