individuare estensione file e mostrare icona

[xGioweb]

Ciao a tutti
vorrei individuare all'interno di un campo specifico di una tabella l'estensione del file caricato e mostrare nell'output ASP il nome del file preceduto dall'icona del programma.

Mi potete dare qualche spunto. Io avrei pensato alla funzione instr o right ma non riesco a cavarci molto dai miei tentativi e quindi arranco

Questo codice che ho scritto in effetti mi mostra prima del nome del file l'icona PDF.png ma assolutamente non identifica l'estensione del file uplodato.

if allegato<> " " then
allegato= "<img src=images/pdf.png border='0' align='absmiddle' alt='PDF' title='PDF' >" & allegato
ElseIf allegato<> "" then
allegato= ""
end if 

Spero di essere stato chiaro
Grazie