Como fazer upload de arquivos usando o Persists AspUpload

O AspUpload é um componente ActiveX que permite o envio de qualquer tipo de arquivo ou imagem para uma pasta no servidor web.

AspUpload.html

<html>
<head>
<title>AspUpload : Upload Simples</title>
</head>
<body>

<h4>AspUpload</h4>

<b>Select 1, 2 or 3 files, then click the Upload button. Images (.gif, .jpg, .png) will be automatically displayed.</b>

<p>
  <form name="MyForm" method="post" enctype="multipart/form-data" action="AspUpload.asp">
  <table cellspacing="0" cellpadding="3" border="1">
    <tr>
      <td bgcolor="#FFFFCC">
        <input type="file" size="40" name="filefield" /><br />
        <input type="submit" value="Upload" /><br />
      </td>
    </tr>
  </table>
  </form>
</p>

</body>
</html>

AspUpload.asp

<%
' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever arquivos
AspUpload.OverwriteFiles = False

On Error Resume Next 
' Limita o tamanho máximo do arquivo em 1MB
AspUpload.SetMaxSize 1048576
' Salva o arquivo
Count = AspUpload.Save("c:\upload\")

' Tira o objeto da memória
Set AspUpload = Nothing

If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else
  Response.Write "Upload realizado com sucesso."
End If
%>