controllo su estensione per l'upload

[andy_s]

ciao a tutti
sto facendo un controllo sulla estensione di un file per l'upload

strestensione = right(filename, 3) 
If strestensione = "pdf" & OR & = "jpg" then 
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(("../fpdb/")&cartella)&"\"&filename)
 
For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
else 
errore = ("Mi dispiace ma il tipo di file che vuoi uplodare non è consentito!") 

end if 
......
 if errore = false then
                  response.write ("Il file " &filename&" è stato uplodato con successo
 "&vbcrlf&" E' stato salvato nella cartella "&cartella&" [/b]</font></p><p align=""center""> "&vbcrlf&" <font size=""2"" face=""Tahoma, Verdana, Arial, SansSerif""> "&vbcrlf&" [url=""]Torna indietro[/url]</font></p>" &vbcrlf)
                 
                  else 
                  response.write ("Mi dispiace ma il tipo di file che vuoi uplodare non è consentito,
oppure non avevi selezionato niente!


 "&vbcrlf&" <font size=""2"" face=""Tahoma, Verdana, Arial, SansSerif"">[url=""]Torna indietro[/url]</font></p>")
                   end if 

il fatto è che non mi da ne errore ne che è stato uploadato
mi compare la pagina completamente bianca

perchè? dov'è l'errore

ovviamente se metto solo un controllo su pdf o su jpg funziona

ciao

[Roby_72]

If strestensione = "pdf" OR strestensione = "jpg" then


Roby

[andy_s]

Perfetto
grazie mille Roby_72



ciao