Hämta endast unika namn från databas

Bygger ett system för biljettbokning i ASP för en teatergrupp. I en databas listas alla föreställningar med namn och datum varje gång de spelas. Jag vill skriva ut namnet på de olika föreställningarna i en lista, så att man kan välja vilken man vill se, och sedan välja datum. Således vill jag inte att namnen ska skrivas ut varje gång de förekommer i databastabellen, utan bara första gången. Försökte lösa det på följande vis med att ladda in namnen i en array, men det gick inte. Förslag?

<%	
Dim showname, showsArray(), arraycount, showexists, i

arraycount = 0
ReDim showsArray(0)
'showexists = false

Do Until RecShows.EOF
showname = RecShows("showname")

For i = 0 to Ubound(showsArray)
If showname = showsArray(i) Then showexists = true
Next

If Not showexists Then
%>
<%=Ubound(showsArray)%><br>
<%=showname%><p>
<%
showsArray(arraycount) = showname

arraycount = arraycount + 1
ReDim showsArray(arraycount)

RecShows.MoveNext
End If
Loop
%>

------------------
/arro