Originariamente inviato da optime
ubbi, con INSTRREV trovi la posizione dell'ultimo "_". poi con MID estrai il pezzo che ti serve. lascia perdere la SPLIT
Scusa non ho capito come usare la MID in questo caso perchè la stringa non ha una lunghezza fissa: ESEMPIO_590

codice:
<%

varstringa = "DATA_TRATTAMENTO_OLIO_5497"

If InStrRev(varstringa, "_") > 0 Then
      strvarstringa = mid(varstringa,1,3)
         Response.Write strvarstringa  & "
"
End If
   
%>