Request.Form com o FreeAspUpload

[Maximum2003 0]

Request.Form com o FreeAspUploadAlguém já fez?Estou desesperado.....ME ajudem pelo amor do santo Deus... :huh:

[Maximum2003 0]

Só para lembrar é que o Request.BinaryRead não suporta um Request.form após sua execução. Me aconselharam a dara um objetoupload.form porém tentei com os objetos que estão sendo abertos e não obtive êxito... Socorro!

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

[Mário Monteiro 179]

cara e o seguinte como está sua pagina de upload?? não é a pagina da classe...

[Maximum2003 0]

Tem um submit com os campos de upload '

<input type=file name=foto1>

e quero recuperar dados do campo

<input type=text name=texto>

A função que executa o upload é essa abaixo, já te mostrei o código da classe também...:

Function fsSalvarArquivos()	Dim Upload, fileName, fileSize, ks, i, fileKey	Session("vnCD_BOLEANO_D_ERRO_UPLOAD_ALOU") = Null	Upload = ""	Set Upload = New FreeASPUpload	Upload.Save(uploadsDirVar)	If Err.Number<>0 Then   Exit Function	End If	fsTela(Upload.form("ttNOME_GALERIA"))	fsSalvarArquivos = ""	ks = ""	ks = Upload.UploadedFiles.keys	If (UBound(ks) <> -1) Then  fsSalvarArquivos = "<B>Arquivos carregados:</B> "  For Each fileKey in Upload.UploadedFiles.keys 	 fsSalvarArquivos = fsSalvarArquivos & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "  Next	Else  fsSalvarArquivos = fsObterIdiomaEntidade("Arquivo incompatível!")	End IfEnd Function

[Maximum2003 0]

Tem um submit com os campos de upload '

<input type=file name=foto1>

e quero recuperar dados do campo

<input type=text name=texto>

A função que executa o upload é essa abaixo, já te mostrei o código da classe também...:

Function fsSalvarArquivos()	Dim Upload, fileName, fileSize, ks, i, fileKey	Session("vnCD_BOLEANO_D_ERRO_UPLOAD_ALOU") = Null	Upload = ""	Set Upload = New FreeASPUpload	Upload.Save(uploadsDirVar)	If Err.Number<>0 Then   Exit Function	End If	fsTela(Upload.form("ttNOME_GALERIA"))	fsSalvarArquivos = ""	ks = ""	ks = Upload.UploadedFiles.keys	If (UBound(ks) <> -1) Then  fsSalvarArquivos = "<B>Arquivos carregados:</B> "  For Each fileKey in Upload.UploadedFiles.keys  	fsSalvarArquivos = fsSalvarArquivos & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "  Next	Else  fsSalvarArquivos = fsObterIdiomaEntidade("Arquivo incompatível!")	End IfEnd Function

uploadsDirVar é o diretório onde serão armazenadas as páginas o comando Upload.Save invoca a procedure:

[COLOR=blue]	Public Sub Save(path)  Dim streamFile, fileItem  if Right(path, 1) <> "\" then path = path & "\"  if not uploadedYet then Upload  vnContadorUpload = 0  For Each fileItem In UploadedFiles.Items 	 vnContadorUpload = vnContadorUpload + 1 	 Set streamFile = Server.CreateObject("ADODB.Stream") 	 streamFile.Type = 1 	 streamFile.Open 	 StreamRequest.Position=fileItem.Start 	 StreamRequest.CopyTo streamFile, fileItem.Length 	 vsNomeArquivo = fileItem.FileName 	 vsNomeArquivo = fsRemoverIlegais(vsNomeArquivo) 	 vsNomeArquivo = fsRemoverAcentos(vsNomeArquivo) 	 vsNomeArquivo = Replace(vsNomeArquivo, " ", "") 	 streamFile.SaveToFile path & vsNomeArquivo, 2 	 streamFile.close 	 Set streamFile = Nothing 	 fileItem.Path = path & vsNomeArquivo   Next	End Sub[/COLOR]

[Mário Monteiro 179]

cara faz assim que rolatexto = Upload.form("texto")mas lá no input texto poe as aspas no nome dele...

[Mário Monteiro 179]

so mais uma coisa grava este texto dentro do for que testa