UPLOAD - miniaturas e tam. normal ao mesmo tempo.

Fala galera!

Estou utilizando o upload sem componentes (excelente por sinal), funciona 100%.

Porém, quero exigir um pouco mais...

Tenho um sistema interno que apenas um usuário utiliza, a função do sistema é inserir no site imagens todos os dias.

As imagens se dividem em: THUMBS (para pré visualização) e GRANDES (para visualização na integra).

Hoje ao cadastrar essas imagens, primeiro aparece um formulário para o cadastro das grandes, após o envio deste formulário aparece o formúlário das pequenas.

Localmente as imagens ficam nos diretórios da seguinte forma:

GRANDES: C:/site/imagens/grandes/

THUMBS: C:/site/imagens/thumbs/

Ai vem o meu desafio, quero tornar mais prático o cadastro destas imagens, quero cadastrar as imagens grandes e os Thumbs de uma só vez, vocês acham que isso é possível?

Fiz alguns testes mas nenhum deu certo, tentei:

teste = Replace(meu_caminho,"grandes","thumbs")

O caminho até corrigiu mas não deu certo ao tentar fazer o upload.

Abaixo vai o meu código atual:

ASP
<!-- #include file = "upload_funcoes.asp" --><!--#INCLUDE file="../paginas/conecta.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 ----------------------

pasta_link = UploadRequest.Item("pasta").Item("Value")

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

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

abre

for i = 1 to numero

tipo_foto       = UploadRequest.Item("imagem_"&i&"").Item("ContentType")

caminho_foto = UploadRequest.Item("imagem_"&i&"").Item("FileName")

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

foto             = UploadRequest.Item("imagem_"&i&"").Item("Value")

nome_foto       = "/"&nome_foto

if foto <> "" then

pasta = Server.MapPath("../imagens/"&pasta_link)'pasta a ser salva a imagem

arquivo = Len(nome_foto) - 1 'faz a contagem dos caracteres do arquivo sem a /

nome_ok = right(nome_foto,arquivo) 'retira a barra do nome do arquivo usando a contagem

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For a = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,a,1)))

Next

MyFile.Close

        sql = "Insert into imagens (imagem,pasta,book) values ('"& nome_ok &"','"& pasta_link &"','"& book &"')"

        Conexao.Execute(sql)

end if

next

fecha

Response.redirect "insere_miniaturas.asp?pasta="&pasta_link&"&numero="&numero&"&book="&book

%>

Desculpem o tópico longo...

Desde já obrigado!

Michael C.