Kun bestemte filtyper i asp upload

hvad fejl får du ?

hvis jeg sletter:
----
For Each File in Upload.Files
  Ext = UCase(Right(File.Path, 3))
  If Ext <> "TXT" and Ext <> "DOC" Then
      Response.Write "File " & File.Path & " is of invalid type."
      File.Delete
  else
---
virker alt som normalt og alle filer kan uploads.
måske skal jeg sætte koden ind et andet sted.
jeg er ikke så god til programering

Hmmm prøv med :

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

    Upload.CodePage = 65001
    Upload.OverwriteFiles = False
    Upload.ProgressID = Request.QueryString("PID")

    Upload.SetMaxSize 520000428, False

    On Error Resume Next
    n = Upload.Save("c:\ftp\upload\hjemmeside_upload\")
    ErrorNum = Err.Number
    Descr = Err.Description
    On Error Goto 0

For Each File in Upload.Files
  Ext = UCase(Right(File.Path, 3))
  If Ext = "TXT" or Ext = "DOC" Then
    response.write("Filen er godkendt til upload")
    else
    response.write("ikke godkendt fil")
    file.delete
  end if
    %>

nu virker det.
hvis jeg også skal have zip filer med
hvad skal jeg så skrive.
du skal nok få point

Så ændre du denne linie:

If Ext = "TXT" or Ext = "DOC" Then

til Ext = "TXT" or Ext = "DOC" or Ext = "ZIP" then

EXT = endelsen på filnavnet, og i ovenståen siger jeg så oversat til dansk

Hvis endelse = "TXT" eller endelse = "DOC" or endelse = "ZIP" then

løsningen blev
---
<%
    Set Upload = Server.CreateObject("Persits.Upload")

    Upload.CodePage = 65001
    Upload.OverwriteFiles = False
    Upload.ProgressID = Request.QueryString("PID")

    Upload.SetMaxSize 520000428, False

    On Error Resume Next
    n = Upload.Save("c:\ftp\upload\hjemmeside_upload\")
    ErrorNum = Err.Number
    Descr = Err.Description
    On Error Goto 0


    If ErrorNum <> 0 Then
        Response.Write "<B>The following error occurred: <FONT COLOR=""#FF0000"">" & Descr & "</FONT></B>"
    Else
        Response.Write "<B>" & n & " file(s) have been uploaded. " & Upload.TotalBytes & " bytes were transferred in " & Upload.TotalSeconds & " sec.<P>"
%>

</font>

<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=3>
<%
    For Each File in Upload.Files
  Ext = UCase(Right(File.Path, 3))
if Ext = "FOB" or Ext = "RAR" or Ext = "ZIP" or Ext = "#BK" or Ext = "FBK" then 
    response.write("Filen er godkendt til upload")
    else
    response.write("ikke godkendt fil")
    file.delete
  end if

'            File.SaveAsVirtual "/uploadedfiles/" & File.FileName
%>