Salve a tutti
sbirciando qua e la nel forum sto cercando di crearmi un modulo in asp dove potermi, tramite una form, farmi mandare degli allegati...

attualmente ho questo codice:
form.html
codice:
<HTML>
<HEAD>
<TITLE>Manda Email</TITLE>
</HEAD>
<BODY>
<FORM ACTION="manda.asp" METHOD="post" enctype="multipart/form-data">
<div align="center">
<table border="0" width="85%" celpadding="2" cellspacing="2">
<tr>
<td>
<h1>Manda E-mail<hr align="LEFT" size="1" width="100%" color="navy"></h1>
</td>
</tr>
<tr>
<td>
Compila il Form
</td>
</tr>
<td align="center">


<table width="60%" border="0" celpadding="2" cellspacing="2">
<tr>
<td>Subject</td>
<td><INPUT NAME="subject" TYPE="TEXT" size=30 MAXLENGTH=50></td>
</tr>
<tr>
<td>Email destinatario</td>
<td valign="top">
<INPUT NAME="destinatario" TYPE="TEXT" ALIGN=left size=30 MAXLENGTH=50></td>
</tr>
<tr>
<td valign="top">Testo</td>
<td><TEXTAREA NAME="testo" ROWS=7 COLS=42></TEXTAREA></td>
</tr>
<tr>
<td rowspan="3" valign="top">Allega</td>
<td><input type="file" name="file1" /></td>
</tr>
<tr>
  <td><input type="file" name="file2" /></td>
</tr>
<tr>
  <td><input type="file" name="file3" /></td>
</tr>
<tr>
<td colspan="2" align="center">
<table width="50%" border="0" celpadding="6" cellspacing="2">
<tr> 
  <td><input type="submit" name="invio" value="   Invia    "></td>
  <td align="right">
<INPUT TYPE="reset" NAME="reset" VALUE="   Reset   "></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</FORM>
</BODY>
</HTML>

File upload.asp
codice:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<%
Dim form, subject, allegato1, allegato2, allegato3
%>

<Html>
<head>
<title>Email spedita</title>
</head>
<body>


<%
Dim oUpload 
Set oUpload = new cUpload
oUpload.SetPath "upload\"
oUpload.Load
if oUpload.Count=0 then
	allegato1 = ""
	allegato2 = ""
	allegato3 = ""
Else
	While Not oUpload.EOF
		oUpload.Save()
		Select Case lCase(oUpload.Files("InputName"))
		Case "file1"
                allegato1 = oUpload.GetFileName()
		Case "file2"		
				allegato2 = oUpload.GetFileName()
		Case "file3"		
				allegato3 = oUpload.GetFileName()
		End Select
		oUpload.MoveNext
	Wend
End if


call Main()


Sub Main()
If Len(oUpload.Form("subject")) = 0 then
no_sub()
else 
manda_posta(form)
ecco_fatto(nome)
end if
Set oUpload=Nothing 
End sub


Sub no_sub()
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>" 
response.write "<tr><td>Non hai inserito un subject</td></tr>"
response.write "<tr><td>Per favore, torna indiedro e inseriscine uno </td></tr>"
response.write "<tr><td align='middlè>"
response.write "<a href=java-script:history.go(-1)>Pagina precedente</a>"
response.write "</td></tr></table></div>"
End Sub


Sub manda_posta(form)
Dim subject, testo
Dim objMail, objMailConfig
subject = oUpload.Form("subject")
mittente = oUpload.Form("mittente")
testo = oUpload.Form("testo")
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConfig = Server.CreateObject ("CDO.Configuration")

' Proprietà di invio
with objMailConfig
  ' SMTP mail server
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.eurnetcity.net"
  ' SMTP port
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  ' CDO port
  .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  ' Timeout
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
  .Fields.Update
end with

Set objMail.Configuration = objMailConfig

objMail.From = "r.didonato@infotrading.it"
objMail.To = oUpload.Form("destinatario")
objMail.Subject = subject
objMail.TextBody = testo
If Len(allegato1) <> 0 then
objMail.AddAttachment Server.MapPath("upload\" & allegato1)
end if
If Len(allegato2) <> 0 then
objMail.AddAttachment Server.MapPath("upload\" & allegato2)
end if
If Len(allegato3) <> 0 then
objMail.AddAttachment Server.MapPath("upload\" & allegato3)
end if
objMail.Fields("urn:schemas:httpmail:importance").Value = 0
objMail.Fields.update() 
objMail.Send
Set objMail = Nothing
end sub


Sub ecco_fatto(nome)
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>" 
response.write "<tr><td>Grazie " & subject & " per la mail</td></tr>"
response.write "<tr><td align='middlè>"
response.write "<a href=java-script:history.go(-2)>Torna indietro</a>"
response.write "</td></tr></table></div>"
End sub
%>
</body>
</html>

manda.asp
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
questo codice però non mi funziona perchè mi da questo errore:
Microsoft VBScript runtime error '800a01fa'
Class not defined: 'cUpload'
/landing/upload.asp, line 17

qualcuno sa aiutarmi e nel caso dirmi che cavolata ho scritto???