algo rápido (falta definir si siempre seguira ese criterio la cadena)
Código:
<%
'cadena = "u2_the_best_of_1960_1970_front.jpg"
cadena = "u2_dublin_1993_back.jpg"
vec = split(cadena, "_")
Cnt = 0
Veces = 0
For i=0 to Ubound(vec)
On Error Resume Next
Valor = CInt(vec(i))
If Err.number<>0 then Valor = "" End If
If VarType(Valor)=2 Then
If Veces=0 Then Cnt = i End If
Veces = Veces + 1
End If
Next
If Veces=1 Then vec(Cnt) = "(" & vec(Cnt) & ")" End If
NewCad = Join(vec,"_")
Response.Write Cadena & " -> "& NewCad
%>