Enviar email com anexo

Olá Pessoa,

estou tentando desenvolver um script para enviar email com anexo.

A idéia é fazer o upload do arquivo primeiro e logo depois anexar o arquivo no email:

<%
If Not IsEmpty(Request.Form) Then

If Request.Form("file") <> "" Then
Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
obj_Upload.Path = Server.MapPath("./upload") 'local onde será gravado o arquivo
obj_Upload.Form("File").Save
Session("arquivo") = obj_Upload.Form("File").ServerName 'recupera o nome do arquivo no servidor

 Response.Write "<script>alert('Total de Bytes Enviados: " & obj_Upload.TotalBytes & "')</script>"
 Set obj_Upload = Nothing
	End If

	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
	Mailer.FromName = Request("Nome")
	Mailer.FromAddress = Request("email")
	Mailer.RemoteHost = "localhost"
	Mailer.Recipient = "contato@email.com.br"
	Mailer.Subject = "E-mail teste"
	If Request.Form("file") <> "" Then
 Mailer.AddAttachment(Session("Arquivo"))
	End If
	Mailer.ContentType = "text/html"

	Mailer.BodyText = "<b>Nome:</b> " & Request.form("nome") & vbcrlf
	Mailer.BodyText = "<b>Assunto:</b> " & Request.form("assunto") & vbcrlf
	Mailer.BodyText = "<b>Email:</b> " & Request.form("email") & vbcrlf
	Mailer.SendMail

	Response.Write "Email enviado!"

 Else

%>

 <form onsubmit="return verifica_form(this);" action="teste2.asp" method="post">
	Nome: <input type="text" size="38" name="nome" df_verificar="sim" onkeypress="desabilita_cor(this)" /><br>
	Assunto: <input type="text" size="38" name="assunto" df_verificar="sim" onkeypress="desabilita_cor(this)" /><br>
	Email: <input type="text" size="38" name="email" df_verificar="sim" onkeypress="desabilita_cor(this)" /><br>
	Arquivo: <input name="file" type="file" size="40"><br>
	<input type="submit" name="enviar" value="enviar">
 </form>

<%
End If
%>

>
Erro que está ocorrendo:

Request object error 'ASP 0206 : 80004005'

Cannot call BinaryRead

/teste2.asp, line 14 = obj_Upload.Form("File").Save

Cannot call BinaryRead after using Request.Form collection.

Alguem sabe ajudar?

Se alguem tiver um outro código de upload acho que pode resolver, subistituindo por esse.