estrarre cio' che sta prima del punto

[nextart]

ciao a tutti... le stringhe!!!!!
str=arr(k) //contiene il nome di un file variabile (foto32.jpeg)
nome= Left(str, 6)
Response.write nome // mostra "foto32" che e' quello che vorrei ottenere in maniera dinamica.

ma io non so quanto e' lungo il nome, avrei bisogno di sapere come inserire nella variabile nome tutto quello che sta prima dell'estensione ovvero prima del "."

ho provato a cercare nel forum ma

grazie

[Mems]

str = arr(k)
if inStr(str,".") > 0 then
subStr = split(str,".")
nome = subStr(0)
response.write nome
end if