Upload s/ componente + BD

Salve Galera http://forum.imasters.com.br/public/style_emoticons/default/joia.gif Eu tô com um problema que nunca havia me deparado antes, seguinte:Preciso fazer um upload de dois arquivos que estão em um formulário com outros tantos campos, até aí beleza http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif O problema é que o servidor onde meu cliente esta hospedado não é daqui é da Itália, e não tem suporte a nenhum componente de upload :blink: Sei que consigo fazer o upload somente com o código ASP sem componentes, com o FSO, e até consegui achar um script que faz isso, o problema agora é como chamar o restante dos campos que estavam no formulário para que eu possa gravar tudo no bd?Segue o arquivo que faz o upload sem componente:

<%@ Language=VBScript %><%Dim Contador, Tamanho, iDim ConteudoBinario, ConteudoTextoDim Delimitador, Posicao1, Posicao2Dim ArquivoNome, ArquivoConteudo, PastaDestinoDim objFSO, objArquivoPastaDestino = Server.MapPath("imagens")'Determina o tamanho do conteúdoTamanho = Request.TotalBytes'Obtém o conteúdo no formato binárioConteudoBinario = Request.BinaryRead(Tamanho)'Transforma o conteúdo binário em stringFor Contador = 1 To Tamanho ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))Next lala = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, 1, 2))) Response.Write lala'Determina o delimitador de camposDelimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)'Percorre a String procurando os campos'identifica os arquivo e grava no discoSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)i=0do while Truei=i+1 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 '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 Set objArquivo = objFSO.CreateTextFile(PastaDestino & "\" & ArquivoNome, true) objArquivo.WriteLine ArquivoConteudo objArquivo.Close 'Response.write "Arquivo " & PastaDestino & "\" & _ 'ArquivoNome &" Gravado com sucesso!<br>" IF i = 1 Then ArquivoNome1 = ArquivoNome IF i = 2 Then ArquivoNome2 = ArquivoNome Set objArquivo = nothing end ifend ifLoopSet objFSO = nothing%>

Sei que qdo se usa "Request.BinaryRead" não é possível usar a coleção Request, então como devo chamar os outros campos do formulário?Ficaria muito grata se alguém pudesse me ajudar, pq é urgente! :( Desde já agradeço... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif BJKSLUAMM