Websites went down.

It appears that several of my domains ended up with infected pages. I do not know how that happened and neither does Dreamhost. This is currently my second fresh install. What a pain in the buttocks this was. 

Hopefully, this will be the last time!  I changed my password for the second time, plus I added an additional FTP user to separate the most important sites in an effort to contain any future infections. 

EDIT: On a positive note, I updated WordPress and it appears to be working well. 

Infected websites suck!


Yet another year is about to pass, as such, so should the old look. I was going for a “paper” look, to match the “theme” I have for my main site. Doesn’t really match, but it will work.  It is my intention to write more in my blog in 2012.

I really hope 2012 to be a prosperous year for our family. We certainly need some prosperity! I will go back to school next month getting my computer certifications. North West Florida State College is my weapon of choice.  I should come out with Comptia A+, Security+, Linux+, and Network+ and a College Certificate in IT Technology.

After putting it off, for a while, I finally decided to re-do my website.  No templates, no Front Page… just me and some html & css.  Except for the Javascript that I used to switch styles.  Turned out decent.  Still working on it though, need to alter the background on a few, and get a good color scheme down.  Feel free to let me know what you think.

Trying to AutoFormat an Excel Spreadsheet…


    Selection.Delete Shift:=xlToLeft
    Cells.Replace What:="END OF REPORT", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    Selection.Cut Destination:=Range("H1:P1")
    Selection.Cut Destination:=Range("H3:P3")
' the rest was cut out
    ' Delete Blank Rows Macro
    On Error Resume Next


    ' auto_width Macro

' COLOR Macro
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual   'pre XL97 xlManual
  Dim Rng As Range, ix As Long
  Set Rng = Intersect(Range("P:P"), ActiveSheet.UsedRange)
  For ix = Rng.Count To 1 Step -1
      If Trim(Replace(Rng.Item(ix).Text, Chr(160), Chr(32))) = "" Then
      End If
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .COLOR = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .COLOR = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

Here is the full code, in txt format.

Greetings all…

Once again, it’s been a while since I’ve posted anything.  I’ve been staying extremely busy.  I’m taking 2 more classes, as I’ve mentioned before and the Algebra class is whoopin’ my buttocks.  I thought I was good in math but guess not that  good.  Alot has happened since my last post.  I’m also working on another website for the LRS Spouse Group.  I’ve almost got template done, just need to finish it up and add content, then troubleshoot any errors.

First of all, I recently got rid of my Pajero.  Guy payed me 10,000 yen ($100) and drove it away to a junk yard.  Same week, I found a 1992 Toyota Surf (4Runner) and paid $1500 for it.  It’s an awesome vehicle, but the v6 uses more fuel than my previous 4 cylinder diesel.

Our new Baby Audrey is growing like a weed.  She’s over 1 month now and is eating more, pooping more, and sometimes crying more.  She was recently diagnosed with craniosynostosis, which is where (basically) the skull grows back too fast and causes deformity.  Now, luckily Audrey’s condition isn’t too bad, where it affects her brain, but still requires surgery.  I have an appointment in Trippler Army Medical Center in Hawaii in July.  The Government only pays for one person to fly over, which is going to be me, so if my wife goes, we’re going to have to pay for it out of our pocket.  I can’t really afford it, but I’m going to try my best to get this done.  Enough abou that.

Planning an offroad adventure / camping trip this weekend… Just an over nighter in the mountains.  Can’t wait to get out there.  The kids are really looking forward to going, and to be honest, so am I. 

Enough for now.  I’m tired of typing…


HAPPY MARCH!  March is the month of my anniversary.  10 years?  I can’t believe it.  someone has put up with me for 10 years… or I have put up with my wife for 10 years.  Man… time flies when you’re having fun…  So be sure to wish us a Happy Anniversary.  I bought Cathy a nice diamond ring, I figured since I’ve never really bought her a diamond, I would do it now.  I certainly couldn’t afford a diamond ring when we first got married.  Anyway, March 3rd was our Anniversary.  Enough about that.

Changed the theme again, for the blog.  I’m sure you’ve already noticed.  I’m working on changing the looks of my main site as well.  I changed my wifes sewing site around already.  Let me know what you think; I made it look all perty with butterflies and such.  I’m thinking about going with a darker look on my main site.  Anyway, it will be about a week or so before you see any changes, if any.  I have to get off my lazy butt and actually write some code… but, don’t feel like it right now.  That’s ok, I’ve already accomplished the easy part by talking about it. 

That will be enough for now.