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

[cavicchiandrea]

Una cosa del genere

<%
Allegato = "miofile.PDF"
if right(Allegato,3) = "PDF" Then Response.write "<img src=images/pdf.png border='0' align='absmiddle' alt='PDF' title='PDF' >"
%> 

[Santino83_02]

ma ti serve solo per i pdf o per tutti? se non erro per sapere l'estensione di un file:

dim ext, file
file="miofile.ext"

ext=right(file,instrrev(".",file)-1)

response.write ext

[xGioweb]

Originariamente inviato da cavicchiandrea
Una cosa del genere

<%
Allegato = "miofile.PDF"
if right(Allegato,3) = "PDF" Then Response.write "<img src=images/pdf.png border='0' align='absmiddle' alt='PDF' title='PDF' >"
%> 

Grazie Andrea per la risposta ma non ho capito una cosa, miofile.pdf è un dato variabile nel senso che non so se nella stringa c'è un pdf o un zip o un doc allora ho provato con questo codice ma comunque non funziona.

    Allegato  = Allegato 
    if right(Allegato,3) = "pdf" Then
    Response.write "<img src=images/pdf.png>" & Allegato 
    ElseIf right(Allegato,3) = "xls" Then
    Response.write "<img src=images/xls.png>" & Allegato 
    ElseIf right(Allegato,3) = "doc" Then
    Response.write "<img src=images/doc.png>" & Allegato 
    ElseIf right(Allegato,3) = "zip" Then
    Response.write "<img src=images/zip.png>" & Allegato 
    end if 

ma ti serve solo per i pdf o per tutti? se non erro per sapere l'estensione di un file:

Ciao Santino
mentre rispondevo ad Andrea ho letto la tua risposta. Si mi serve per tutti le estensioni.

[Roby_72]

if then
elseif then
elseif then
elseif then
else
end if

Roby

[xGioweb]

scusami roby vuoi dire che ho sbagliato la sintassi?

[xGioweb]

Grazie Andrea
con il tuo esempio ho risolto brillantemente

if right(allegato1,3) = "pdf" Then
allegato1= "<img src=images/pdf.png>" & allegato1
ElseIf right(allegato1,3) = "xls" Then
allegato1= "<img src=images/xls.png>" & allegato1
ElseIf right(allegato1,3) = "doc" Then
allegato1= "<img src=images/doc.png>" & allegato1
ElseIf right(allegato1,3) = "zip" Then
allegato1= "<img src=images/zip.png>" & allegato1
ElseIf right(allegato1,3) = "jpg" Then
allegato1= "<img src=images/jpg.png>" & allegato1
ElseIf right(allegato1,3) = "ppt" Then
allegato1= "<img src=images/ppt.png>" & allegato1
ElseIf right(allegato1,3) = "txt" Then
allegato1= "<img src=images/txt.png>" & allegato1
end if 

mi resta un unico dubbio, devo anche inserire :master: else ?

Grazie a tutti