Passar valor em request.form (DANDO ERRO)

Boa tarde pessoal, tudo bem?

Estou com um código que está me dando dor de cabeça.

Esse código recebe valores vindo de uma tabela SQL e tem um UPLOAD.

Quando vou selecionar o arquivo e anexar da um erro:

Objeto Request erro 'ASP 0206 : 80004005'

Não é possível chamar BinaryRead

/envia_arquivo_convites_ind.asp, linha 242

Não é possível chamar BinaryRead após usar a coleção Request.Form.

Eu estou utilizando esse codigo:

<%

email_cobranca = Request.Form("email_cobranca")
tipo = Request.Form("tipo")
moeda = Request.Form("moeda")
item_id = Request.Form("item_id")
item_descr = Request.Form("item_descr")
item_quant = Request.Form("item_quant")
item_valor = Request.Form("item_valor")
frete = Request.Form("frete")
peso = Request.Form("peso")
itemCode = Request.Form("itemCode")

Dim objCDOSYSMail
Dim corpo

item_id2 = Request.QueryString("item_id")
item_descr2 = Request.QueryString("item_descr")
item_quant2 = Request.QueryString("item_quant")
item_valor2 = Request.QueryString("item_valor")
frete2 = Request.QueryString("frete")

'v_situacao = " disabled" 'variavel que habilita os campos do e-mail

 Select Case Request.QueryString("acao") 'Verifica parametro acao para executar determinado script
 Case "upload" 'caso a acao seja upload, executa script do SaFileUp
 Set obj_Upload = Server.CreateObject("SoftArtisans.FileUp")
 obj_Upload.Path = Server.MapPath("./envio_arquivos") '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

 Set obj_Upload = Nothing
 ' v_situacao = "" 'habilita os campos pra enviar o e-mail
 v_foco = " onLoad=""document.frm_email.nome.focus();""" 'coloca o cursor no campo do form de e-mail
 Case "email" 'caso a acao seja email, executa script do CDOSYS
 Set objCDOSYSMail = Server.CreateObject("CDO.Message")
 Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'objeto de configuração do CDO
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserver](http://schemas.microsoft.com/cdo/configuration/smtpserver)") = "smtp.prsolucaoweb.com.br"
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpserverport](http://schemas.microsoft.com/cdo/configuration/smtpserverport)") = 587
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/sendusing](http://schemas.microsoft.com/cdo/configuration/sendusing)") = 2
 objCDOSYSCon.Fields("[http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout](http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout)") = 30

 objCDOSYSCon.Fields ("[http://schemas.microsoft.com/cdo/configuration/smtpauthenticate](http://schemas.microsoft.com/cdo/configuration/smtpauthenticate)") = 1 'basic (clear-text) authentication
 objCDOSYSCon.Fields ("[http://schemas.microsoft.com/cdo/configuration/sendusername](http://schemas.microsoft.com/cdo/configuration/sendusername)") ="contato@prsolucaoweb.com.br"
 objCDOSYSCon.Fields ("[http://schemas.microsoft.com/cdo/configuration/sendpassword](http://schemas.microsoft.com/cdo/configuration/sendpassword)") ="prweb009"

 objCDOSYSCon.Fields.update
 Set objCDOSYSMail.Configuration = objCDOSYSCon

 objCDOSYSMail.Bcc = "contato@prsolucaoweb.com.br"
 objCDOSYSMail.Subject = "::..Pedido de Convites..::"
 objCDOSYSMail.From = "contato@prsolucaoweb.com.br"

 objCDOSYSMail.AddAttachment(Session("Arquivo")) 'anexa o arquivo
 nome = Request.Form("nome")
 email = Request.Form("email")
 fone = Request.Form("fone")
 celular = Request.Form("celular")
 cep = Request.Form("cep")
 endereco = Request.Form("endereco")
 numero = Request.Form("numero")
 bairro = Request.Form("bairro")
 cidade = Request.Form("cidade")
 uf = Request.Form("uf")
 assunto = Request.Form("assunto")
 mensagem = Request.Form("mensagem")

 'Corpo do email
 corpo = "<font style="&Chr(34)&"font-family:Verdana"&Chr(34)&"color="&Chr(34)&"black"&Chr(34)&"size="&Chr(34)&"16"&Chr(34)&"><br>"
 corpo = corpo + "<center><img src="&Chr(34)&"[http://www.pclofer.com.br/images/logo.png"&Chr(34)&"/>

"](http://www.pclofer.com.br/images/logo.png)

 corpo = corpo + "<p><center><font style="&Chr(34)&"font-family:Calibri"&Chr(34)&"size="&Chr(34)&"4"&Chr(34)&">::. SOLICITAÇÃO COMPRA CONVITES .::</font><p><p></center><br>"
 corpo = corpo + "Assunto: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & assunto & "</font><br>"
 corpo = corpo + "COD. PRODUTO: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & item_descr2 & "</font><br>"
 corpo = corpo + "Quantidade: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & item_quant2 & "</font><br><br>"
 corpo = corpo + "COM ENVELOPE</font><br><br>"
 corpo = corpo + "_____________________________________________</font><br><br>"
 corpo = corpo + "E-mail: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & email & "</font><br>"
 corpo = corpo + "Tel. Fixo: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & fone & "</font><br>"
 corpo = corpo + "Celular.: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & celular & "</font><br>"
 corpo = corpo + "Mensagem: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & mensagem & "</font><br>"
 corpo = corpo + "-------------------------------------------------------------------------------------------------------------------</font><br><br>"
 corpo = corpo + "DADOS PARA ENTREGA:</font><br>"
 corpo = corpo + "Nome Cliente: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & nome & "</font><br>"
 corpo = corpo + "CEP: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & cep & "</font><br>"
 corpo = corpo + "Endereço: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & endereco & "</font> - Nº: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & numero & "</font><br>"
 corpo = corpo + "Bairro: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & bairro & "</font> - Cidade: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & cidade & "</font> - UF: <font color="&Chr(34)&"red"&Chr(34)&"size="&Chr(34)&"3"&Chr(34)&">" & uf & "</font><br><br>"
 corpo = corpo + "-------------------------------------------------------------------------------------------------------------------</font><br><br>"

 objCDOSYSMail.HTMLBody = corpo

 objCDOSYSMail.Send 'envia o e-mail com o anexo
 Set objCDOSYSMail = Nothing
 Set objCDOSYSCon = Nothing

 Response.Write("<script>window.open('[https://pagseguro.uol.com.br/checkout/checkout.jhtml?itemCode=5625541C8CB1475EB58BFEA776291D94&tipo=CBR&email_cobranca=convites@pclofer.com.br&item_id="&item_id2&"&item_descr="&item_descr2&"&item_quant="&item_quant2&"&item_valor="&item_valor2&"&extras="&frete2&",_blank');")](https://pagseguro.uol.com.br/checkout/checkout.jhtml?itemCode=5625541C8CB1475EB58BFEA776291D94&tipo=CBR&email_cobranca=convites@pclofer.com.br&item_id=)
 Session("Arquivo") = ""
 End Select

%>

Como que faço para que não de mais o erro.

Por favor!!!!!!!!!!!!!!!!!