Inetinfo går amok

Når jeg udføre dette ASP-script, bruger inetinfo.exe ca 98% af alt processor kraften på IIS servere endtil scriptet timer ud. Nogle der kan hjælpe mig til at rette fjele?

Function repstr(ind, rep)
  DIM out, c
  out = \"\"
  c = \"0\"
  Do Until c < rep
    out = out + ind
    c=c+1
  loop
  repstr = out
End Function