Dele streng efter x tegn, så begge halvdele kan bruges

Function CutString (str, intCut)
  if len(str) > intCut then
    posstart = InStrRev(str, " ", intCut)
    if (posstart <> 0) then
      CutString = Right(str, len(str) - posstart)
      Exit Function
    end if
  end if
  CutString = str
End function

jeg kan ikke få det til at virke, når jeg skal have en funktion til at vise de første tegn, og en anden til at vise de sidste.
Jeg har nu to næsten ens funktioner, og selvom jeg prøver at lave lidt om på navnene af variablerne i dem, vil de ikke.
Kan du ikke give et eksempel hvor begge funktioner er, samt et eksempel på hvordan de kaldes?

Function CutStringRest(str, intCut)
  if len(str) > intCut then
    posstart = InStrRev(str, " ", intCut)
    if (posstart <> 0) then
      CutStringRest = Right(str, len(str) - posstart)
      Exit Function
    end if
  end if
  CutStringRest = str
End function

Function CutString (str, intCut)
  if len(str) > intCut then
    posstart = InStrRev(str, " ", intCut)
    if posstart <> 0 then
      CutString = Left(str, posstart)
      Exit Function
    end if
  end if
  CutString = str
End function

strOpdel = "Denne streng skal opdeles ved position 15"
strengIndtilSkaering = CutString(strOpdel,15)
strengEfterSkaering = CutStringRest(strOpdel,15)

Det virker ikke.
Den skriver absolut ingenting ud:

Function CutStringRest(str, intCut)
  if len(str) > intCut then
    posstart = InStrRev(str, " ", intCut)
    if (posstart <> 0) then
      CutStringRest = Right(str, len(str) - posstart)
      Exit Function
    end if
  end if
  CutStringRest = str
End function

Function CutString (str, intCut)
  if len(str) > intCut then
    posstart = InStrRev(str, " ", intCut)
    if posstart <> 0 then
      CutString = Left(str, posstart)
      Exit Function
    end if
  end if
  CutString = str
End function

strOpdel = rs("RegionBeskrivelse")
strengIndtilSkaering = CutString(strOpdel,320)
strengEfterSkaering = CutStringRest(strOpdel,320)

kaldes med:
Response.Write strengIndtilSkaering
og
Response.Write strengEfterSkaering

Jeg har lige testet det og det fungerer fint. Det må være noget med dine data eller måde du bruger det. Kan du ikke vise det kode hvori det indgår og evt. prøve at skrive dit datagrundlag ud (altså det der ligger i rs("RegionsBeskrivelse"))...

Man kan dog argumentere for at CutStringRest nok ikke skal returnere hele strengen hvis den er kortere end skæringspunktet, men det tror jeg nu ikke er problemet, for så ville der bare komme for meget tekste og ikke som nu, ingen. Den skal nok se således ud:

Function CutStringRest(str, intCut)
  if len(str) > intCut then
    posstart = InStrRev(str, " ", intCut)
    if (posstart <> 0) then
      CutStringRest = Right(str, len(str) - posstart)
      Exit Function
    end if
  end if
  CutStringRest = ""
End function

Slukker!