Oq Esta Errado?

[erick_web]

Ptzz, coloquei essi sistema de upload em um site ae, mas quando vai fazer o upload da umagem ele da um erro no arquivo "upload_form2.asp"na linha 60, mas n acho o erro, alguém sabe oque esta errado?

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

nome = UploadRequest.Item("nome").Item("Value")

email = UploadRequest.Item("email").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

'nome_foto = Replace(caminho_foto,".","_"& rndit &".")

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

foto2 = UploadRequest.Item("foto2").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagem/")

nome_foto = "/"&nome_foto

nome_foto2 = "/"&nome_foto2

' pasta + nome dos arquivos

cfoto = "imagem" + nome_foto

cfoto2 = "imagem" + nome_foto2

' 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

'url_conexao = Server.MapPath("dados.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("dados.mdb")   

' cadastra os dados no banco de dados

sql = "Insert into dados (nome,email,foto,foto2) values ('"& nome &"', '"& email &"', '"& cfoto &"', '"& cfoto2 &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>"

' Redireciona após 5 segundos

response.write "<br><br>Você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=default.asp'/>"

%>

[cyberalexxx]

qual o erro???

Destaque a linha com erro!!

[]'s