Tamanho = Request.TotalBytes ???

/*
Olá,

Eu uso a rotina abaixo p/ barrar conteúdo maior do que 100 kb e fazer upload, mas não está mais funcionando de uma hora pra outra qdo. arquivo é maior do que 100 kb, e aparece aquela tela:
Ação cancelada
O Internet Explorer não conseguiu se conectar à página da Web solicitada. A página pode não estar disponível no momento.
......................................................................................

Com conteúdo menor do que 100 kb não dá erro!
Alguém sabe o que pode ser??

'***** Determina o Tamanho do Conteúdo *****
Tamanho = Request.TotalBytes
Tamanho2 = eval(Tamanho)
If Tamanho2 > 102400 then '102400 Bytes = 100 KBytes
Response.Write "<script language='JavaScript'>alert('Favor não enviar arquivos maiores do que 100 KBytes.'); "
Response.Write "history.go(-1);</script>"
Response.End()

'***** Obtém o Conteúdo no Formato Binário *****
ConteudoBinario = Request.BinaryRead(Tamanho)

'***** Transforma o Conteúdo Binário em String *****
For Contador = 1 To Tamanho
ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next

'***** Determina o Delimitador de Campos *****
Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1)

'***** Percore a String Procurando os Campos *****
'***** Identifica os Arquivos e Grava no Disco *****
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador)
Do While True
ArquivoNome = ""
Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
If Posicao1 = 0 Then
Exit Do
Else
'***** Determina o Nome do Arquivo *****
Posicao1 = Posicao1 + 10
Posicao2 = InStr(Posicao1, ConteudoTexto, """")
For Contador = Posicao2-1 To Posicao1 Step -1
If Mid(ConteudoTexto, Contador, 1) <> "" Then
ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
Else
Exit For
End If
Next

'»»Verifica se foi fornecido arquivo a ser colocado no servidor.
If ArquivoNome = "" then
Response.Write "<script language='JavaScript'>alert('Escolha a foto a ser enviada.'); "
Response.Write "history.go(-1);</script>"
Response.End()
End If

'»»Verifica se arquivo está no formato JPG ou GIF.
If InStr(ArquivoNome,".jpg") = "0" and InStr(ArquivoNome,".gif") = "0" then
Response.Write "<script language='JavaScript'>alert('Foto em formato inválido.Envie foto no formato JPG ou GIF.'); "
Response.Write "history.go(-1);</script>"
Response.End()
End If
' Response.Write "<br>ArquivoNome: " & ArquivoNome
' Response.End()

'***** Determina o Conteúdo do Arquivo *****
Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
ArquivoConteudo = Mid(ConteudoTexto, Posicao1, Posicao2-Posicao1+1)

'***** Grava o Arquivo *****
If ArquivoNome <> "" Then '»»GRAVA DADOS NO BD E FAZ UPLOAD DA FOTO.
'»»Verifica se a foto enviada(ArquivoNome) está sendo usada por outro título de livro;
SQL = "Select count(Foto) as Total from Biblioteca_Titulo " _
& " where Foto = '" & ArquivoNome & "'"
Set Rs = Conexao.Execute(SQL)
If Not Rs.EOF then
TotalFoto = Eval(Rs("Total"))
Else
TotalFoto = 0
End If
' Response.Write SQL & "<br>Achou: " & TotalFoto & "<p>"
' Response.End()

'»»Atualiza o nome da foto na tabela Biblioteca_Titulo.
SQL = "Update Biblioteca_Titulo set Foto = '" & ArquivoNome _
& "' where Codigo = '" & Codigo & "'"
' Response.Write SQL
' Response.End()
Conexao.Execute(SQL) '»»Está mandando executar instrução SQL. instrução SQL.

'»»Grava o arquivo no HD(disco rígido).
Set objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True)
objArquivo.WriteLine ArquivoConteudo
objArquivo.Close
Operacao_OK = "sim"
Set objArquivo = Nothing

'»»Apaga foto atual do HD(disco rígido) qdo. está sendo feito uma alteração no título atual,
'»»evitando-se apagar a foto se:
'»» * A foto enviada(ArquivoNome) for igual a foto atual(FotoLivro);
'»» * Se a foto enviada(ArquivoNome) NÃO estiver sendo usada por outro título de livro.
'Response.Write "Alteracao: " & Alteracao & "<br>FotoLivro: " & FotoLivro & "<br>ArquivoNome: " & ArquivoNome & "<br>TotalFoto: " & TotalFoto
'Response.End()
If Alteracao = "1" and FotoLivro <> ArquivoNome and TotalFoto <= 0 then
If objFSO.FileExists(PastaDestino & "" & FotoLivro) Then
objFSO.DeleteFile(PastaDestino & "" & FotoLivro)
' Response.Write "<br><b>" & FotoLivro & "</b> foi apagado fisicamente com sucesso!!!" & "<br>"
End If
End If
If Operacao_OK = "sim" then
'»»INÍCIO: Define o tipo de imagem de título da página.
If QuemUsaSist = "0" Then '»»Usuário da HI-TEC.
%>

<%ElseIf QuemUsaSist = "1" Then '»»Usuário do sist. de Condomínios.%>

<%
End If
'»»FIM: Define o tipo de imagem de título da página.
End If
'»»Mensagem de aviso qdo. arquivo for enviado com sucesso e retorno p/ página de busca.
Response.Write "<script language='JavaScript'>"
Response.Write "window.location.href = 'listagem_biblio_titulo.asp?BDCli=" & BDCliEncr & "&QuemUsaSist=" & QuemUsaSist & "'</script>"
End If
End If
Loop
Set objFSO = Nothing
End If

Vilmar Brazão de Oliveira
Praia Grande/SP/Brasil
http://www.vilmarbro.eti.br
*/