Kolla contenttype vid uppladdning

Skulle vilja kolla vilken contenttype det är på filer som laddas upp från ett formulär (fälten heter file1-5). Hur kollar man om det är en exe-fil och finns det några fler filer som kan vara skadliga om man laddar upp dom på en server och sedan kör dom? Js-filer?

RED: Lite kod kanske inte skulle skada? :)

Dim objUpload, intCountFiles

Set objUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpload.Upload

Function getRndNr(lowbound,uppbound)
Randomize()
getRndNr = int( ( ( lowbound ) - ( uppbound + 1 ) ) * RND + ( uppbound + 1 ) )
End Function

For each file In objUpload.Files

Dim strRND

For i = 1 to 5
  strRND = strRND & chr( getRndNr( 97, 122 ) )
Next

For i = 1 to 5
  strRND = strRND & getRndNr( 1, 9 )
Next

If not file.IsMissing Then
Dim strFile
strFile = Replace(Replace(Replace(file.FileName," ",""),"'",""),"%","")
strFile = left(strFile,inStr(strFile,".")-1)
file.SaveAs("/files/" & strFile & "_" & strRND & "." & file.FileExt)

'         Response.Write("Name = " & file.Name & "<BR>")
 '        Response.Write("Size = " & file.Size & "<BR>")
  '       Response.Write("FileName = " & file.FileName & "<BR>")
   '      Response.Write("FileExt = " & file.FileExt & "<BR>")
    '     Response.Write("FilePathName = " & file.FilePathName & "<BR>")
     '    Response.Write("ContentType = " & file.ContentType & "<BR>")
      '   Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
       '  Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        ' Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
         'intCount = intCount + 1
intCountFiles = intCountFiles+1
End If
strRND = ""

Next