controllo file in upload

[lotusnotes]

ciao a tutti
utilizzo lo script di aruba per l'upload dei file, ora vorrei mettere all'interno il controllo sui file che vengono inviati in modo che siano solo jpg e gif.
qualcuno mi aiuta?grazie
il codice è questo.

<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>

[agenti]

usa lo script di BAOL

e usa:

if oUpload.files("ext") <> "jpg" then
'fai quanlcosa
end if

[lotusnotes]

veramente io vorrei mantenere questo script quindi se qualcuno può aiutarmi gliene sarei grato.

[agenti]

if instr(filename,".jpg") or instr(filename,."gif") thne

fai qualcosa

end if

[lotusnotes]

essendo io completamente a digiuno di asp con il tuo suggerimento non so come comportarmi, se fossi esperto di asp forse non avrei avuto bisogno di postare quì.
con
if instr(filename,".jpg") or instr(filename,."gif") thne

fai qualcosa

end if
non so ne che farci, ne dove metterlo e come all'interno del codice
grazie comunque cercherò altrove.

[agenti]

allora buona ricerca...