while displaying the records ... check if it's ready or repair ... kinda like the way you're (i'm assuming) you're doing it for region ... something like this:
Code:
do while not rs.EOF
strLoc = rs("loc")
strType = MID(strLoc,inStr(strLoc,"-")+1,len(strLoc))
if strType <> prevType then
response.Write(strType & "<br />")
end if
response.Write(the rest of the data)
prevType = strType
rs.MoveNext
loop