Sortere andre filer fra

Jeg har en form her og jeg vil gerne have at der ikke skal kunne uploades txt filer osv. Kun billedefiler.
Jeg har læst inde på deres hp men kan ikke finde noget omkring dette
Kode

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")

    Upload.OverwriteFiles = False
    On Error Resume Next

    Upload.SetMaxSize 50000, True
    Count = Upload.Save("d:/web/vi2.dk/www/dating/upload")
%>
<HTML>

<head>
<title></title>
</head>

<BODY BGCOLOR="#E9B05C">
<CENTER>

<% If Err <> 0 Then %>

    <H3>

    <FONT SIZE=3 FACE="Arial">
    Følgende fejl opstod:
    </FONT>

</h3>

    <h2><font face="Verdana" size="2">"<% = Err.Description %>"</font></h2>

    <FONT SIZE=2 FACE="Arial">
    Prøv igen - <A HREF="http://www.xxx.dk/xxxxxx/upload/upload.asp"><b>Tryk her</b></A>.
    </FONT>

<% Else %>
<h2>
<FONT SIZE=3 FACE="Arial">
Success, dit billede er nu blevet uploadet.</h2>
<p><b>Det bliver lagt ud når det er valideret.</b>
</FONT>

<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0 width="331">
<TD width="95"><b><font size="3" face="Arial">Billede:</font></b></TD>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<% If Count > 0 Then %>
    <%
    Set File = Upload.Files(1)
    If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then %>


</FONT>
        <TD ALIGN=CENTER width="77">

<FONT SIZE=3 FACE="Arial">
<IMG SRC="<% = File.FileName%>"><BR><% = File.OriginalPath%><BR>
        (<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)


</FONT>
        </TD>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
    <% Else %>


</FONT>
        <TD width="1">

<FONT SIZE=3 FACE="Arial">
<% = File.OriginalPath %>


</FONT>
</TD>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
    <% End If %>
<% Else %>


</FONT>
    <TD width="125">

<FONT SIZE=3 FACE="Arial">
Filen er ikke valgt.


</FONT>
</TD>

<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<% End If %>


</FONT>
<TR>
<TD width="95"><B>

<FONT SIZE=3 FACE="Arial">
Beskrivelse:


</FONT>
  </B></TD><TD width="77">

<FONT SIZE=3 FACE="Arial">
<% = Upload.Form("Description") %>


</FONT>
</TD>
</TABLE>


<P>
<FONT SIZE=2 FACE="Arial">Tryk <b><a href="../bund.asp" target="_self">her</a></b>
for at komme til forsiden.
</FONT>
<% End If %>





</CENTER>
</BODY>
</HTML>