si ce l'ho fatta in questo modo
con replace ho tolto la scritta kb

pippo=0

Do while not rs.eof
if rs("table_type") = "TABLE" then


response.write "<tr><td>" & rs("table_name") & "</td>"

' calcolo spazio occupato
set rsC = conn.Execute("EXEC sp_spaceused " & rs("table_name"))



response.write "<td>" & rsC("data") & "</td>"
response.write "<td>" & rsC("rows") & "</td></tr>"

newvar=replace(rsC("data"),"KB","")
pippo=pippo+newvar