tegs

Amigos Tenho um site em asp, mudei de provedora e passei a ter um problema. Em meu site esta permitindo os usuarios carregarem (Upload) 4 fotos de 130 KB cada ao mesmo tempo, na provedora anterior, funcionava perfeitamente. Nessa nova provedora, passou a não carregar mais essas fotos, ou seja, só carrega fotos no máximo de 20 K cada uma, ou seja, 4 fotos de 20 Kb, no total de 80 Kb contra o anterior de 520 Kb Ao tentar carregar as quatro fotos, o erro que aparece é: Request object error 'ASP 0104 : 80004005' Operation not Allowed /cadastro_mult_dados_inc.asp, line 93 Ao apresentar o erro, fui na pagina cadastro_mult_dados_inc.asp e na linha 93 dessa pagina e o código que consta é: RequestBin = Request.BinaryRead(byteCount) Já falei diversas vezes com o meu provedor, e não resolveram, gostaria de saber se alguém consegue me dizer qual tipo de configuração no provedor ou no servidor poderia ser, para corrigiro problema, sendo que no meu provedor anterior funcionava perfeitamente. alguém CONSEGUE ME AJUDAR, PRECISO MOSTRAR AO PROVEDOR ONDE ELE PODE CONFIGURAR, POIS COMO NA OUTRA PROVEDORA FUNCIONAVA NORMAL, NÃO ACREDITO QUE SEJA O SCRIPT Abaixo o código inteiro dessa pagina: <!--#include file="inc/sis_enviar.asp"--> <% dim byteCount, RequestBin, UploadRequest dim cd_empresa_logo dim cd_automovel, cd_loja, cd_http, nm_razaosocial dim qt_preco, nm_marca, qt_ano_modelo, nm_modelo, qt_ano_fabricacao dim cd_marca, cd_modelo, cd_combustivel, qt_porta, nm_cor, qt_quilometragem dim ds_placa, mm_corpo, opcional, cd_procedencia dim nm_imagem_logo, nm_titulo_logo, blob_imagem_logo dim nm_imagem_01, nm_titulo_01, nm_imagem_02, nm_titulo_02 dim nm_imagem_03, nm_titulo_03, nm_imagem_04, nm_titulo_04 dim blob_imagem_01, blob_imagem_02, blob_imagem_03, blob_imagem_04 dim cd_cpf, cd_cidade, sg_email, sg_senha, sg_senha_nova, cd_cep, sg_estado dim cd_ddd, cd_telefone, cd_ddd_cel, cd_telefone_cel, nm_senha, nm_senha_nova dim nm_combustivel, nm_procedencia, nm_cidade dim stropcional dim tipo dim action_form action_form = "" cd_automovel = "" cd_loja = "" cd_http = "" nm_razaosocial = "" stropcional = "" tipo = "" qt_preco = "" nm_marca = "" qt_ano_modelo = "" 'Year(Now()) nm_modelo = "" qt_ano_fabricacao = Year(Now()) cd_marca = "" cd_modelo = "" cd_combustivel = 0 qt_porta = 2 nm_cor = "" qt_quilometragem = 0 ds_placa = "" mm_corpo = "" opcional = "" cd_procedencia = 0 nm_imagem_logo = "" nm_imagem_01 = "" nm_imagem_02 = "" nm_imagem_03 = "" nm_imagem_04 = "" blob_imagem_logo = "" blob_imagem_01 = "" blob_imagem_02 = "" blob_imagem_03 = "" blob_imagem_04 = "" nm_titulo_logo = "" nm_titulo_01 = "" nm_titulo_02 = "" nm_titulo_03 = "" nm_titulo_04 = "" cd_cpf = "" nm_senha = "" nm_senha_nova = "" cd_secao = "" sg_senha = "" sg_senha_nova = "" cd_cidade = 0 sg_email = "" cd_cep = "" sg_estado = "" cd_ddd = "" cd_telefone = "" cd_ddd_cel = "" cd_telefone_cel = "" byteCount = Request.TotalBytes if byteCount <> 0 then RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin On Error Resume Next action_form = UploadRequest.Item("action_form").Item("Value") cd_loja = UploadRequest.Item("cd_loja").Item("Value") cd_automovel = UploadRequest.Item("cd_automovel").Item("Value") cd_marca = UploadRequest.Item("marca").Item("Value") qt_ano_modelo = UploadRequest.Item("ano").Item("Value") cd_modelo = UploadRequest.Item("modelo").Item("Value") 'RESPONSE.WRITE "marca=" & CD_MARCA & "<BR>ano modelo=" & QT_ANO_MODELO & "<BR>codigo modelo=" & CD_MODELO & "<BR>" 'RESPONSE.WRITE "-----<BR>" 'RESPONSE.END stropcional = UploadRequest.Item("stropcional").Item("Value") tipo = UploadRequest.Item("tipo").Item("Value") 'RESPONSE.WRITE "TIPO= " & TIPO & "<BR>" 'RESPONSE.END qt_preco = UploadRequest.Item("qt_preco").Item("Value") qt_ano_fabricacao = UploadRequest.Item("qt_ano_fabricacao").Item("Value") cd_combustivel = UploadRequest.Item("cd_combustivel").Item("Value") qt_porta = UploadRequest.Item("qt_porta").Item("Value") nm_cor = UploadRequest.Item("nm_cor").Item("Value") qt_quilometragem = UploadRequest.Item("qt_quilometragem").Item("Value") ds_placa = UploadRequest.Item("ds_placa").Item("Value") mm_corpo = UploadRequest.Item("mm_corpo").Item("Value") cd_procedencia = UploadRequest.Item("cd_procedencia").Item("Value") nm_titulo_01 = UploadRequest.Item("nm_titulo_01").Item("Value") nm_titulo_02 = UploadRequest.Item("nm_titulo_02").Item("Value") nm_titulo_03 = UploadRequest.Item("nm_titulo_03").Item("Value") nm_titulo_04 = UploadRequest.Item("nm_titulo_04").Item("Value") cd_cpf = UploadRequest.Item("cd_cpf").Item("Value") nm_senha = UploadRequest.Item("nm_senha").Item("Value") nm_senha_nova = UploadRequest.Item("nm_senha_nova").Item("Value") 'RESPONSE.WRITE "NM_SENHA = " & NM_SENHA_NOVA & "<BR>" 'RESPONSE.END sg_senha = UploadRequest.Item("sg_senha").Item("Value") 'criptografada (apenas no login) sg_senha_nova = UploadRequest.Item("sg_senha_nova").Item("Value") 'criptografada (apenas no login) cd_secao = UploadRequest.Item("cd_secao").Item("Value") nm_fantasia = UploadRequest.Item("nm_fantasia").Item("Value") nm_razaosocial = UploadRequest.Item("nm_razaosocial").Item("Value") cd_http = UploadRequest.Item("cd_http").Item("Value") cd_cidade = UploadRequest.Item("cd_cidade").Item("Value") sg_email = UploadRequest.Item("sg_email").Item("Value") cd_cep = UploadRequest.Item("cd_cep").Item("Value") sg_estado = UploadRequest.Item("sg_estado").Item("Value") cd_ddd = UploadRequest.Item("cd_ddd").Item("Value") cd_telefone = UploadRequest.Item("cd_telefone").Item("Value") cd_ddd_cel = UploadRequest.Item("cd_ddd_cel").Item("Value") cd_telefone_cel = UploadRequest.Item("cd_telefone_cel").Item("Value") on error goto 0 on error resume next if (UploadRequest.Item("nm_imagem_logo_nova").Item("Value") <> "") and (not isnull(UploadRequest.Item("nm_imagem_logo_nova").Item("Value"))) then nm_imagem_logo = UploadRequest.Item("nm_imagem_logo_nova").Item("FileName") Session("blob_imagem_logo") = UploadRequest.Item("nm_imagem_logo_nova").Item("Value") end if on error goto 0 if nm_imagem_logo = "" then nm_imagem_logo = UploadRequest.Item("nm_imagem_logo").Item("Value") 'blob_imagem_01 = UploadRequest.Item("blob_imagem_01").Item("Value") end if 'RESPONSE.END on error resume next if (UploadRequest.Item("nm_imagem_01_nova").Item("Value") <> "") and (not isnull(UploadRequest.Item("nm_imagem_01_nova").Item("Value"))) then nm_imagem_01 = UploadRequest.Item("nm_imagem_01_nova").Item("FileName") Session("blob_imagem_01") = UploadRequest.Item("nm_imagem_01_nova").Item("Value") end if on error goto 0 if nm_imagem_01 = "" then nm_imagem_01 = UploadRequest.Item("nm_imagem_01").Item("Value") 'blob_imagem_01 = UploadRequest.Item("blob_imagem_01").Item("Value") end if 'RESPONSE.WRITE "imagem 01=" & NM_IMAGEM_01 on error resume next if (UploadRequest.Item("nm_imagem_02_nova").Item("Value") <> "") and (not isnull(UploadRequest.Item("nm_imagem_02_nova").Item("Value"))) then nm_imagem_02 = UploadRequest.Item("nm_imagem_02_nova").Item("FileName") Session("blob_imagem_02") = UploadRequest.Item("nm_imagem_02_nova").Item("Value") end if on error goto 0 if nm_imagem_02 = "" then nm_imagem_02 = UploadRequest.Item("nm_imagem_02").Item("Value") end if 'RESPONSE.WRITE "imagem 02=" & NM_IMAGEM_02 on error resume next if (UploadRequest.Item("nm_imagem_03_nova").Item("Value") <> "") and (not isnull(UploadRequest.Item("nm_imagem_03_nova").Item("Value"))) then nm_imagem_03 = UploadRequest.Item("nm_imagem_03_nova").Item("FileName") Session("blob_imagem_03") = UploadRequest.Item("nm_imagem_03_nova").Item("Value") end if on error goto 0 if nm_imagem_03 = "" then nm_imagem_03 = UploadRequest.Item("nm_imagem_03").Item("Value") end if 'RESPONSE.WRITE "imagem 03=" & NM_IMAGEM_03 on error resume next if (UploadRequest.Item("nm_imagem_04_nova").Item("Value") <> "") and (not isnull(UploadRequest.Item("nm_imagem_04_nova").Item("Value"))) then nm_imagem_04 = UploadRequest.Item("nm_imagem_04_nova").Item("FileName") Session("blob_imagem_04") = UploadRequest.Item("nm_imagem_04_nova").Item("Value") end if on error goto 0 if nm_imagem_04 = "" then nm_imagem_04 = UploadRequest.Item("nm_imagem_04").Item("Value") end if 'RESPONSE.WRITE "imagem logo=" & NM_IMAGEM_LOGO & "<BR>" 'RESPONSE.WRITE "imagem 01=" & NM_IMAGEM_01 & "<BR>" 'RESPONSE.WRITE "imagem 02=" & NM_IMAGEM_02 & "<BR>" 'RESPONSE.WRITE "imagem 03=" & NM_IMAGEM_03 & "<BR>" 'RESPONSE.WRITE "imagem 04=" & NM_IMAGEM_04 & "<BR>" 'RESPONSE.WRITE "LOGO=" & Session("blob_imagem_logo") & "<BR>" 'RESPONSE.WRITE "IMAGEM 01 = " & Session("BLOB_IMAGEM_01") & "<BR>" 'RESPONSE.WRITE "IMAGEM 02 = " & Session("BLOB_IMAGEM_02") & "<BR>" 'RESPONSE.WRITE "IMAGEM 03 = " & Session("BLOB_IMAGEM_03") & "<BR>" 'RESPONSE.WRITE "IMAGEM 04 = " & Session("BLOB_IMAGEM_04") & "<BR>" if nm_imagem_logo = "" or IsNull(nm_imagem_logo) then nm_imagem_logo = "img/img_padrao_mini.jpg" if nm_imagem_01 = "" or IsNull(nm_imagem_01) then nm_imagem_01 = "img/img_padrao_mini.jpg" if nm_imagem_02 = "" or IsNull(nm_imagem_02) then nm_imagem_02 = "img/img_padrao_mini.jpg" if nm_imagem_03 = "" or IsNull(nm_imagem_03) then nm_imagem_03 = "img/img_padrao_mini.jpg" if nm_imagem_04 = "" or IsNull(nm_imagem_04) then nm_imagem_04 = "img/img_padrao_mini.jpg" if not IsNull(qt_porta) and IsNumeric(qt_porta) and qt_porta <> "" then qt_porta = cint(qt_porta) else qt_porta = 2 end if if not IsNull(qt_quilometragem) and IsNumeric(qt_quilometragem) and qt_quilometragem <> "" then qt_quilometragem = cdbl(qt_quilometragem) else qt_quilometragem = "" end if if not IsNull(cd_procedencia) and IsNumeric(cd_procedencia) and cd_procedencia <> "" then cd_procedencia = cint(cd_procedencia) else cd_procedencia = 0 end if if not IsNull(cd_automovel) and IsNumeric(cd_automovel) and cd_automovel <> "" then SQL="SELECT CadastroEmpresa.cd_login As codigo FROM vw_ImovelEmpresa WHERE cd_imovel = " & cd_automovel rs.Open SQL, Conexao, 3, 3 cd_empresa_logo = rs("codigo") rs.Close end if if not IsNull(cd_marca) and IsNumeric(cd_marca) and cd_marca <> "" then SQL="SELECT nm_marca FROM automarca WHERE cd_marca = " & cd_marca rs.Open SQL, Conexao, 3, 3 if not rs.Eof then nm_marca = rs("nm_marca") rs.Close end if if not IsNull(cd_modelo) and IsNumeric(cd_modelo) and cd_modelo <> "" then SQL="SELECT nm_modelo FROM automodelo WHERE cd_modelo = " & cd_modelo rs.Open SQL, Conexao, 3, 3 if not rs.Eof then nm_modelo = rs("nm_modelo") rs.Close end if if not IsNull(cd_combustivel) and IsNumeric(cd_combustivel) and cd_combustivel <> "" then SQL = "SELECT nm_combustivel FROM autocombustivel WHERE cd_combustivel = " & cd_combustivel rs.Open SQL, Conexao, 3, 3 if not rs.Eof then nm_combustivel = rs("nm_combustivel") rs.Close end if if cd_procedencia = 0 then nm_procedencia = "Nacional" else nm_procedencia = "Importado" if not IsNull(cd_cidade) and IsNumeric(cd_cidade) and cd_cidade <> "" then SQL = "SELECT nm_cidade FROM cidade WHERE cd_cidade = " & cd_cidade rs.Open SQL, Conexao, 3, 3 if not rs.Eof then nm_cidade = rs("nm_cidade") rs.Close end if end if %>