At hente records vha. alfabetet

hej :)

Jeg har lavet en ordbog/leksikon, som er delt op i bogstaver. Når man trykker på et bogstav, f.eks. S, dukker alle records op hvor rs("bogstav") = "S".

Så mens siden viser alle records der har bogstav = S, så viser en lille menu ved siden af alle records i databasen. Og det er altså en god slat:

<%
    strSQL = "SELECT * FROM ordbog where active = 'y' ORDER BY ord ASC"
    Set rs = Conn.Execute(strSQL)
    Do
        response.write ""& rs("ord") &"<br>"
        rs.MoveNext
    Loop While Not rs.EOF
%>

Jeg vil ha menuen til at vise færre, så jeg tænkte evt. at udskrive tre bogstaver før og tre bogstaver efter S? Dvs. få den til at vise rs("bogstav") = P, Q, R, S, T, U, V

Er der en smart måde at gøre dette på? Den skal selvfølgelig være variabel, så den finder de tre bogstaver før og efter, alt efter hvad værdien af variablen i URL som er request("bogstav").