/aboutbcfpd/contact_us/index.asp

https://github.com/evizitei/bcfpd_asp · ASP · 95 lines · 93 code · 1 blank · 1 comment · 7 complexity · 88421e02a155ca226d34a096d13f8fac MD5 · raw file

  1. <!--#include virtual="/include/templates/top.asa"-->
  2. <!--#include virtual="/include/menus/about.asa"-->
  3. <%
  4. ' Create a recordset object called rsPersonnel.
  5. set rsPersonnel = Server.CreateObject("ADODB.Recordset")
  6. set rsStations = Server.CreateObject("ADODB.Recordset")
  7. %>
  8. <table cellpadding="5" cellspacing="0" border="0" width="98%">
  9. <tr>
  10. <td class="PageTitle">Contact Us</td>
  11. </tr>
  12. <tr>
  13. <td align="left">
  14. <table cellpadding="0" cellspacing="0" border="0">
  15. <tr>
  16. <td class="Header" colspan="3" align="left">&nbsp;Personnel</td>
  17. </tr>
  18. <% rsPersonnel.Open "SELECT * FROM Contact_Us_Personnel ORDER BY Sort Asc" , cnnMain, 3
  19. Do while not rsPersonnel.EOF %>
  20. <tr>
  21. <td colspan="3"><p><br>
  22. <table cellpadding="5" cellspacing="3" border="0">
  23. <tr>
  24. <td align="left" class="SubHeader">Name</td>
  25. <td align="left" class="ContactInfo"><%=rsPersonnel("Name")%></td>
  26. </tr>
  27. <tr>
  28. <td align="left" class="SubHeader">Title</td>
  29. <td align="left" class="ContactInfo"><%=rsPersonnel("Title")%></td>
  30. </tr>
  31. <tr>
  32. <td align="left" class="SubHeader">E-Mail</td>
  33. <td align="left" class="ContactInfo"><a href="mailto:<%=rsPersonnel("Email")%>?subject=BCFPD Web Site: Contact Us"><%=rsPersonnel("Email")%></a></td>
  34. </tr>
  35. <tr>
  36. <td align="left" valign="top" class="SubHeader">Responsibilities</td>
  37. <td align="left" class="ContactInfo"><%=rsPersonnel("Responsibilities")%></td>
  38. </tr>
  39. </table>
  40. </td>
  41. </tr>
  42. <% rsPersonnel.MoveNext
  43. Loop
  44. rsPersonnel.Close
  45. Set rsPersonnel = nothing %>
  46. <tr>
  47. <td>&nbsp;</td>
  48. </tr>
  49. <tr>
  50. <td class="Header" colspan="3" align="left">&nbsp;Stations</td>
  51. </tr>
  52. <tr>
  53. <td colspan="3">&nbsp;</td>
  54. </tr>
  55. <tr>
  56. <td width="25%" class="SubHeader">Name</td>
  57. <td width="25%" class="SubHeader">Address</td>
  58. <td width="25%" class="SubHeader">Additonal Info</td>
  59. </tr>
  60. <tr>
  61. <td colspan="3">&nbsp;</td>
  62. </tr>
  63. <% rsStations.Open "SELECT * FROM Contact_Us_Stations ORDER BY Sort Asc" , cnnMain, 3
  64. Do while not rsStations.EOF %>
  65. <tr>
  66. <td valign="top" class="ContactInfo"><%=rsStations("Name")%></td>
  67. <td valign="top" class="ContactInfo"><%=rsStations("Address1")%>
  68. <% if rsStations("Address2") <> "" then
  69. Response.Write("<br>" & rsStations("Address2"))
  70. end if
  71. if rsStations("City") <> "" then
  72. Response.Write("<br>" & rsStations("City"))
  73. end if
  74. if rsStations("State") <> "" then
  75. Response.Write("<br>" & rsStations("State"))
  76. end if
  77. if rsStations("Zip") <> "" then
  78. Response.Write("<br>" & rsStations("Zip"))
  79. end if %>
  80. </td>
  81. <td valign="top" class="ContactInfo"><%=rsStations("Info")%></td>
  82. </tr>
  83. <tr>
  84. <td colspan="3">&nbsp;</td>
  85. </tr>
  86. <% rsStations.MoveNext
  87. Loop
  88. rsStations.Close
  89. Set rsStations = nothing %>
  90. </table>
  91. </td>
  92. </tr>
  93. </table>
  94. <!--#include virtual="/include/templates/bottom.asa"-->