Eu faço o envio do formulário assim:
<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">
Eu envio as info que são capturadas usando session...
O erro que está aparecendo é este:
Tipo de erro:
Objeto Request, ASP 0207 (0x80004005)
Não é possível usar a coleção Request.Form após chamar BinaryRead.
/news1/arquivos/adm/upload_form2.asp, line 10
Na linha 10 eu tenho isso:
SESSION ("titulo") = Request.form("titulo")
Qual pode ser o erro...
Veja abaixo código completo da página que dá o erro...
<!-- #include file = "upload_funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
' Recuperando os Dados Digitados ----------------------
SESSION ("titulo") = Request.form("titulo")
SESSION ("tipo") = Request.form("tipo")
SESSION ("chamada") = Request.form("chamada")
SESSION ("conteudo") = Request.form("conteudo")
SESSION ("expira") = Request.form("expira")
data=day(now)&"/"&month(now)&"/"&year(now)
SESSION ("destaque") = Request.form("destaque")
' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")
' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")
' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))
' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")
' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/")
nome_foto = "/"&nome_foto
' pasta + nome dos arquivos
cfoto = "imagens/noticia" + nome_foto
' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if
' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../bd/base.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao
'Faremos aqui a inserção de todos os dados digitados no form anterior
meubd.EXECUTE "INSERT INTO noticias (titulo, chamada, tipo, conteudo, expirar, data, destaque, foto) values ('"&titulo&"','"&chamada&"',"&tipo&",'"&conteudo&"','"&expira&"','"&data&"',"&destaque&"','"&cfoto&")"
' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"
'Logo após a inserção dos dados, mostrará uma mensagem e voltará para a página principal.asp
response.write "<script>location = 'principal.asp';alert('Sua notícia foi cadastrada com sucesso!')</script>"
%>
