upload kun billeder og tjek om der bliver upload'et

har denne kode til et upload.. og det virker fint.. skal bare have lavet så man kun kan uploade billeder (.gif,.jpg,.jpeg,.bmp) og den skal tjekke om der er en fil, at upload for.. hvis man bare trykker på "upload"knappen så laver den filen bare tøm....

\p+<%mode = request.QueryString("mode")
if mode = "" then%>
<form action="?mode=up" method="post" enctype="multipart/form-data">
<input type="file" size=40 name="File1"><br>
<input type="submit" value="Upload">
</form>
<%
elseif mode = "up" then

Dim objUpload

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

objUpload.MaxFileSize = 100000

On Error Resume Next

Dim strUploadPath

strUploadPath = "/upload/"

Dim intFileCount
intFileCount = 0
Session("idnummer") = "DanGer"

objUpload.Upload
' & file.FileExt
for each file in objUpload.files
  file.SaveAs Server.MapPath(Lcase(strUploadPath & Session("idnummer") & ".gif"))
  intFileCount = intFileCount + 1
next
'objUpload.SaveAs Server.MapPath(strUploadPath & "Danger." & file.FileExt)

If Err Then
Response.Write "Der opstod en fejl :<br>" & vbCrLf
Response.Write Err.Description
Else
Response.Write "fil er uploadet.<br>" & vbCrLf
End If

On Error Goto 0

Set objUpload = Nothing

end if
%>