Help No Upload Do Asp

[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

%>

[bareta]

bom isso é uma restrição do server....

quer resolver????

use algum componente de upload... qualquer um...