List Box

Boa noite,

tenho um listbox que está relacionada a uma tabela, onde aparece os dados individuais. como faço para colocar um "todos" para selecionar todos os dados da tabela?

Aqui vai o código:

set rsMateria = Server.CreateObject("ADODB.Recordset")rsMateria.ActiveConnection = MM_projecao_STRINGrsMateria.Source = "select * from materia"rsMateria.CursorType = 0rsMateria.CursorLocation = 2rsMateria.LockType = 3rsMateria.Open()rsMateria_numRows = 0<select name="materias" class="verdana_10_preto_n_n" id="materias" >      <option selected>Materia</option>      <%                                                  While (NOT rsMateria.EOF)                                                  %>      <option value="<%=(rsMateria.Fields.Item("materia").Value)%>" <%if (CStr(rsMateria.Fields.Item("materia").Value) = CStr("0")) then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMateria.Fields.Item("materia").Value)%></option>      <%                                                  rsMateria.MoveNext()                                                  Wend                                                  If (rsMateria.CursorType > 0) Then                                                  rsMateria.MoveFirst                                                  Else                                                  rsMateria.Requery                                                  End If                                                  %>    </select>