<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_BinkyII_STRING MM_editCmd.CommandText = "INSERT INTO Comments (UserName, PageID, UserID, [Comment]) VALUES (?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("hfUsername")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("hfPageID"), Request.Form("hfPageID"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("hfUserID"), Request.Form("hfUserID"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 203, 1, 1073741823, Request.Form("ComArea")) ' adLongVarWChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "AquaPike.htm" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim rsUsers__MMColParam rsUsers__MMColParam = "1" If (Session("MM_Username") <> "") Then rsUsers__MMColParam = Session("MM_Username") End If %> <% Dim rsUsers Dim rsUsers_cmd Dim rsUsers_numRows Set rsUsers_cmd = Server.CreateObject ("ADODB.Command") rsUsers_cmd.ActiveConnection = MM_BinkyII_STRING rsUsers_cmd.CommandText = "SELECT * FROM Users WHERE UserName = ?" rsUsers_cmd.Prepared = true rsUsers_cmd.Parameters.Append rsUsers_cmd.CreateParameter("param1", 200, 1, 50, rsUsers__MMColParam) ' adVarChar Set rsUsers = rsUsers_cmd.Execute rsUsers_numRows = 0 %> <% Dim rsComments__MMColParam rsComments__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then rsComments__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsComments Dim rsComments_cmd Dim rsComments_numRows Set rsComments_cmd = Server.CreateObject ("ADODB.Command") rsComments_cmd.ActiveConnection = MM_BinkyII_STRING rsComments_cmd.CommandText = "SELECT * FROM Comments WHERE PageID = ? ORDER BY TimeKey ASC" rsComments_cmd.Prepared = true rsComments_cmd.Parameters.Append rsComments_cmd.CreateParameter("param1", 5, 1, -1, rsComments__MMColParam) ' adDouble Set rsComments = rsComments_cmd.Execute rsComments_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsComments_numRows = rsComments_numRows + Repeat1__numRows %> AquaTube at RalphJStone.com
The AquaPike is a tube for fish to swim between two tanks. It is made from three inch clear PVC tubing. The clear tubing is moderately expensive; three inch tubing per foot is about $14, four inch tubing per foot is about $20. Four inch tubing would be better but the opening on the tanks would not fit four inch tubing without major reworking. The elbows are just $3 white elbows from your hardware store. The three inch clear elbow would cost about $93 and the four inch clear elbow would be about $167. I chose to use the cheaper white elbows.
The fish love it...well the 'smart' fish, anyway. The 'dumb' fish don't really want anything to do with it and the bottom dwellers don't ever really go there, either.The best fish for this seems to be gouramis. They just seem to understand. The fish on the left is Opie (opaline) and Opie practically lives in the tube. He often acts like a troll chasing the other fish out of the tube.
This is the larger of the two tanks. It is a 90 gallon tank. The 'cool' fish live in here. There are several varieties of Gouramis and two really great fish we call Striper and mini-Striper (cuz they are striped). They are not to be seen now; they are hiding. Striper loves the log. The water in the AquaPike is kept circulating all the time by the pump in the back center of this tank. It flows 60 gallons per hour thru a half-inch tube from this tank into the other tank. If the water in the tube was not kept flowing the tube would get icky inside.
This is a smaller tank - 38 gallons. The 'dumb' fish live in here. There are 3 danios and 3 albino tiger barbs that I have had forever...(since the tanks were started). They just keep on keepin' on. They don't ever use the AquaPike. There are also some sharks that do use the AquaPike. Sharks and Gouramis like the AquaPike the most.
How do you get the water in the tube...and why does it stay up there? That had to be what you were wanting to ask. Well, the water gets up there by removing the air. There is a small valve tapped into the left elbow. A tube is inserted and the air is...sucked out...literally. It takes more than one go but between breaths you just close the valve again. I left one end of the bracket which holds the tube loose so that the tube can be lowered on one end. This makes all the air flow to the upper side of the tube, exactly where the valve is. Why does the water stay up there? Thru the magic of physics, of course. Nature is a whore with a vacuum.
Here is the tube angled for air removal. I shove the white tub of cold cream under the middle to relieve some of the weight stress. The entire tube is just hanging on that stereo shelf.
I will attempt to get more pictures of my fish up, later...at least the BEST fish, anyway.
There are other websites discussing such a tube and naming it other things. Waterbridge is a site using a PVC tube, also, much like what I have done. Fish Highway is a different construction technique using acrylic plate. It looks great but I question how much work it must take to get the sections to seal perfectly; with PVC tubing it is quite simple to guarantee a perfect seal. Fishie Hi-Rise describes a different sort of thing entirely but is still related to fish travel.

RalphJStone.com - eMail Ralph
Articles - Services - Art - Music

AquaPike - TVEmpire - VertiBird ReConnect - RobotsAreAmongUs - Ralph'sDenOfMusicality - Try-Perfecta Food Review - RoofNuts

<% rsUsers.Close() Set rsUsers = Nothing %> <% rsComments.Close() Set rsComments = Nothing %>