<%@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 = "Copt.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 = "1" 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 %> Vertibird knock-Off AC Adapter conversion page at RalphJStone.com
Well, here we go. I bought this great mini-helicopter at Wal-Mart for $9.96 a couple of months ago. When I was a kid, there was a kid that lived a mile away (we lived in the country, outside of town). We were good playmates together. He had the best toys..toys I would never get. He was way ahead on Star Trek and I didn't know what that was and he was just one of those best buddies from when you were 3 until 13. We drifted apart then. He ended up brutally murdered in Nashville, the music-row murder. You might have seen about it on television A&E's Cold Case Files Episode: The Hitmakers. Anyway, he had a Vertibird and I never had a Vertibird. In fact, I believe that he had more than one Vertibird, since one had broken and he got another to replace it. NICE, Eh? Regardless, once I saw this little beauty of a toy at Wal-Mart, I realized that it was a very close knock-off of a Vertibird, albeit smaller, and immediately decided to buy it.
This little copter comes in a great box, which I cut so I could store the copter in it. I just cut it around the edges and left it to hinge on one end.
It came with batteries but they were not even good enough to lift the cargo. It would just drag them around but not lift them. I knew that it needed more power and I wasn't about to put new batteries in it just to have them be weak very soon after. I knew it needed an AC adaptor jack.
Here it is on the basement workbench patiently awaiting its conversion to allow it to pull the loving-giving juice from the wall outlets.
Here is the bottom of the unit. Three panels and many screws.
Here are the insides of the unit.
Here is my big box of old AC Adaptors from many things and many years...always handy to have the right adaptor for the job at hand.
I originally picked a 6 volt adaptor, since the copter uses 4x1.5volts...6 volts if you do the math. When I tested it out with the 6 volts, tho, it just wasn't enough. I went with 7.5 volts and now it's the little copter that could...and does!!!
Here's a diagram of the wiring. The adaptor unit I picked up at Radio Shack for about $3. It has a switch in it that is activated when it is plugged in that isolates the wall power from the batteries. That's a great idea so I hooked it up to do that. Otherwise, I suppose the batteries would get power to them and possibly heat or explode.
I used a lan-aware cable from my computer junk and cut off the ends. I hooked it in this end interrupting the flow of the batteries when it is plugged in.
Here is the business end of things, where the power goes into the copter unit. There was just enough room in the control housing to put the adaptor outlet. I put it all back together and ZING!!! it sure goes better'n it ever would with batteries.
There you go...A toy I always wanted and...more power...ooh...ooh...ooh...ugh!!! There are some good websites out there for vertibirds that I feel like mentioning now. Whirly-Bird Central is the best of the bird sites. Someone has done a Chopper Command conversion page. Vertisim is an excellent PC simulation of a VertiBird - That's Incredible!!! Anyway, Thanx, Ralph!!!

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

AquaPike - TVEmpire - VertiBird ReConnect - RobotsAreAmongUs - Ralph's-Den-Of-Musicality - Try-Perfecta Food Review - Ralph-J-FrankenStone - RoofNuts

 

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