The
Royal, Sovereign and Imperial
Court of the Central Texas Empire
Photo Albums
<%
set conn = server.createobject("ADODB.Connection")
conn.open "DSN=RSICour_Main;UID=RSICour_SQLLogin2;PWD=zebra4u"
set rs = conn.execute("select * from pv_albums where pv_albumdate >= '6/16/2005' order by pv_albumorder desc, pv_albumdate desc")
do until rs.eof = true
set rs2 = conn.execute ("select pv_thumbfile from pv_photos where pv_photoid = " & rs("pv_albumcoverid"))
strThumb = "picview/pics/" & rs("pv_albumfolder") & "/" & rs2("pv_thumbfile")
rs2.close
set rs2 = nothing
%>
