/aboutbcfpd/photo_gallery/photos/intro.asp

https://github.com/evizitei/bcfpd_asp · ASP · 85 lines · 82 code · 3 blank · 0 comment · 6 complexity · a210d337e8078f0b4bdab9f3f03acf26 MD5 · raw file

  1. <!--#include virtual="/include/templates/top.asa"-->
  2. <!--#include virtual="/include/menus/about.asa"-->
  3. <!-- #include virtual="/include/constants/database.asa"-->
  4. <!-- #include virtual="/include/common_functions.asa"-->
  5. <%
  6. set rsImageCat = Server.CreateObject("ADODB.Recordset")
  7. set rsImage = Server.CreateObject("ADODB.Recordset")
  8. %>
  9. <table cellpadding="5" cellspacing="0" border="0" width="570">
  10. <tr>
  11. <td class="PageTitle">Photo Gallery</td>
  12. </tr>
  13. <tr>
  14. <td class="Content"><font size="1">Click on a category to see all of the images for that category.</font>
  15. </td>
  16. </tr>
  17. <% rsImageCat.Open "SELECT * FROM Image_Category ORDER BY Name ASC" , cnnMain, 0, 1
  18. if not rsImageCat.EOF then
  19. do while not rsImageCat.EOF
  20. %>
  21. <tr>
  22. <td class="Subheader"><a href="/aboutbcfpd/photo_gallery/photos/image.asp?Category_ID=<%=rsImageCat("Category_ID")%>" title="<%=rsImageCat("Description")%>"><%=rsImageCat("Name")%></a>
  23. <br><br>
  24. <%
  25. strSQL = "SELECT * FROM Image WHERE FilmStrip = 1 AND Image_Category_ID = " & rsImageCat("Category_ID")
  26. rsImage.Open strSQL, cnnMain, 0, 1
  27. if not rsImage.EOF then %>
  28. <table cellpadding="0" cellspacing="0" border="0">
  29. <tr>
  30. <td>
  31. <table cellpadding="0" cellspacing="0" border="0" bordercolor="black">
  32. <tr>
  33. <td bgcolor="black">
  34. <table cellpadding="0" cellspacing="0" border="0" bordercolor="black">
  35. <tr>
  36. <td><img width="400" SRC="/images/photo_gallery/images/filmstrip/Filmstrip.jpg"></td>
  37. </tr>
  38. </table>
  39. </td>
  40. </tr>
  41. <tr>
  42. <td bgcolor="black">
  43. <table cellpadding="0" cellspacing="0" border="1" bordercolor="black">
  44. <tr>
  45. <% do while not rsImage.EOF %>
  46. <td><img width=100 src="/images/photo_gallery/images/filmstrip/<%=rsImage("ThumbnailName")%>" border="0"></a></td>
  47. <% rsImage.MoveNext
  48. loop %>
  49. </tr>
  50. </table>
  51. </td>
  52. </tr>
  53. <tr>
  54. <td bgcolor="black">
  55. <table cellpadding="0" cellspacing="0" border="0" bordercolor="black">
  56. <tr>
  57. <td><img width="400" SRC="/images/photo_gallery/images/filmstrip/Filmstrip.jpg"></td>
  58. </tr>
  59. </table>
  60. </td>
  61. </tr>
  62. </table>
  63. </td>
  64. </tr>
  65. </table>
  66. <% end if
  67. rsImage.Close
  68. rsImageCat.MoveNext
  69. loop
  70. rsImageCat.Close
  71. set rsImageCat = nothing
  72. set rsImage = nothing
  73. else%>
  74. <tr>
  75. <td><font size="2" color="#CC0000">We do not have images to view at this time.
  76. Please check back later after we have updated the Photo Gallery.</font>
  77. </td>
  78. </tr>
  79. <% end if%>
  80. </table>
  81. <p><br>
  82. <!--#include virtual="/include/templates/bottom.asa"-->