macocz-design-blog

Michael Bublé Tribute

Tue, 27 Apr 2010 07:26:27 GMT

A simple website to promote my client as the UK's number 1 Michael Bublé Tribute Act. Ian Gallagher spends hours perfecting the art of the modern tribute act and now has a wide following.

The site uses clean markup/css and validates to W3C standards.

Michael Bublé Tribute

Create a randomly generated bg color using VB code

Wed, 06 Jan 2010 13:18:11 GMT

This is just a muse nothing serious and I doubt whether it would be the method that most would choose.

Turn the body html tag into a server side control with <body id = “PageBody”>

In the code behind add Imports System.Drawing at the top of the page and then the following script under the page load event:

Dim redColor As Integer

Dim greenColor As Integer

Dim blueColor As Integer

Dim surpriseColor As New Random

redColor = surpriseColor.Next(0, 255)

greenColor = surpriseColor.Next(0, 255)

blueColor = surpriseColor.Next(0, 255)

PageBody.Attributes.Add("bgColor", Color.FromArgb _
(redColor, greenColor, blueColor).ToArgb)

Now every time the page is refreshed a new background colour is generated.

DataList Pagination

Sun, 03 Jan 2010 22:32:08 GMT

By default the DataList control does not have built in paging capability, however we can get round this by using the PagedDataSource class and some code. This is all well documented on the Net, my problem however, was using:

         FirstPage.Enabled = Not pagedData.IsFirstPage
        PrevPage.Enabled = Not pagedData.IsFirstPage
        NextPage.Enabled = Not pagedData.IsLastPage
        LastPage.Enabled = Not pagedData.IsLastPage

Caused the site to fail W3C validation

A work around that worked for me:

If Not pagedData.IsFirstPage Then
            FirstPage.Visible = True
        Else
            FirstPage.OnClientClick = "return false"
            FirstPage.ForeColor = Drawing.Color.Gray
            FirstPage.Attributes.Add("onmouseover", "this.className='hover'")
        End If

        If Not pagedData.IsFirstPage Then
            PrevPage.Visible = True
        Else
            PrevPage.OnClientClick = "return false"
            PrevPage.ForeColor = Drawing.Color.Gray
            PrevPage.Attributes.Add("onmouseover", "this.className='hover'")
        End If
        If Not pagedData.IsLastPage Then
            NextPage.Visible = True
        Else
            NextPage.OnClientClick = "return false"
            NextPage.ForeColor = Drawing.Color.Gray
            NextPage.Attributes.Add("onmouseover", "this.className='hover'")
        End If
        If Not pagedData.IsLastPage Then
            LastPage.Visible = True
        Else
            LastPage.OnClientClick = "return false"
            LastPage.ForeColor = Drawing.Color.Gray
            LastPage.Attributes.Add("onmouseover", "this.className='hover'")
        End If

Studio Eleven Art

Sun, 03 Jan 2010 21:40:28 GMT

A recent project, this bespoke CMS website is based on the 3-layer concept: presentaion, buiness logic and database. The site validates to XHTML 1.0 Transitional and CSS level 2.1 and has been tested against cross browser compatibility and is also optimised for SEO.

http://www.studioelevenart.com

Romford Open 2009

Sat, 07 Mar 2009 07:52:53 GMT

My daughter is placed first in her category at the Romford Open this year.