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") = "smtp.prsolucaoweb.com.br"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
objCDOSYSCon.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="contato@prsolucaoweb.com.br"
objCDOSYSCon.Fields ("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)&"/></center><br><br>"
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');</script>")
Session("Arquivo") = ""
End Select
%>
Como que faço para que não de mais o erro.
Por favor!!!!!!!!!!!!!!!!!