Welcome to the Philippine Obstetrical and Gynecological Society (POGSinc) Website

<% sub ShowAlbum() Dim conn, rs, sql, ctr set conn = Server.CreateObject("ADODB.Connection") conn.Open POGS_connect %> <% ctr = 1 sql = "Select * from AlbumQr" set rs = conn.Execute(sql) do while not rs.eof if(ctr = 1) then %> <% end if %> <% if(ctr = 4) then %> <% ctr = 0 end if ctr = ctr + 1 rs.movenext loop rs.close set rs = nothing conn.Close() %>

<% Dim sqlPhoto, rsPhoto sqlPhoto = "Select top 1 * from Photo where photoAlbum=" & rs("albumID") rsPhoto = conn.Execute(sqlPhoto) %>

<%= rs("albumName") %>

<% end sub %> Welcome to the Philippine Obstetrical and Gynecological Society (POGSinc) Website

<%ShowAlbum %>