<% Dim strSQL Dim intNumeroCat, intNumeroCatColonna strSQL = "SELECT nome, cod FROM TCategoria WHERE cod_padre = (select cod from tcategoria where nome = 'root') AND nome != 'root' ORDER BY nome" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open strSQL, conn, "3", "3" 'Set rs = conn.Execute(strSQL) intNumeroCat = rs.RecordCount intNumeroCatColonna = Int(intNumeroCat/2)-1 'response.write "
numerocat "&intNumeroCat 'response.write "
NumeroCatColonna "&intNumeroCatColonna %>

Entra in Paperweb.biz              Enter in Paperweb