kabulozo

Bom... consegui o que eu queria... mas (tem sempre um mas na história.. hauhaua), tem um problema.

É o seguinte, em uma mesma tabela no banco de dados eu tenho as colunas MINIATURA e FOTO.

Como é que eu faço pra ele fazer o loop e cadastrar o nome da MINIATURA e da FOTO respectivamente???

Tentei isso, mas num deu certo:

Set fso = CreateObject("Scripting.FileSystemObject")
Set str_PFotos = fso.GetFolder(Server.MapPath("../eventos/" &str_Evento&str_DatDia&str_DatMes&int_DatAno& "/fotos/"))
Set str_PMini = fso.GetFolder(Server.MapPath("../eventos/" &str_Evento&str_DatDia&str_DatMes&int_DatAno& "/miniaturas/"))

For Each Foto in str_PFotos.Files
For Each Miniatura in str_PMini.Files
sql = "INSERT INTO "
sql = sql & " adm_fotos "
sql = sql & " (adm_age_id,adm_cob_id,adm_fot_fmi,adm_fot_fot) "
sql = sql & " VALUES "
sql = sql & " ("&int_idEvento&","&int_idCobertura&",'"&Miniatura.Name&"','"&Foto.Name&"') "
con.Execute(sql)
Next
Next
 
Set str_PFotos = Nothing
Set str_PMini = Nothing
Set fso = Nothing

Ele gerou uns 5 mil registros

Alguém me da uma luz por favor

Aproveitando a resposta.
Como faço pra pegar o valor total de arquivos na pasta e exibir este número?

Vlw

Humm.... pelo link que o Generation passo, eu tive uma idéia aqui... agora vo testar pra v c da certo... c issu funciona... cadastrar fotos vai ser uma facilidade so....

Bom galera.... consegui resolver o meu problema.... vejam o que fiz:

cont = 1
cont1 = 2
Do while cont < 11
str_FotosMini = Upload.Files(cont).ExtractFileName
str_Fotos = Upload.Files(cont1).ExtractFileName
sql = "INSERT INTO "
sql = sql & " adm_fotos "
sql = sql & " (adm_age_id,adm_cob_id,adm_fot_fmi,adm_fot_fot) "
sql = sql & " VALUES "
sql = sql & " ("&int_idEvento&","&int_idCobertura&",'"&str_FotosMini&"','"&str_Fotos&"') "
con.Execute(sql)
cont = cont + 2
cont1 = cont1 + 2
Loop

O que fiz foi adicionar mais um cont (cont1) e ao invéz de somar +1 no final, eu somei +2 para ficarem como numeros impares e pares... e funciono legal.

Vlwww

Ninguém por aqui tem alguma solução para este problema???

Não existe linha 223 no arquivo.

Esta linha ele cita no arquivo /iisHelp/common/500-100.asp.
Só não sei pq....