<% dim dsn dim Conn dsn="DBQ=" & Server.Mappath("/data/webData.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsn %> <% dim anchor dim anchorTotal Set rs = conn.Execute("SELECT featureImages.imgId, featureImages.imgName, featureImages.imgTitle, featureImages.imgDate, featureImages.imgWidth, featureImages.imgHeight FROM featureImages ORDER BY featureImages.imgDate DESC;") response.write "" While NOT rs.EOF anchorTotal = anchorTotal + 1 rs.MoveNext Wend rs.MoveFirst While NOT rs.EOF if anchor = "" then anchor = 1 else anchor = anchor + 1 end if response.write "" response.write "" response.write "" response.write "" response.write "" rs.MoveNext Wend response.write "

	" response.write rs("imgTitle") response.write "	" if anchor <> 1 then response.write "«" end if if anchor <> anchorTotal and anchor <> 1 then response.write " | " end if if anchor <> anchorTotal then response.write "»" end if response.write "

" %> <% Conn.close set Conn = nothing %>