Ordinare alfabeticamente con lettere

[sirsly]

Ciao a tutti!
Premetto che so poco di ASP...ma ci provo.
Ho una pagina che dovrebbe restituire a video le società presenti nel database; a me piacerebbe che fossero in ordine alfabetico (...e fin qui ok) ma che si presentassero così per es.:

A
Albergo xyz
Albergo www

B
Barca
Bell

ecc...

Praticamente con le lettere dell'alfabeto iniziali.

Uso il seguente codice:

<%@ Language=VBScript %>
<%
   Option Explicit
   Response.ExpiresAbsolute=Now()
%>

<H1>Le Societ&agrave</H1>



<%
   Dim conn
   Dim rs
   Dim sSql
   
   'Imposto la connessione
   Set conn = Server.CreateObject("ADODB.Connection")
   conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" + Server.MapPath("/mdb-database/societa.mdb")
   
   'Imposto la stringa SQL di selezione dati Ordinando per società
   sSql = "SELECT * FROM societa ORDER BY soc"
   
   'Creo e apro il Set di Record
   Set rs = Server.CreateObject("ADODB.Recordset")
   rs.Open sSql, conn, 3, 3
%>
   <%
      'Controllo se non c'e' nessun dato (EOF=End Of File)
      If rs.EOF=True Then
   %>
   
      Nessun record trovato
   
   <%
      Else
         Do Until rs.EOF
   %>
     		
        " onclick="return GB_show('<%=rs.Fields("soc").Value%>', '/soc/stampa.asp?id=<%=rs.Fields("id").Value%>', 550, 550)"><%=rs.Fields("soc").Value%> 

      
   <%
            rs.MoveNext 
         Loop
      End If
      
      'Chiudo il recordset e libero la memoria
      rs.Close
      Set rs = Nothing
      'Chiudo la connessione al database e libero la memoria
      conn.Close 
      Set conn = Nothing
   %>

Ho provato a mettere anche questo codice:

<%
'Cerco di mettere in ordine alfabetico
Dim ThisLetter, TestLetter, TestName
ThisLetter = ""
%>
<%
'Start of Repeat Region 
TestName = rs.fields.Item("soc").value
TestLetter = Left(TestName,1)

If ThisLetter <> TestLetter then
response.write ("

") & TestLetter
End if
Response.Write ("
") ' volendo posso rimettere il nome della società (& TestName)

'End of Repeat Region
%>

Ma per ogni record mi mette una lettera...

Potreste per cortesia aiutarmi.

Grazie mille!

[optime]

il ccheck dell'iniziale lo devi fare *dentro* al ciclo di stampa...

[sirsly]

Scusa la mia ignoranza...ma potresti spiegare come ad un bimbo di 3 anni

[optime]

un bimbo di 3 anni non capirebbe.... del resto un bimbo di tre anni non avrebbe potuto scrivere quel codice... riesci a individuare il ciclo do...loop di stampa (a video) del recordset?

[sirsly]

Mi fai sentire come quando ero alla lavagna col prof. alle spalle

Intendi questo ?

<%
      Else
         Do Until rs.EOF
   %>
     		
        " onclick="return GB_show('<%=rs.Fields("soc").Value%>', '/soc/stampa.asp?id=<%=rs.Fields("id").Value%>', 550, 550)"><%=rs.Fields("soc").Value%> 

      
   <%
            rs.MoveNext 
         Loop
      End If

[optime]

brava! *dentro* al ciclo metti la logica dell'iniziale

[sirsly]

Ciao Optime, io avrei fatto così:

<%
      Else
         Do Until rs.EOF
   %>
 <div class="elenco">  
<%
'Cerco di mettere in ordine alfabetico
Dim ThisLetter, TestLetter, TestName
ThisLetter = ""
%>
<%
'Start of Repeat Region 
TestName = rs.fields.Item("soc").value
TestLetter = Left(TestName,1)

If ThisLetter <> TestLetter then
response.write ("

") & TestLetter
ThisLetter = TestLetter
End if
Response.Write ("
") ' volendo posso rimettere il nome della società (& TestName)

'End of Repeat Region
%>
</div> 
   <div class="societa">
     		
        " onclick="return GB_show('<%=rs.Fields("soc").Value%>', '/soc/stampa.asp?id=<%=rs.Fields("id").Value%>', 550, 550)"><%=rs.Fields("soc").Value%> 
        </div>
        	

      
   <%
            rs.MoveNext 
         Loop
      End If

Ma a video, per ogni record, mi mette una lettera iniziale . E' possibile metterne una sola, e poi i record di quella lettera?

Scusa la mia ignoranza e se approfitto della tua pazienza!

[optime]

corretto! azzeri la variabile che contiene l'iniziale ad ogni giro... *quella* parte lì va fuori dal ciclo