Estrazione record

[ffilogamo]

Nella tabella c'è un campo RUOLO.
Questo campo ha, in relazione al record, il valore PRESIDENTE, VICEPRESIDENTE, COMPONENTE.

estraggo i recod con la seguente query:

sSQL="SELECT * FROM Amministrazione WHERE TipoCommissione= '" & Request.QueryString("nome") & "'"

quindi stamp a video i dati:

<%Do while not objRS.Eof
ID=objRS("ID")
Nome=objRS("Nome")
Ruolo=objRS("Ruolo")
%>

<%
If objRS.Fields("Ruolo")<>"" Then
%>
<%=Ruolo%>:

<%
end if
%>
<%
If objRS.Fields("Nome")<>"" Then
%>
<%=Nome%>

<%
end if
%>
<%
objRS.movenext
Loop
%>
<%
objRS.Close
%>

In questo modo mi stampa un risultato simile:

Presidente:
Tizio

Vicepresidente:
Caio

Componente:
Abete

Componente:
Mario

Componente:
Nicola


-----------

Cosi nn mi piace.
A me serve che mi visualizzi cosi:


Presidente:
Tizio

Vicepresidente:
Caio

Componente:
Abete

Mario

Nicola

Come posso fare?

[maximum]

<%
If objRS.Fields("Ruolo")<>"" and objRS.Fields("Ruolo") <> ruolo Then   %>
<%=Ruolo%>: 

<%
end if
%> 
<%
If objRS.Fields("Nome")<>"" Then 
%>
<%=Nome%>

<%
end if
'Conservo il Ruolo
ruolo = objRS.Fields("Ruolo") 
%>
<%
objRS.movenext
Loop
%>
<%
objRS.Close
%>

[ffilogamo]

Originariamente inviato da maximum

<%
If objRS.Fields("Ruolo")<>"" and objRS.Fields("Ruolo") <> ruolo Then   %>
<%=Ruolo%>: 

<%
end if
%> 
<%
If objRS.Fields("Nome")<>"" Then 
%>
<%=Nome%>

<%
end if
'Conservo il Ruolo
ruolo = objRS.Fields("Ruolo") 
%>
<%
objRS.movenext
Loop
%>
<%
objRS.Close
%>

Non mi stampa nessun ruolo

mi esce soli campo NOME :master:

[ffilogamo]

che pirla!

dovevo sostituire ruolo con componente

<%
If objRS.Fields("Ruolo")<>"" and objRS.Fields("Ruolo") <> componente Then %>
<%=Ruolo%>:

<%
end if
%>
<%
If objRS.Fields("Nome")<>"" Then
%>
<%=Nome%>

<%
end if
'Conservo il Ruolo
componente = objRS.Fields("Ruolo")
%>



Grazie