Erro ao enviar form

[Bahamut 0]

Tipo de erro:

Objeto Request, ASP 0206 (0x80004005)

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

/gerenciador/loader.asp, line 36

 

 

ASP

Esse aqui é um código de um gerenciador de noticias e fotos

 

Porém, ele da esse erro e eu não estou conseguindo consertar.

 

Vai aqui o código do pag notic_incluir.asp  e nela cria um novo objeto em uma classe no loader.asp:

 

         Dim strCorpo

                       

                        strCorpo = Request.Form("Corpo")

                      data = day(date) & "/" & month(date) & "/" & year(date)

                        dim msg_dia

                        if request("ck_msg_dia") = "ON" then

                                msg_dia = 1

                        else

                                msg_dia = 0

                        end if

 

          Response.Buffer = True               

       

 

        Dim load

    Set load = new Loader

         

        'calling initialize method

    load.initialize

       

       

       

        'Recuperar o proximo valor para nu_foto

               

        strlegenda=load.getValue("legenda")

       

        Dim fileData

    fileData = load.getFileData("fileFoto")

           

        'Recordset object

    Dim rsInserirFoto

 

        Set rsInserirFoto=Server.CreateObject("ADODB.Recordset")

        rsInserirFoto.CursorType=1

        rsInserirFoto.LockType=2

        rsInserirFoto.open "dbo.t_noticia", conexao, , , 2

       

        rsInserirFoto.AddNew

       

        if err.number<>0 then

                response.write("1"&err.description)

        end if

 

 

        rsInserirFoto("foto").AppendChunk fileData

        rsInserirFoto("id_foto")=1

       

 

        rsInserirFoto("legenda")=  strlegenda

 

        rsInserirFoto("fl_exibir")="s"

        rsInserirFoto("te_noticia")=strCorpo

        rsInserirFoto("id_matricula_servidor")= session("varMatricula")

        rsInserirFoto("id_ol_Area")= session("varCod_Area")

       

        rsInserirFoto("dt_cadastro")= data

        rsInserirFoto("nu_IP")= Request.ServerVariables("REMOTE_ADDR")

        rsInserirFoto("fl_msg_dia")=msg_dia

       

        rsInserirFoto.Update

       

        if err.number<>0 then

                response.write("2"&err.description)

        end if

                                         

    rsInserirFoto.Close

    Set rsInserirFoto = Nothing

 

E aqui vai a parte do loader.asp que está dando erro:

   

 Public Sub Initialize

      If Request.TotalBytes > 0 Then

        Dim binData, lngCount

                        lngCount = Request.TotalBytes

          binData = Request.BinaryRead(lngCount)

          getData binData

      End If

    End Sub

 

Se alguém puder me ajudar nessa bronca, vou ficar bastante grato.

 

[]s

[Salgado 4]

A própria descrição já informa o problema.

 

A possível solução seria colocar o seu Request.Form("Corpo") mais abaixo, junto com o trecho strlegenda=load.getValue("legenda") e trocando para strCorpo = load.getValue("Corpo").

 

Faz essa alteração e testa.

[Bahamut 0]

Dim Resquesta, CadastrasResquesta = Trim(Request.Form("Menu"))Cadastras = Trim(Request.Form("Cadastrar"))If resquesta <> "" Then ' Response.Redirect("notic_menu_princ.asp")ElseIf cadastras <> "" ThenCerto.. aquele outro acho que funcionoumas esse dai está dando problema ainda.. e ele não passa pelo getValue, da problemaFunção GetValue que está em loader.asp: Public Function getValue(name) Dim gv If dict.Exists(name) Then gv = CStr(dict(name).Item("Value")) gv = Left(gv,Len(gv)-2) getValue = gv Else getValue = "" End If End Function

[Bahamut 0]

só pra complementar: Private dict Private Sub Class_Initialize Set dict = Server.CreateObject("Scripting.Dictionary") End SubEsse tb está em loader.aspna classe Loader

[Salgado 4]

Dê uma olhada em nosso Laboratório de Scripts, há um tópico sobre "Upload Sem componentes" que pode te ajudar.