spulciando nel forum ho trovato quello ke cercavo:

<%@ language=vbscript %>



<%
If Request.QueryString("Upload")="1" then
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename =true
oUpload.Overwrite = false
oUpload.Upload
oUpload.SetPath "\public\" & oUpload.form("nome")
oUpload.SaveAll
oupload.PrintStatus "Lista dei files salvati"
Set oUpload=Nothing
end if

%>
<form action="?upload=1" method="post" enctype="multipart/form-data">
<table width="770" align="center">
<tr><td>

<input type="text" name="nome" size="20" >
</td>
</tr>
<tr>
<td width="101"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
Logo</font></td>
<td width="657"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="logo" size="20">
</font></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Fotodescrittiva
</font></td>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<input type="file" name="foto" size="20">
<input name="submit" type="submit" value="Upload">
</font></td>

</tr>
</table>


</form>