Problemas com Upload

[Daiana 0]

Ola pessoal estou com um problemao

 

eu tenho no meu form campos que sao dinamicos ja fiz os passo a passo que me ensinaram pra criar os imputs dinamicos

desta forma

 

eu so qeria que nao duplicasse a chave sei la pra eu poder criar os imputs dinamicos ja fiz os imputs assim

 

<input name="instituicao[]" type="text" class="input_text" size="40" maxlength="145" value="<%=resultado("instituicao")%>

 

fiz o request com split e fiz o for assim For i = 0 To Ubound(instituicao)

 

so que parece que o split nao ta fncionando por causa do URequest que faço por causa do upload alguem tem algum upload que permida add varios com msm name e que incremente sei la

 

so que msm eu fazendo isso td ele da esse erro dizendo que essa tecla ja esta asociada a um elemento da colocao alguem pode me ajudar a resolver isso por favor

 

eu estou usando pra fazer upload o

Scripting.Dictionary

como resolvo o problema ?

 

como faço pra que ele aceite os campos?

[saloeric 1]

havia problema se usasse um upload multiplo como o uploadify ?

[~Thiago Lara 0]

uploadify é ótimo!, recomendo vale a pena demais usar, além de ter uma interface bastante amigável e ser de fácil implementação

[xanburzum 169]

ele esta gerando algum numero de erro ?

 

eu coloquei um exemplo de criar campos dinâmicos, usando upload, faça uma pesquisa, vai te ajudar

[Daiana 0]

sim ele diz que essa tecla ja esta associada a um elemento da coleção

[xanburzum 169]

poste o código, junto com a linha que gera o problema e o numero do erro

[Daiana 0]

poste o código, junto com a linha que gera o problema e o numero do erro

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01C9)

Esta tecla já está associada com um elemento desta coleção

/rh/upload.asp, line 56

esse e meu codigo de upload

 

 

Dim UploadRequest,filename
Set UploadRequest = CreateObject("Scripting.Dictionary")

Sub BuildUploadRequest(RequestBin)
   'Get the boundary
   PosBeg = 1
   PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
   boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
   boundaryPos = InstrB(1,RequestBin,boundary)
   'Get all data inside the boundaries
   Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
       'Members variable of objects are put in a dictionary object
       Dim UploadControl
       Set UploadControl = CreateObject("Scripting.Dictionary")
       'Get an object name
       Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
       Pos = InstrB(Pos,RequestBin,getByteString("name="))
       PosBeg = Pos+6
       PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
       Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
       PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
       PosBound = InstrB(PosEnd,RequestBin,boundary)
       'Test if object is of file type
       If  PosFile<>0 AND (PosFile<PosBound) Then
           'Get Filename, content-type and content of file
           PosBeg = PosFile + 10
           PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
           FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
           'Add filename to dictionary object
           UploadControl.Add "FileName", FileName
           Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
           PosBeg = Pos+14
           PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
           'Add content-type to dictionary object
           ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
           UploadControl.Add "ContentType",ContentType
           'Get content of object
           PosBeg = PosEnd+4
           PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
           Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
           Else
           'Get content of object
           Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
           PosBeg = Pos+4
           PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
           Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
       End If
       'Add content to dictionary object
   UploadControl.Add "Value" , Value
       'Add dictionary object to main dictionary
'Essa e a Linha 56 
 UploadRequest.Add name, UploadControl
       'Loop to next object
       BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
   Loop
End Sub

'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
   char = Mid(StringStr,i,1)
   getByteString = getByteString & chrB(AscB(char))
Next
End Function

'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
   getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

Function MontaTipo(strPath)
   Dim intpos
   intpos = InStrRev(strPath, "\", Len(strPath) - 1)
   MontaTipo = Mid(strPath, intpos + 1, Len(strPath) - intpos - 1)
End Function

'Preenche o dicionário UploadRequest para que se possa
'ler os campos através dele.
Function upload_ReadRequest
   Response.Expires=0
   Response.Buffer = TRUE
   Response.Clear
   byteCount = Request.TotalBytes
   RequestBin = Request.BinaryRead(byteCount)
   BuildUploadRequest  RequestBin
End Function

'Salva um arquivo por upload em caminho se for de um dos
'tipos em ExtensoesPermitidas (string no formato
'"jpg,jpeg,gif")
'Para salvar com o mesmo nome do envio, passe uma String
'vazia para nome.
Function upload_SalvaArquivo(Campo,Caminho,Nome,ExtensoesPermitidas)

   'Segurança (bastante óbvio, não?)
   EstensoesProibidas=",exe,asp,php,sql,bat,pif,ocx,dll,aspx,shtml,"
   ExtensoesPermitidas="," & ExtensoesPermitidas & ","

   'Onde salvar
   strPath = Caminho
   if right(strPath,1)<>"\" then
       strPath=strPath&"\"
   end if

   'Caminho original do arquivo.
   filepathname = UploadRequest.Item(Campo).Item("FileName")

   'Obtém a extensão
   For i = Len(filepathname) To 1 Step -1
       If Mid(filepathname, i, 1) = "." Then Exit For
   Next
   extensao = Right(filepathname, Len(filepathname) - i)

   'Verifica se a extensão é dos tipos permitidos.
   if ExtensoesPermitidas=",*," then
       pode=(InStr(extensao,EstensoesProibidas)=0)
   else
       pode=(InStr(extensao,EstensoesPermitidas)>0)
   end if

   if pode then

       'On Error Resume Next

       value = UploadRequest.Item(Campo).Item("Value")

       'Create FileSytemObject Component
       Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

       'Cria a pasta se ela não existir
       if not ScriptObject.FolderExists(strPath) then ScriptObject.CreateFolder(strPath)

       'Obtém o nome do arquivo a salvar
       filename = Nome
       if filename="" then
           For i = Len(filepathname) To 1 Step -1
               If Mid(filepathname, i, 1) = "\" Then Exit For
           Next
           filename = Right(filepathname, Len(filepathname) - i)
       end if

       'Create and Write to a File (WARNING: Overwrites existing!)
       pathfilename = strPath & filename
       Set MyFile = ScriptObject.CreateTextFile(pathfilename,true)

       For i = 1 to LenB(value)
           MyFile.Write chr(AscB(MidB(value,i,1)))
       Next

       MyFile.Close

       ' verificar se imagem foi enviada com sucesso.
       if Err.number = 0 then
           msgEnvio="Enviado com sucesso!"
       else
           msgEnvio="Ocorreu um erro no envio!"
       end if
       Err.Clear
   else
       msgEnvio="Extensão inválida!"
   end if

   upload_SalvaArquivo=msgEnvio

end function

function uRequest(n)
   uRequest=""
   if UploadRequest.Exists(n) then uRequest=UploadRequest.Item(n).Item("Value")
end function

[xanburzum 169]

Alguns código de upload (por exemplo, ASPSmartUpload e PureASP Upload) atribui elementos input type = arquivo para um índice interno / objeto do dicionário. Se você tem elementos de vários arquivos com o mesmo nome, este erro irá ocorrer , para corrigir o problema de nomenclatura. Isso também pode acontecer com versões mais antigas do Internet Explorer, que teve problemas de codificação de caracteres ,quando cometer um post HTTP.