<% Option Explicit Dim strConnect %> <% Dim objConn, objRS, strSQL Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open strConnect strSQL = "Select * from tblGrupe order by ime" objRS.Open strSQL, objConn 'objRS.Open "tblGrupe", objConn, adOpenForwardOnly, adLockReadOnly, adCmdTable %>

Choose the group which you want to see the data for
The name of a group:	<% 'Loop through the recordset adding each club to the combo box Do While Not objRS.EOF %> "> <%=objRS("ime")%> <% objRS.MoveNext Loop 'Close and dereference database objects objRS.Close Set objRS = Nothing %>