<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '####################################################################### '######### Modify the text below ###################################### '####################################################################### ' The first 3 constants are commented to explain what they are for. ' The rest except for the last 4 should be fairly self explanatory. ' Not all constants need to be filled out. Any constants that are empty ("") ' will be ignored. For example Monica's tank does not have a sump so txtSump is left ' as "" so the server skips that section of the code when the html file is created. const member = "PlumberDude" 'Name of the directory in the Gallery directory const memberfile = "PlumberDude.asp" 'Name of this file. const txtTitle = "plumberdude's Beautiful SPS Reef " 'This is the header for the page and also the const txtTank = "180 gallon all glass with 2"" overflow and 1 1/2"" closed loop; Stand & Canopy: Knotty Alder" const txtSump = "40 gallon breeder" const txtFlow = "Closed Loop pump: Reeflo Dart, Return pump: Blueline 55; Two 1/2"" sea swirls on return line & One 3/4 sea swirl with three 3/4"" loclines on closed loop." const txtFishes = "3 Blue Hippo tangs, Orange shoulder, Purple tang, 2 Lyretail anthias, 2 Clowns, Sixline wrasse, Cleaner goby, Goldenhead goby, & Sargassum trigger" const txtCorals = "" const txtOtherLivestock = "" const txtFiltration = "" const txtLighting = "Three 250 watt radium metal halides with coralvue electronic ballasts and lumenmax elite reflectors. Four 160 watt superactinic 6' VHO's with URI A4+ electronic ballasts " const txtWater = "30gpd RO/DI with auto top off plumbed to the sump. Water changes: 30 gallons once a month with Reef Crystals" const txtAdditives = "Litermeter 3 and milwuakee ph controller" const txtFeeding = "" const txtEquipment = "Calcium reactor: Deltec PF501, Skimmer: Pacific coast PS 3000, Chiller: Sealine SL300A, Dosing: Litermeter 3 and milwuakee ph controller " const txtParameters = "1.027 SG" ' I added the ability to add 2 more images below the slide show. I usually use these for ' before and after pictures. const pic1 = "" 'File name of the image to be displayed under the slide show. Use "" if you do not want any image const pic1Caption = "" 'Caption to display under Pic1 const pic2 = "" 'File name of the image to be displayed under the Pic1's caption. Use "" if you do not want any image const pic2Caption = "" 'Caption to display under Pic1 '####################################################################### dim ilistdir %> <title><%=txtTitle%>

<%=txtTitle%>

<%If txtTank <> "" then%> <% End if If txtSump <> "" then %> <% End if If txtWater <> "" then %> <% End if If txtFlow <> "" then %> <% End if If txtFishes <> "" then %> <% End if If txtCorals <> "" then %> <% End if If txtOtherLivestock <> "" then %> <% End if If txtFiltration <> "" then %> <% End if If txtLighting <> "" then %> <% End if If txtWater <> "" then %> <% End if If txtAdditives <> "" then %> <% End if If txtFeeding <> "" then %> <% End if If txtEquipment <> "" then %> <% End if If txtParameters <> "" then %> <% End if %>
Tank:  <%=txtTank%>
Sump:  <%=txtSump%>
Water:  <%=txtWater%>
Flow:  <%=txtFlow%>
Fishes:  <%=txtFishes%>
Corals:  <%=txtCorals%>
Other Livestock:  <%=txtOtherLivestock%>
Filtration:  <%=txtFiltration%>
Lighting:  <%=txtLighting%>
Water:  <%=txtWater%>
Additives:  <%=txtAdditives%>
Feeding:  <%=txtFeeding%>
Misc Equipment:  <%=txtEquipment%>
Water Parameters:  <%=txtParameters%>