<%
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
%>
replica rolex rolex watches prices red pumps red bottom used rolex vintage rolex red bottom shoes red heels