codice:
Dim strTemp
do while not objrs.eof 
If strTemp <> objrs("clienti") Then
response.write "cliente " & objrs("clienti") & "
" 
strTemp = objrs("clienti")
response.write "codice cliente " & objrs("codice cliente") & "
" 
response.write "altro " & objrs("altro") & "
" & "
" 
End If
objrs.movenext 
loop