List Box

[marcdes 0]

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>

[Salgado 4]

set rsMateria = Server.CreateObject("ADODB.Recordset")

rsMateria.ActiveConnection = MM_projecao_STRING

rsMateria.Source = "select * from materia"

rsMateria.CursorType = 0

rsMateria.CursorLocation = 2

rsMateria.LockType = 3

rsMateria.Open()

rsMateria_numRows = 0

 

 

 

<select name="materias" class="verdana_10_preto_n_n" id="materias" >

    <option selected>Todas</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>

E na busca você faria:

If Request("Materias") = "Todas" Then
SQL = "Select * From Tabela;"
Else
SQL = "Select * From Tabela Where campo = '"& request("Materias") &"';"
End If