Si no tienes que renombrar el archivo subido este codigo te servira:
La pagina con formulario:
form name="form1" method="post" ENCTYPE="multipart/form-data" ACTION="Upload.asp">
<p>
<INPUT TYPE=FILE SIZE=60 NAME="FILE1">
</p>
<p><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</p>
</FORM>
La pagina Upload.asp:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count= Upload.Save("d:\hcrt\misitio.com\html\carpeta")
%>
<% = Count %> ficheros subidos.
La carpeta si tiene que tener los permisos de escritura.