Vis kun-funktion

Hej!

Jeg har en lille database over hvilke dvd'er, vhs'er og cd'er jeg har.
Jeg har på ASP-siden lavet en <form> med en <select>-menu, hvor når man klikker på enten VIS KUN: "VHS", "CD", "HD"  eller "DVD", så istedet for at vise ALLE entries i tabellen, viser den kun det valgte.
Den måde jeg har lavet det på, tror jeg i midlertidigt ikke er den smarteste!
Jeg har lavet sådan en her:

<%
    ElseIf Request.QueryString("mode") = "VHS" Then
    SortBy = Request.QueryString("sort")
    If SortBy = "" Then
      SortBy = "titel"
    End If
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("liste.mdb")
    Set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open "SELECT * FROM Alle WHERE Medie = 'VHS' ORDER BY "& SortBy, Conn, 1, 3
    While Not RS.EOF
        Response.Write "<tr><td class='titel'>&nbsp;"& UCase(RS("Titel")) &"</td><td class='medie'>&nbsp;"& UCase(RS("Medie")) &"&nbsp;</td></tr>"
       
        RS.MoveNext
    Wend
    RS.Close
    Conn.Close
    Set RS = Nothing
    Set Conn = Nothing
%>

-for hvert af de 4 medier jeg har! Det er jo utroligt meget kode til sådan en lille funktion, så jeg ville høre om hvordan man kan optimere den, så det i sidste ende måske også blivere lettere at tilføje nye medier osv?