Styling af <div>

Når man fører musen hen over en <div></div> på eksempelvis width: 701px, skal hele div'en være et link, og styles i

a:hover {
display: block;
width: 701px;
background-color: #eee;
}

I en tabel har man muligheden for at klare det på flg. måde (jeg ved ikke, om det er den fedeste måde at gøre det på):

<a href="#"><tr>..............</tr></a>

Den synes straks at være mere kringlet, når man forsøger sig med en div.

For at få teksten til at stå pænt i min div, har jeg været nødsaget til at bruge padding-top, for at få skubbet teksten ned i midten. Ligeledes skal teksten starte 20px inde i div'en.

Når man benytter både padding og margin, vil baggrundsfarven i div'en også starte 20px inde ved a:hover. Ved a:hover skal HELE div'en markeres, og ikke 20px inde, hvor teksten også starter.

Man kan vel omgå det ved det at lave en div inde i div'en, så det er den, der laves en a: hover på. Men man kan vel style sig ud af det, uden at skulle lave alle mulige krumspring med ekstra div's etc? Håber I kan hjælpe.



CSS:

.divAvailableGenres1 {
width: 701px;
height: 22px;
padding: 4px 0px 0px 19px;
background-color: #e7e7e7;
}
.divAvailableGenres2 {
width: 701px;
height: 22px;
padding: 4px 0px 0px 19px;
background-color: #f7f7f7;
}



HTML:

<%

    Dim RS, a, b, x

    ConstLenTitle = 60

    Set RS = Conn.Execute("SELECT genreID, genreTitle FROM filmgenre ORDER BY genreTitle ASC")

    a = "divAvailableGenres1"
    b = "divAvailableGenres2"
    x = "divAvailableGenres1"

%>

    ......................................................

            <%

                If Not RS.EOF Then

                    Do Until RS.EOF

            %>

                    <div class="<%=x%>"><a href="/filmlisten/editgenre.asp?genreID=<%=RS("genreID")%>"><%=Server.HTMLEncode(RS("genreTitle"))%></a></div>

            <%

                    If x = a Then
                        x = b
                    ElseIf x = b Then
                        x = a
                    End If

                    RS.Movenext
                    Loop

                End If

                RS.Close
                Set RS = Nothing

            %>