erro upload sem componentes

amigos estou com um problema em meu sistema de upload

ja utilizei este mesmo script por varias vezes e nunca houve problemas so que desta vez estou com o seguinte erro.

Request object error 'ASP 0104 : 80004005'

Operation not Allowed

Request object error 'ASP 0104 : 80004005'

Operation not Allowed

/updatefuncao.asp, line 5

linha5:

RequestBin = Request.BinaryRead(byteCount)

vou postar tudo o cod desta pagina para que vocês verifiquem

<!-- #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 ----------------------

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("procurar").Item("ContentType")
'tipo_foto2 = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("procurar").Item("FileName")
'caminho_foto2 = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) & Session("nome")
'nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("procurar").Item("Value")
'foto2 = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("ImagensPerfil/")
'response.Write(pasta)
nome_foto = "/"&nome_foto
'nome_foto2 = "/"&nome_foto2

' pasta + nome dos arquivos
cfoto = "ImagensPerfil" + nome_foto
'cfoto2 = "album" + nome_foto2
'cfoto = 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

'if foto2 <> "" then
'Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
'For i = 1 to LenB(foto2)
'MyFile.Write chr(AscB(MidB(foto2,i,1)))
'Next
'MyFile.Close
'end if

' Conecta-se ao Banco de Dados
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={MySQL ODBC 3.51 Driver}; 'Server=newpointi.com.br; Port = 3306; Database=relacionamentos_newpointi; Uid=admin_onwebdigit; Pwd=new1004pointi;"

' cadastra os dados no banco de dados
sql = "Insert into tab_usuario_cadastro (foto_perfil) values ('"& cfoto &"') WHERE id_usuario ="& npid &""
conn.Execute(sql)

' Redireciona após 5 segundos

response.write "<script>alert('Foto modificada com sucesso!');</script>"
response.write "<meta http-equiv='refresh' content='5; url=updatefoto.asp'/>"

%>

outra coisa que gostaria de saber e como eu faço para alterar o nome da foto ao fazer o upload para que nao aconteça de quando mandar 2 fotos com o mesmo nome ele substituir.