/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. 

  2. <!--#include virtual="/include/menus/about.asa"-->

    3. 

  3. <%

    4. 

  4. ' Create a recordset object called rsPersonnel.

    5. 

  5. 	set rsPersonnel = Server.CreateObject("ADODB.Recordset")

    6. 

  6. 	set rsStations = Server.CreateObject("ADODB.Recordset")

    7. 

  7. 

    8. 

  8. %>

    9. 

  9. <table cellpadding="5" cellspacing="0" border="0" width="98%">

    10. 

  10. 	<tr>

    11. 

  11. 		<td class="PageTitle">Contact Us</td>

    12. 

  12. 	</tr>	

    13. 

  13. 	<tr>

    14. 

  14. 		<td align="left">

    15. 

  15. 			<table cellpadding="0" cellspacing="0" border="0">

    16. 

  16. 				<tr>

    17. 

  17. 					<td class="Header" colspan="3" align="left">&nbsp;Personnel</td>

    18. 

  18. 				</tr>

    19. 

  19. 				<%	rsPersonnel.Open "SELECT * FROM Contact_Us_Personnel ORDER BY Sort Asc" , cnnMain, 3

    20. 

  20. 					Do while not rsPersonnel.EOF %>

    21. 

  21. 				<tr>

    22. 

  22. 					<td colspan="3"><p><br>

    23. 

  23. 						<table cellpadding="5" cellspacing="3" border="0">

    24. 

  24. 							<tr>

    25. 

  25. 								<td align="left" class="SubHeader">Name</td>

    26. 

  26. 								<td align="left" class="ContactInfo"><%=rsPersonnel("Name")%></td>

    27. 

  27. 							</tr>

    28. 

  28. 							<tr>

    29. 

  29. 								<td align="left" class="SubHeader">Title</td>

    30. 

  30. 								<td align="left"  class="ContactInfo"><%=rsPersonnel("Title")%></td>

    31. 

  31. 							</tr>

    32. 

  32. 							<tr>

    33. 

  33. 								<td align="left" class="SubHeader">E-Mail</td>

    34. 

  34. 								<td align="left"  class="ContactInfo"><a href="mailto:<%=rsPersonnel("Email")%>?subject=BCFPD Web Site: Contact Us"><%=rsPersonnel("Email")%></a></td>

    35. 

  35. 							</tr>

    36. 

  36. 							<tr>

    37. 

  37. 								<td align="left"  valign="top" class="SubHeader">Responsibilities</td>

    38. 

  38. 								<td align="left"   class="ContactInfo"><%=rsPersonnel("Responsibilities")%></td>

    39. 

  39. 							</tr>

    40. 

  40. 						</table>

    41. 

  41. 					</td>

    42. 

  42. 				</tr>

    43. 

  43. 			<% rsPersonnel.MoveNext

    44. 

  44. 				   Loop

    45. 

  45. 				   rsPersonnel.Close 

    46. 

  46. 				   Set rsPersonnel = nothing %>

    47. 

  47. 				<tr>

    48. 

  48. 					<td>&nbsp;</td>

    49. 

  49. 				</tr>

    50. 

  50. 				<tr>

    51. 

  51. 					<td class="Header" colspan="3" align="left">&nbsp;Stations</td>

    52. 

  52. 				</tr>

    53. 

  53. 				<tr>

    54. 

  54. 					<td colspan="3">&nbsp;</td>

    55. 

  55. 				</tr>

    56. 

  56. 				<tr>

    57. 

  57. 					<td width="25%" class="SubHeader">Name</td>

    58. 

  58. 					<td width="25%"  class="SubHeader">Address</td>

    59. 

  59. 					<td width="25%"  class="SubHeader">Additonal Info</td>

    60. 

  60. 				</tr>

    61. 

  61. 				<tr>

    62. 

  62. 					<td colspan="3">&nbsp;</td>

    63. 

  63. 				</tr>

    64. 

  64. 				<% 	rsStations.Open "SELECT * FROM Contact_Us_Stations ORDER BY Sort Asc" , cnnMain, 3

    65. 

  65. 					Do while not rsStations.EOF %>

    66. 

  66. 				<tr>

    67. 

  67. 					<td valign="top" class="ContactInfo"><%=rsStations("Name")%></td>

    68. 

  68. 					<td valign="top"  class="ContactInfo"><%=rsStations("Address1")%>

    69. 

  69. 						<%	if rsStations("Address2") <> "" then

    70. 

  70. 								Response.Write("<br>" & rsStations("Address2"))

    71. 

  71. 							end if

    72. 

  72. 							if rsStations("City") <> "" then

    73. 

  73. 								Response.Write("<br>" & rsStations("City"))

    74. 

  74. 							end if

    75. 

  75. 							if rsStations("State") <> "" then

    76. 

  76. 								Response.Write("<br>" & rsStations("State"))

    77. 

  77. 							end if

    78. 

  78. 							if rsStations("Zip") <> "" then

    79. 

  79. 								Response.Write("<br>" & rsStations("Zip"))

    80. 

  80. 							end if %>

    81. 

  81. 					</td>

    82. 

  82. 					<td valign="top"  class="ContactInfo"><%=rsStations("Info")%></td>

    83. 

  83. 				</tr>

    84. 

  84. 				<tr>

    85. 

  85. 					<td colspan="3">&nbsp;</td>

    86. 

  86. 				</tr>

    87. 

  87. 				<% rsStations.MoveNext

    88. 

  88. 				   Loop

    89. 

  89. 				   rsStations.Close 

    90. 

  90. 				   Set rsStations = nothing %>

    91. 

  91. 			</table>

    92. 

  92. 		</td>

    93. 

  93. 	</tr>

    94. 

  94. </table>

    95. 

  95. <!--#include virtual="/include/templates/bottom.asa"-->
    96.