(Resolvido) Upload criando mais de um código.

Rede3d · Janeiro 6, 2011

Bom dia a todos... Amigos estou com um problema na hora de subir imagens para o meu site via FTP ( UPLOAD SEM COMPONENTES ).

Estou usando um código q peguei aqui na Scriptbrasil... Originalmente seria para subir 1 imagem por vez. Bem, estou subindo 40 imagens sem problema... o q acontece é q preciso subir 400 imagens.

o que eu fiz foi criar uma primeira página q sobe 40 imagens, ao final ela redireciona e chama a segunda página para subir mais 40 imagens, nesta hora, o q é feito é o seguinte; sobe tudo na boa mas no bd é criado uma segunda linha e incerindo as 40 imagens na linha de baixo. Não na mesma linha do código 05 por exemplo. Com isso detona minha vida. rs rs.

vou postar a rotina completa para ver se facilita um possível intendimento.

Agradeço a todos....

PRIMEIRA PÁGINA É UM FORME COM 40 CAMPOS Q ABASTECEM A ASP ABAIXO....

<%

' 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 ----------------------

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

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

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

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

' Tipo de arquivo que esta sendo enviado

tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")

tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")

tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")

tipo_foto6 = UploadRequest.Item("foto6").Item("ContentType")

tipo_foto7 = UploadRequest.Item("foto7").Item("ContentType")

tipo_foto8 = UploadRequest.Item("foto8").Item("ContentType")

tipo_foto9 = UploadRequest.Item("foto9").Item("ContentType")

tipo_foto10 = UploadRequest.Item("foto10").Item("ContentType")

tipo_foto11 = UploadRequest.Item("foto11").Item("ContentType")

tipo_foto12 = UploadRequest.Item("foto12").Item("ContentType")

tipo_foto13 = UploadRequest.Item("foto13").Item("ContentType")

tipo_foto14 = UploadRequest.Item("foto14").Item("ContentType")

tipo_foto15 = UploadRequest.Item("foto15").Item("ContentType")

tipo_foto16 = UploadRequest.Item("foto16").Item("ContentType")

tipo_foto17 = UploadRequest.Item("foto17").Item("ContentType")

tipo_foto18 = UploadRequest.Item("foto18").Item("ContentType")

tipo_foto19 = UploadRequest.Item("foto19").Item("ContentType")

tipo_foto20 = UploadRequest.Item("foto20").Item("ContentType")

tipo_foto21 = UploadRequest.Item("foto21").Item("ContentType")

tipo_foto22 = UploadRequest.Item("foto22").Item("ContentType")

tipo_foto23 = UploadRequest.Item("foto23").Item("ContentType")

tipo_foto24 = UploadRequest.Item("foto24").Item("ContentType")

tipo_foto25 = UploadRequest.Item("foto25").Item("ContentType")

tipo_foto26 = UploadRequest.Item("foto26").Item("ContentType")

tipo_foto27 = UploadRequest.Item("foto27").Item("ContentType")

tipo_foto28 = UploadRequest.Item("foto28").Item("ContentType")

tipo_foto29 = UploadRequest.Item("foto29").Item("ContentType")

tipo_foto30 = UploadRequest.Item("foto30").Item("ContentType")

tipo_foto31 = UploadRequest.Item("foto31").Item("ContentType")

tipo_foto32 = UploadRequest.Item("foto32").Item("ContentType")

tipo_foto33 = UploadRequest.Item("foto33").Item("ContentType")

tipo_foto34 = UploadRequest.Item("foto34").Item("ContentType")

tipo_foto35 = UploadRequest.Item("foto35").Item("ContentType")

tipo_foto36 = UploadRequest.Item("foto36").Item("ContentType")

tipo_foto37 = UploadRequest.Item("foto37").Item("ContentType")

tipo_foto38 = UploadRequest.Item("foto38").Item("ContentType")

tipo_foto39 = UploadRequest.Item("foto39").Item("ContentType")

tipo_foto40 = UploadRequest.Item("foto40").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")

caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")

caminho_foto5 = UploadRequest.Item("foto5").Item("FileName")

caminho_foto6 = UploadRequest.Item("foto6").Item("FileName")

caminho_foto7 = UploadRequest.Item("foto7").Item("FileName")

caminho_foto8 = UploadRequest.Item("foto8").Item("FileName")

caminho_foto9 = UploadRequest.Item("foto9").Item("FileName")

caminho_foto10 = UploadRequest.Item("foto10").Item("FileName")

caminho_foto11 = UploadRequest.Item("foto11").Item("FileName")

caminho_foto12 = UploadRequest.Item("foto12").Item("FileName")

caminho_foto13 = UploadRequest.Item("foto13").Item("FileName")

caminho_foto14 = UploadRequest.Item("foto14").Item("FileName")

caminho_foto15 = UploadRequest.Item("foto15").Item("FileName")

caminho_foto16 = UploadRequest.Item("foto16").Item("FileName")

caminho_foto17 = UploadRequest.Item("foto17").Item("FileName")

caminho_foto18 = UploadRequest.Item("foto18").Item("FileName")

caminho_foto19 = UploadRequest.Item("foto19").Item("FileName")

caminho_foto20 = UploadRequest.Item("foto20").Item("FileName")

caminho_foto21 = UploadRequest.Item("foto21").Item("FileName")

caminho_foto22 = UploadRequest.Item("foto22").Item("FileName")

caminho_foto23 = UploadRequest.Item("foto23").Item("FileName")

caminho_foto24 = UploadRequest.Item("foto24").Item("FileName")

caminho_foto25 = UploadRequest.Item("foto25").Item("FileName")

caminho_foto26 = UploadRequest.Item("foto26").Item("FileName")

caminho_foto27 = UploadRequest.Item("foto27").Item("FileName")

caminho_foto28 = UploadRequest.Item("foto28").Item("FileName")

caminho_foto29 = UploadRequest.Item("foto29").Item("FileName")

caminho_foto30 = UploadRequest.Item("foto30").Item("FileName")

caminho_foto31 = UploadRequest.Item("foto31").Item("FileName")

caminho_foto32 = UploadRequest.Item("foto32").Item("FileName")

caminho_foto33 = UploadRequest.Item("foto33").Item("FileName")

caminho_foto34 = UploadRequest.Item("foto34").Item("FileName")

caminho_foto35 = UploadRequest.Item("foto35").Item("FileName")

caminho_foto36 = UploadRequest.Item("foto36").Item("FileName")

caminho_foto37 = UploadRequest.Item("foto37").Item("FileName")

caminho_foto38 = UploadRequest.Item("foto38").Item("FileName")

caminho_foto39 = UploadRequest.Item("foto39").Item("FileName")

caminho_foto40 = UploadRequest.Item("foto40").Item("FileName")

' Nome dos arquivos enviados

nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))

nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))

nome_foto6 = Right(caminho_foto6,Len(caminho_foto6)-InstrRev(caminho_foto6,"\"))

nome_foto7 = Right(caminho_foto7,Len(caminho_foto7)-InstrRev(caminho_foto7,"\"))

nome_foto8 = Right(caminho_foto8,Len(caminho_foto8)-InstrRev(caminho_foto8,"\"))

nome_foto9 = Right(caminho_foto9,Len(caminho_foto9)-InstrRev(caminho_foto9,"\"))

nome_foto10 = Right(caminho_foto10,Len(caminho_foto10)-InstrRev(caminho_foto10,"\"))

nome_foto11 = Right(caminho_foto11,Len(caminho_foto11)-InstrRev(caminho_foto11,"\"))

nome_foto12 = Right(caminho_foto12,Len(caminho_foto12)-InstrRev(caminho_foto12,"\"))

nome_foto13 = Right(caminho_foto13,Len(caminho_foto13)-InstrRev(caminho_foto13,"\"))

nome_foto14 = Right(caminho_foto14,Len(caminho_foto14)-InstrRev(caminho_foto14,"\"))

nome_foto15 = Right(caminho_foto15,Len(caminho_foto15)-InstrRev(caminho_foto15,"\"))

nome_foto16 = Right(caminho_foto16,Len(caminho_foto16)-InstrRev(caminho_foto16,"\"))

nome_foto17 = Right(caminho_foto17,Len(caminho_foto17)-InstrRev(caminho_foto17,"\"))

nome_foto18 = Right(caminho_foto18,Len(caminho_foto18)-InstrRev(caminho_foto18,"\"))

nome_foto19 = Right(caminho_foto19,Len(caminho_foto19)-InstrRev(caminho_foto19,"\"))

nome_foto20 = Right(caminho_foto20,Len(caminho_foto20)-InstrRev(caminho_foto20,"\"))

nome_foto21 = Right(caminho_foto21,Len(caminho_foto21)-InstrRev(caminho_foto21,"\"))

nome_foto22 = Right(caminho_foto22,Len(caminho_foto22)-InstrRev(caminho_foto22,"\"))

nome_foto23 = Right(caminho_foto23,Len(caminho_foto23)-InstrRev(caminho_foto23,"\"))

nome_foto24 = Right(caminho_foto24,Len(caminho_foto24)-InstrRev(caminho_foto24,"\"))

nome_foto25 = Right(caminho_foto25,Len(caminho_foto25)-InstrRev(caminho_foto25,"\"))

nome_foto26 = Right(caminho_foto26,Len(caminho_foto26)-InstrRev(caminho_foto26,"\"))

nome_foto27 = Right(caminho_foto27,Len(caminho_foto27)-InstrRev(caminho_foto27,"\"))

nome_foto28 = Right(caminho_foto28,Len(caminho_foto28)-InstrRev(caminho_foto28,"\"))

nome_foto29 = Right(caminho_foto29,Len(caminho_foto29)-InstrRev(caminho_foto29,"\"))

nome_foto30 = Right(caminho_foto30,Len(caminho_foto30)-InstrRev(caminho_foto30,"\"))

nome_foto31 = Right(caminho_foto31,Len(caminho_foto31)-InstrRev(caminho_foto31,"\"))

nome_foto32 = Right(caminho_foto32,Len(caminho_foto32)-InstrRev(caminho_foto32,"\"))

nome_foto33 = Right(caminho_foto33,Len(caminho_foto33)-InstrRev(caminho_foto33,"\"))

nome_foto34 = Right(caminho_foto34,Len(caminho_foto34)-InstrRev(caminho_foto34,"\"))

nome_foto35 = Right(caminho_foto35,Len(caminho_foto35)-InstrRev(caminho_foto35,"\"))

nome_foto36 = Right(caminho_foto36,Len(caminho_foto36)-InstrRev(caminho_foto36,"\"))

nome_foto37 = Right(caminho_foto37,Len(caminho_foto37)-InstrRev(caminho_foto37,"\"))

nome_foto38 = Right(caminho_foto38,Len(caminho_foto38)-InstrRev(caminho_foto38,"\"))

nome_foto39 = Right(caminho_foto39,Len(caminho_foto39)-InstrRev(caminho_foto39,"\"))

nome_foto40 = Right(caminho_foto40,Len(caminho_foto40)-InstrRev(caminho_foto40,"\"))

' Conteudo binario dos arquivos enviados

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/Fotos/")

nome_foto1 = "/"&nome_foto1

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

nome_foto4 = "/"&nome_foto4

nome_foto5 = "/"&nome_foto5

nome_foto6 = "/"&nome_foto6

nome_foto7 = "/"&nome_foto7

nome_foto8 = "/"&nome_foto8

nome_foto9 = "/"&nome_foto9

nome_foto10 = "/"&nome_foto10

nome_foto11 = "/"&nome_foto11

nome_foto12 = "/"&nome_foto12

nome_foto13 = "/"&nome_foto13

nome_foto14 = "/"&nome_foto14

nome_foto15 = "/"&nome_foto15

nome_foto16 = "/"&nome_foto16

nome_foto17 = "/"&nome_foto17

nome_foto18 = "/"&nome_foto18

nome_foto19 = "/"&nome_foto19

nome_foto20 = "/"&nome_foto20

nome_foto21 = "/"&nome_foto21

nome_foto22 = "/"&nome_foto22

nome_foto23 = "/"&nome_foto23

nome_foto24 = "/"&nome_foto24

nome_foto25 = "/"&nome_foto25

nome_foto26 = "/"&nome_foto26

nome_foto27 = "/"&nome_foto27

nome_foto28 = "/"&nome_foto28

nome_foto29 = "/"&nome_foto29

nome_foto30 = "/"&nome_foto30

nome_foto31 = "/"&nome_foto31

nome_foto32 = "/"&nome_foto32

nome_foto33 = "/"&nome_foto33

nome_foto34 = "/"&nome_foto34

nome_foto35 = "/"&nome_foto35

nome_foto36 = "/"&nome_foto36

nome_foto37 = "/"&nome_foto37

nome_foto38 = "/"&nome_foto38

nome_foto39 = "/"&nome_foto39

nome_foto40 = "/"&nome_foto40

' pasta + nome dos arquivos

cfoto1 = nome_foto1

cfoto2 = nome_foto2

cfoto3 = nome_foto3

cfoto4 = nome_foto4

cfoto5 = nome_foto5

cfoto6 = nome_foto6

cfoto7 = nome_foto7

cfoto8 = nome_foto8

cfoto9 = nome_foto9

cfoto10 = nome_foto10

cfoto11 = nome_foto11

cfoto12 = nome_foto12

cfoto13 = nome_foto13

cfoto14 = nome_foto14

cfoto15 = nome_foto15

cfoto16 = nome_foto16

cfoto17 = nome_foto17

cfoto18 = nome_foto18

cfoto19 = nome_foto19

cfoto20 = nome_foto20

cfoto21 = nome_foto21

cfoto22 = nome_foto22

cfoto23 = nome_foto23

cfoto24 = nome_foto24

cfoto25 = nome_foto25

cfoto26 = nome_foto26

cfoto27 = nome_foto27

cfoto28 = nome_foto28

cfoto29 = nome_foto29

cfoto30 = nome_foto30

cfoto31 = nome_foto31

cfoto32 = nome_foto32

cfoto33 = nome_foto33

cfoto34 = nome_foto34

cfoto35 = nome_foto35

cfoto36 = nome_foto36

cfoto37 = nome_foto37

cfoto38 = nome_foto38

cfoto39 = nome_foto39

cfoto40 = nome_foto40

' Fazendo o Upload do arquivo selecionado

if foto1 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)

For i = 1 to LenB(foto1)

MyFile.Write chr(AscB(MidB(foto1,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto2 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

For i = 1 to LenB(foto2)

MyFile.Write chr(AscB(MidB(foto2,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto3 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

For i = 1 to LenB(foto3)

MyFile.Write chr(AscB(MidB(foto3,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto4 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)

For i = 1 to LenB(foto4)

MyFile.Write chr(AscB(MidB(foto4,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto5 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)

For i = 1 to LenB(foto5)

MyFile.Write chr(AscB(MidB(foto5,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto6 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto6)

For i = 1 to LenB(foto6)

MyFile.Write chr(AscB(MidB(foto6,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto7 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto7)

For i = 1 to LenB(foto7)

MyFile.Write chr(AscB(MidB(foto7,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto8 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto8)

For i = 1 to LenB(foto8)

MyFile.Write chr(AscB(MidB(foto8,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto9 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto9)

For i = 1 to LenB(foto9)

MyFile.Write chr(AscB(MidB(foto9,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto10 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto10)

For i = 1 to LenB(foto10)

MyFile.Write chr(AscB(MidB(foto10,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto11 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto11)

For i = 1 to LenB(foto11)

MyFile.Write chr(AscB(MidB(foto11,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto12 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto12)

For i = 1 to LenB(foto12)

MyFile.Write chr(AscB(MidB(foto12,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto13 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto13)

For i = 1 to LenB(foto13)

MyFile.Write chr(AscB(MidB(foto13,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto14 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto14)

For i = 1 to LenB(foto14)

MyFile.Write chr(AscB(MidB(foto14,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto15 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto15)

For i = 1 to LenB(foto15)

MyFile.Write chr(AscB(MidB(foto15,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto16 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto16)

For i = 1 to LenB(foto16)

MyFile.Write chr(AscB(MidB(foto16,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto17 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto17)

For i = 1 to LenB(foto17)

MyFile.Write chr(AscB(MidB(foto17,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto18 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto18)

For i = 1 to LenB(foto18)

MyFile.Write chr(AscB(MidB(foto18,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto19 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto19)

For i = 1 to LenB(foto19)

MyFile.Write chr(AscB(MidB(foto19,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto20 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto20)

For i = 1 to LenB(foto20)

MyFile.Write chr(AscB(MidB(foto20,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto21 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto21)

For i = 1 to LenB(foto21)

MyFile.Write chr(AscB(MidB(foto21,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto22 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto22)

For i = 1 to LenB(foto22)

MyFile.Write chr(AscB(MidB(foto22,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto23 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto23)

For i = 1 to LenB(foto23)

MyFile.Write chr(AscB(MidB(foto23,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto24 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto24)

For i = 1 to LenB(foto24)

MyFile.Write chr(AscB(MidB(foto24,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto25 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto25)

For i = 1 to LenB(foto25)

MyFile.Write chr(AscB(MidB(foto25,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto26 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto26)

For i = 1 to LenB(foto26)

MyFile.Write chr(AscB(MidB(foto26,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto27 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto27)

For i = 1 to LenB(foto27)

MyFile.Write chr(AscB(MidB(foto27,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto28 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto28)

For i = 1 to LenB(foto28)

MyFile.Write chr(AscB(MidB(foto28,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto29 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto29)

For i = 1 to LenB(foto29)

MyFile.Write chr(AscB(MidB(foto29,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto30 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto30)

For i = 1 to LenB(foto30)

MyFile.Write chr(AscB(MidB(foto30,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto31 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto31)

For i = 1 to LenB(foto31)

MyFile.Write chr(AscB(MidB(foto31,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto32 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto32)

For i = 1 to LenB(foto32)

MyFile.Write chr(AscB(MidB(foto32,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto33 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto33)

For i = 1 to LenB(foto33)

MyFile.Write chr(AscB(MidB(foto33,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto34 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto34)

For i = 1 to LenB(foto34)

MyFile.Write chr(AscB(MidB(foto34,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto35 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto35)

For i = 1 to LenB(foto35)

MyFile.Write chr(AscB(MidB(foto35,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto36 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto36)

For i = 1 to LenB(foto36)

MyFile.Write chr(AscB(MidB(foto36,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto37 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto37)

For i = 1 to LenB(foto37)

MyFile.Write chr(AscB(MidB(foto37,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto38 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto38)

For i = 1 to LenB(foto38)

MyFile.Write chr(AscB(MidB(foto38,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto39 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto39)

For i = 1 to LenB(foto39)

MyFile.Write chr(AscB(MidB(foto39,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto40 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto40)

For i = 1 to LenB(foto40)

MyFile.Write chr(AscB(MidB(foto40,i,1)))

end if

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("XXX.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DBQ=D:/Trab_profissionais/Pasta_Web/WL_Studio/Dados/XXXX.mdb;driver={microsoft access driver (*.mdb)}"

' cadastra os dados no banco de dados

sql = "Insert into fotos_250 (nome, usuario, senha, data, foto1, foto2, foto3, foto4, foto5, foto6, foto7, foto8, foto9, foto10, foto11, foto12, foto13, foto14, foto15, foto16, foto17, foto18, foto19, foto20, foto21, foto22, foto23, foto24, foto25, foto26, foto27, foto28, foto29, foto30, foto31, foto32, foto33, foto34, foto35, foto36, foto37, foto38, foto39, foto40) values ('"&nome&"', '"&usuario&"', '"&senha&"', '"&data&"', '"&cfoto1&"', '"&cfoto2&"','"&cfoto3&"','"&cfoto4&"','"&cfoto5&"','"&cfoto6&"','"&cfoto7&"','"&cfoto8&"','"&cfoto9&"','"&cfoto10&"', '"&cfoto11&"', '"&cfoto12&"','"&cfoto13&"','"&cfoto14&"','"&cfoto15&"','"&cfoto16&"','"&cfoto17&"','"&cfoto18&"','"&cfoto19&"','"&cfoto20&"', '"&cfoto21&"', '"&cfoto22&"','"&cfoto23&"','"&cfoto24&"','"&cfoto25&"','"&cfoto26&"','"&cfoto27&"','"&cfoto28&"','"&cfoto29&"','"&cfoto30&"', '"&cfoto31&"', '"&cfoto32&"','"&cfoto33&"','"&cfoto34&"','"&cfoto35&"','"&cfoto36&"','"&cfoto37&"','"&cfoto38&"','"&cfoto39&"','"&cfoto40&"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "40 primeiras fotos cadastradas com Sucesso!"

' Redireciona após 5 segundos

response.write " você será redirecionado para o cadastro das próximas 40 fotos em 3 segundos.. "

response.write "<meta http-equiv='refresh' content='3; url=fotos_cadastro_02.asp'/>"

%>

AO FINAL DO INSERT É CHAMADA NOVO FORME COM MAIS 40 CAMPOS Q ABASTECE A PRÓXIMA ASP....

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

' Tipo de arquivo que esta sendo enviado

tipo_foto41 = UploadRequest.Item("foto41").Item("ContentType")

tipo_foto42 = UploadRequest.Item("foto42").Item("ContentType")

tipo_foto43 = UploadRequest.Item("foto43").Item("ContentType")

tipo_foto44 = UploadRequest.Item("foto44").Item("ContentType")

tipo_foto45 = UploadRequest.Item("foto45").Item("ContentType")

tipo_foto46 = UploadRequest.Item("foto46").Item("ContentType")

tipo_foto47 = UploadRequest.Item("foto47").Item("ContentType")

tipo_foto48 = UploadRequest.Item("foto48").Item("ContentType")

tipo_foto49 = UploadRequest.Item("foto49").Item("ContentType")

tipo_foto50 = UploadRequest.Item("foto50").Item("ContentType")

tipo_foto51 = UploadRequest.Item("foto51").Item("ContentType")

tipo_foto52 = UploadRequest.Item("foto52").Item("ContentType")

tipo_foto53 = UploadRequest.Item("foto53").Item("ContentType")

tipo_foto54 = UploadRequest.Item("foto54").Item("ContentType")

tipo_foto55 = UploadRequest.Item("foto55").Item("ContentType")

tipo_foto56 = UploadRequest.Item("foto56").Item("ContentType")

tipo_foto57 = UploadRequest.Item("foto57").Item("ContentType")

tipo_foto58 = UploadRequest.Item("foto58").Item("ContentType")

tipo_foto59 = UploadRequest.Item("foto59").Item("ContentType")

tipo_foto60 = UploadRequest.Item("foto60").Item("ContentType")

tipo_foto61 = UploadRequest.Item("foto61").Item("ContentType")

tipo_foto62 = UploadRequest.Item("foto62").Item("ContentType")

tipo_foto63 = UploadRequest.Item("foto63").Item("ContentType")

tipo_foto64 = UploadRequest.Item("foto64").Item("ContentType")

tipo_foto65 = UploadRequest.Item("foto65").Item("ContentType")

tipo_foto66 = UploadRequest.Item("foto66").Item("ContentType")

tipo_foto67 = UploadRequest.Item("foto67").Item("ContentType")

tipo_foto68 = UploadRequest.Item("foto68").Item("ContentType")

tipo_foto69 = UploadRequest.Item("foto69").Item("ContentType")

tipo_foto70 = UploadRequest.Item("foto70").Item("ContentType")

tipo_foto71 = UploadRequest.Item("foto71").Item("ContentType")

tipo_foto72 = UploadRequest.Item("foto72").Item("ContentType")

tipo_foto73 = UploadRequest.Item("foto73").Item("ContentType")

tipo_foto74 = UploadRequest.Item("foto74").Item("ContentType")

tipo_foto75 = UploadRequest.Item("foto75").Item("ContentType")

tipo_foto76 = UploadRequest.Item("foto76").Item("ContentType")

tipo_foto77 = UploadRequest.Item("foto77").Item("ContentType")

tipo_foto78 = UploadRequest.Item("foto78").Item("ContentType")

tipo_foto79 = UploadRequest.Item("foto79").Item("ContentType")

tipo_foto80 = UploadRequest.Item("foto80").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto41 = UploadRequest.Item("foto41").Item("FileName")

caminho_foto42 = UploadRequest.Item("foto42").Item("FileName")

caminho_foto43 = UploadRequest.Item("foto43").Item("FileName")

caminho_foto44 = UploadRequest.Item("foto44").Item("FileName")

caminho_foto45 = UploadRequest.Item("foto45").Item("FileName")

caminho_foto46 = UploadRequest.Item("foto46").Item("FileName")

caminho_foto47 = UploadRequest.Item("foto47").Item("FileName")

caminho_foto48 = UploadRequest.Item("foto48").Item("FileName")

caminho_foto49 = UploadRequest.Item("foto49").Item("FileName")

caminho_foto50 = UploadRequest.Item("foto50").Item("FileName")

caminho_foto51 = UploadRequest.Item("foto51").Item("FileName")

caminho_foto52 = UploadRequest.Item("foto52").Item("FileName")

caminho_foto53 = UploadRequest.Item("foto53").Item("FileName")

caminho_foto54 = UploadRequest.Item("foto54").Item("FileName")

caminho_foto55 = UploadRequest.Item("foto55").Item("FileName")

caminho_foto56 = UploadRequest.Item("foto56").Item("FileName")

caminho_foto57 = UploadRequest.Item("foto57").Item("FileName")

caminho_foto58 = UploadRequest.Item("foto58").Item("FileName")

caminho_foto59 = UploadRequest.Item("foto59").Item("FileName")

caminho_foto60 = UploadRequest.Item("foto60").Item("FileName")

caminho_foto61 = UploadRequest.Item("foto61").Item("FileName")

caminho_foto62 = UploadRequest.Item("foto62").Item("FileName")

caminho_foto63 = UploadRequest.Item("foto63").Item("FileName")

caminho_foto64 = UploadRequest.Item("foto64").Item("FileName")

caminho_foto65 = UploadRequest.Item("foto65").Item("FileName")

caminho_foto66 = UploadRequest.Item("foto66").Item("FileName")

caminho_foto67 = UploadRequest.Item("foto67").Item("FileName")

caminho_foto68 = UploadRequest.Item("foto68").Item("FileName")

caminho_foto69 = UploadRequest.Item("foto69").Item("FileName")

caminho_foto70 = UploadRequest.Item("foto70").Item("FileName")

caminho_foto71 = UploadRequest.Item("foto71").Item("FileName")

caminho_foto72 = UploadRequest.Item("foto72").Item("FileName")

caminho_foto73 = UploadRequest.Item("foto73").Item("FileName")

caminho_foto74 = UploadRequest.Item("foto74").Item("FileName")

caminho_foto75 = UploadRequest.Item("foto75").Item("FileName")

caminho_foto76 = UploadRequest.Item("foto76").Item("FileName")

caminho_foto77 = UploadRequest.Item("foto77").Item("FileName")

caminho_foto78 = UploadRequest.Item("foto78").Item("FileName")

caminho_foto79 = UploadRequest.Item("foto79").Item("FileName")

caminho_foto80 = UploadRequest.Item("foto80").Item("FileName")

' Nome dos arquivos enviados

nome_foto41 = Right(caminho_foto41,Len(caminho_foto41)-InstrRev(caminho_foto41,"\"))

nome_foto42 = Right(caminho_foto42,Len(caminho_foto42)-InstrRev(caminho_foto42,"\"))

nome_foto43 = Right(caminho_foto43,Len(caminho_foto43)-InstrRev(caminho_foto43,"\"))

nome_foto44 = Right(caminho_foto44,Len(caminho_foto44)-InstrRev(caminho_foto44,"\"))

nome_foto45 = Right(caminho_foto45,Len(caminho_foto45)-InstrRev(caminho_foto45,"\"))

nome_foto46 = Right(caminho_foto46,Len(caminho_foto46)-InstrRev(caminho_foto46,"\"))

nome_foto47 = Right(caminho_foto47,Len(caminho_foto47)-InstrRev(caminho_foto47,"\"))

nome_foto48 = Right(caminho_foto48,Len(caminho_foto48)-InstrRev(caminho_foto48,"\"))

nome_foto49 = Right(caminho_foto49,Len(caminho_foto49)-InstrRev(caminho_foto49,"\"))

nome_foto50 = Right(caminho_foto50,Len(caminho_foto50)-InstrRev(caminho_foto50,"\"))

nome_foto51 = Right(caminho_foto51,Len(caminho_foto51)-InstrRev(caminho_foto51,"\"))

nome_foto52 = Right(caminho_foto52,Len(caminho_foto52)-InstrRev(caminho_foto52,"\"))

nome_foto53 = Right(caminho_foto53,Len(caminho_foto53)-InstrRev(caminho_foto53,"\"))

nome_foto54 = Right(caminho_foto54,Len(caminho_foto54)-InstrRev(caminho_foto54,"\"))

nome_foto55 = Right(caminho_foto55,Len(caminho_foto55)-InstrRev(caminho_foto55,"\"))

nome_foto56 = Right(caminho_foto56,Len(caminho_foto56)-InstrRev(caminho_foto56,"\"))

nome_foto57 = Right(caminho_foto57,Len(caminho_foto57)-InstrRev(caminho_foto57,"\"))

nome_foto58 = Right(caminho_foto58,Len(caminho_foto58)-InstrRev(caminho_foto58,"\"))

nome_foto59 = Right(caminho_foto59,Len(caminho_foto59)-InstrRev(caminho_foto59,"\"))

nome_foto60 = Right(caminho_foto60,Len(caminho_foto60)-InstrRev(caminho_foto60,"\"))

nome_foto61 = Right(caminho_foto61,Len(caminho_foto61)-InstrRev(caminho_foto61,"\"))

nome_foto62 = Right(caminho_foto62,Len(caminho_foto62)-InstrRev(caminho_foto62,"\"))

nome_foto63 = Right(caminho_foto63,Len(caminho_foto63)-InstrRev(caminho_foto63,"\"))

nome_foto64 = Right(caminho_foto64,Len(caminho_foto64)-InstrRev(caminho_foto64,"\"))

nome_foto65 = Right(caminho_foto65,Len(caminho_foto65)-InstrRev(caminho_foto65,"\"))

nome_foto66 = Right(caminho_foto66,Len(caminho_foto66)-InstrRev(caminho_foto66,"\"))

nome_foto67 = Right(caminho_foto67,Len(caminho_foto67)-InstrRev(caminho_foto67,"\"))

nome_foto68 = Right(caminho_foto68,Len(caminho_foto68)-InstrRev(caminho_foto68,"\"))

nome_foto69 = Right(caminho_foto69,Len(caminho_foto69)-InstrRev(caminho_foto69,"\"))

nome_foto70 = Right(caminho_foto70,Len(caminho_foto70)-InstrRev(caminho_foto70,"\"))

nome_foto71 = Right(caminho_foto71,Len(caminho_foto71)-InstrRev(caminho_foto71,"\"))

nome_foto72 = Right(caminho_foto72,Len(caminho_foto72)-InstrRev(caminho_foto72,"\"))

nome_foto73 = Right(caminho_foto73,Len(caminho_foto73)-InstrRev(caminho_foto73,"\"))

nome_foto74 = Right(caminho_foto74,Len(caminho_foto74)-InstrRev(caminho_foto74,"\"))

nome_foto75 = Right(caminho_foto75,Len(caminho_foto75)-InstrRev(caminho_foto75,"\"))

nome_foto76 = Right(caminho_foto76,Len(caminho_foto76)-InstrRev(caminho_foto76,"\"))

nome_foto77 = Right(caminho_foto77,Len(caminho_foto77)-InstrRev(caminho_foto77,"\"))

nome_foto78 = Right(caminho_foto78,Len(caminho_foto78)-InstrRev(caminho_foto78,"\"))

nome_foto79 = Right(caminho_foto79,Len(caminho_foto79)-InstrRev(caminho_foto79,"\"))

nome_foto80 = Right(caminho_foto80,Len(caminho_foto80)-InstrRev(caminho_foto80,"\"))

' Conteudo binario dos arquivos enviados

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/Fotos/")

nome_foto41 = "/"&nome_foto41

nome_foto42 = "/"&nome_foto42

nome_foto43 = "/"&nome_foto43

nome_foto44 = "/"&nome_foto44

nome_foto45 = "/"&nome_foto45

nome_foto46 = "/"&nome_foto46

nome_foto47 = "/"&nome_foto47

nome_foto48 = "/"&nome_foto48

nome_foto49 = "/"&nome_foto49

nome_foto50 = "/"&nome_foto50

nome_foto51 = "/"&nome_foto51

nome_foto52 = "/"&nome_foto52

nome_foto53 = "/"&nome_foto53

nome_foto54 = "/"&nome_foto54

nome_foto55 = "/"&nome_foto55

nome_foto56 = "/"&nome_foto56

nome_foto57 = "/"&nome_foto57

nome_foto58 = "/"&nome_foto58

nome_foto59 = "/"&nome_foto59

nome_foto60 = "/"&nome_foto60

nome_foto61 = "/"&nome_foto61

nome_foto62 = "/"&nome_foto62

nome_foto63 = "/"&nome_foto63

nome_foto64 = "/"&nome_foto64

nome_foto65 = "/"&nome_foto65

nome_foto66 = "/"&nome_foto66

nome_foto67 = "/"&nome_foto67

nome_foto68 = "/"&nome_foto68

nome_foto69 = "/"&nome_foto69

nome_foto70 = "/"&nome_foto70

nome_foto71 = "/"&nome_foto71

nome_foto72 = "/"&nome_foto72

nome_foto73 = "/"&nome_foto73

nome_foto74 = "/"&nome_foto74

nome_foto75 = "/"&nome_foto75

nome_foto76 = "/"&nome_foto76

nome_foto77 = "/"&nome_foto77

nome_foto78 = "/"&nome_foto78

nome_foto79 = "/"&nome_foto79

nome_foto80 = "/"&nome_foto80

' pasta + nome dos arquivos

cfoto41 = nome_foto41

cfoto42 = nome_foto42

cfoto43 = nome_foto43

cfoto44 = nome_foto44

cfoto45 = nome_foto45

cfoto46 = nome_foto46

cfoto47 = nome_foto47

cfoto48 = nome_foto48

cfoto49 = nome_foto49

cfoto50 = nome_foto50

cfoto51 = nome_foto51

cfoto52 = nome_foto52

cfoto53 = nome_foto53

cfoto54 = nome_foto54

cfoto55 = nome_foto55

cfoto56 = nome_foto56

cfoto57 = nome_foto57

cfoto58 = nome_foto58

cfoto59 = nome_foto59

cfoto60 = nome_foto60

cfoto61 = nome_foto61

cfoto62 = nome_foto62

cfoto63 = nome_foto63

cfoto64 = nome_foto64

cfoto65 = nome_foto65

cfoto66 = nome_foto66

cfoto67 = nome_foto67

cfoto68 = nome_foto68

cfoto69 = nome_foto69

cfoto70 = nome_foto70

cfoto71 = nome_foto71

cfoto72 = nome_foto72

cfoto73 = nome_foto73

cfoto74 = nome_foto74

cfoto75 = nome_foto75

cfoto76 = nome_foto76

cfoto77 = nome_foto77

cfoto78 = nome_foto78

cfoto79 = nome_foto79

cfoto80 = nome_foto80

' Fazendo o Upload do arquivo selecionado

if foto41 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto41)

For i = 1 to LenB(foto41)

MyFile.Write chr(AscB(MidB(foto41,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto42 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto42)

For i = 1 to LenB(foto42)

MyFile.Write chr(AscB(MidB(foto42,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto43 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto43)

For i = 1 to LenB(foto43)

MyFile.Write chr(AscB(MidB(foto43,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto44 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto44)

For i = 1 to LenB(foto44)

MyFile.Write chr(AscB(MidB(foto44,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto45 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto45)

For i = 1 to LenB(foto45)

MyFile.Write chr(AscB(MidB(foto45,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto46 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto46)

For i = 1 to LenB(foto46)

MyFile.Write chr(AscB(MidB(foto46,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto47 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto47)

For i = 1 to LenB(foto47)

MyFile.Write chr(AscB(MidB(foto47,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto48 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto48)

For i = 1 to LenB(foto48)

MyFile.Write chr(AscB(MidB(foto48,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto49 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto49)

For i = 1 to LenB(foto49)

MyFile.Write chr(AscB(MidB(foto49,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto50 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto50)

For i = 1 to LenB(foto50)

MyFile.Write chr(AscB(MidB(foto50,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto51 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto51)

For i = 1 to LenB(foto51)

MyFile.Write chr(AscB(MidB(foto51,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto52 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto52)

For i = 1 to LenB(foto52)

MyFile.Write chr(AscB(MidB(foto52,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto53 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto53)

For i = 1 to LenB(foto53)

MyFile.Write chr(AscB(MidB(foto53,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto54 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto54)

For i = 1 to LenB(foto54)

MyFile.Write chr(AscB(MidB(foto54,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto55 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto55)

For i = 1 to LenB(foto55)

MyFile.Write chr(AscB(MidB(foto55,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto56 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto56)

For i = 1 to LenB(foto56)

MyFile.Write chr(AscB(MidB(foto56,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto57 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto57)

For i = 1 to LenB(foto57)

MyFile.Write chr(AscB(MidB(foto57,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto58 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto58)

For i = 1 to LenB(foto58)

MyFile.Write chr(AscB(MidB(foto58,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto59 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto59)

For i = 1 to LenB(foto59)

MyFile.Write chr(AscB(MidB(foto59,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto60 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto60)

For i = 1 to LenB(foto60)

MyFile.Write chr(AscB(MidB(foto60,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto61 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto61)

For i = 1 to LenB(foto61)

MyFile.Write chr(AscB(MidB(foto61,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto62 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto62)

For i = 1 to LenB(foto62)

MyFile.Write chr(AscB(MidB(foto62,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto63 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto63)

For i = 1 to LenB(foto63)

MyFile.Write chr(AscB(MidB(foto63,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto64 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto64)

For i = 1 to LenB(foto64)

MyFile.Write chr(AscB(MidB(foto64,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto65 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto65)

For i = 1 to LenB(foto65)

MyFile.Write chr(AscB(MidB(foto65,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto66 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto66)

For i = 1 to LenB(foto66)

MyFile.Write chr(AscB(MidB(foto66,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto67 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto67)

For i = 1 to LenB(foto67)

MyFile.Write chr(AscB(MidB(foto67,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto68 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto68)

For i = 1 to LenB(foto68)

MyFile.Write chr(AscB(MidB(foto68,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto69 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto69)

For i = 1 to LenB(foto69)

MyFile.Write chr(AscB(MidB(foto69,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto70 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto70)

For i = 1 to LenB(foto70)

MyFile.Write chr(AscB(MidB(foto70,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto71 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto71)

For i = 1 to LenB(foto71)

MyFile.Write chr(AscB(MidB(foto71,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto72 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto72)

For i = 1 to LenB(foto72)

MyFile.Write chr(AscB(MidB(foto72,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto73 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto73)

For i = 1 to LenB(foto73)

MyFile.Write chr(AscB(MidB(foto73,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto74 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto74)

For i = 1 to LenB(foto74)

MyFile.Write chr(AscB(MidB(foto74,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto75 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto75)

For i = 1 to LenB(foto75)

MyFile.Write chr(AscB(MidB(foto75,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto76 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto76)

For i = 1 to LenB(foto76)

MyFile.Write chr(AscB(MidB(foto76,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto77 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto77)

For i = 1 to LenB(foto77)

MyFile.Write chr(AscB(MidB(foto77,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto78 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto78)

For i = 1 to LenB(foto78)

MyFile.Write chr(AscB(MidB(foto78,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto79 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto79)

For i = 1 to LenB(foto79)

MyFile.Write chr(AscB(MidB(foto79,i,1)))

end if

' Fazendo o Upload do arquivo selecionado

if foto80 <> "" then

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

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto80)

For i = 1 to LenB(foto80)

MyFile.Write chr(AscB(MidB(foto80,i,1)))

end if

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("XXXX")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DBQ=D:/Trab_profissionais/Pasta_Web/WL_Studio/Dados/XXXXX.mdb;driver={microsoft access driver (*.mdb)}"

' cadastra os dados no banco de dados

sql = "Insert into fotos_250 (foto41, foto42, foto43, foto44, foto45, foto46, foto47, foto48, foto49, foto50, foto51, foto52, foto53, foto54, foto55, foto56, foto57, foto58, foto59, foto60, foto61, foto62, foto63, foto64, foto65, foto66, foto67, foto68, foto69, foto70, foto71, foto72, foto73, foto74, foto75, foto76, foto77, foto78, foto79, foto80) values ('"&cfoto41&"', '"&cfoto42&"','"&cfoto43&"','"&cfoto44&"','"&cfoto45&"','"&cfoto46&"','"&cfoto47&"','"&cfoto48&"','"&cfoto49&"','"&cfoto50&"', '"&cfoto51&"', '"&cfoto52&"','"&cfoto53&"','"&cfoto54&"','"&cfoto55&"','"&cfoto56&"','"&cfoto57&"','"&cfoto58&"','"&cfoto59&"','"&cfoto60&"', '"&cfoto61&"', '"&cfoto62&"','"&cfoto63&"','"&cfoto64z&"','"&cfoto65&"','"&cfoto66&"','"&cfoto67&"','"&cfoto68&"','"&cfoto69&"','"&cfoto70&"', '"&cfoto71&"', '"&cfoto72&"','"&cfoto73&"','"&cfoto74&"','"&cfoto75&"','"&cfoto76&"','"&cfoto77&"','"&cfoto78&"','"&cfoto79&"','"&cfoto80&"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "40 primeiras fotos cadastradas com Sucesso!"

' Redireciona após 5 segundos

response.write " você será redirecionado para o cadastro das próximas 40 fotos em 3 segundos.. "

response.write "<meta http-equiv='refresh' content='3; url=fotos_consulta.asp'/>"

%>

MUITO OBRIGADO.

Rede3d · Janeiro 9, 2011

Alguém para ajudar ??

Estou precisando muito.....

Obrigado.

Rede3d · Janeiro 17, 2011

obrigado a todos.

problema resolvido.

Entrar

(Resolvido) Upload criando mais de um código.

Pergunta

Rede3d

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Rede3d

Link para o comentário

Compartilhar em outros sites

Rede3d

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades