Rede3d

Valeu pela dica meu amigo.... infelizmente no site em q eu peguei o código não tem nada. Mas estou correndo atraz do trem. Muito obrigado pelas interrações meu amigo.

Não bem essa a dúvida meu amigo... pegar o conteudo de um textarea com o request é sossegado. o que eu preciso, é pegar o conteúdo deste java que possíbita meu clinte, usar recursos do tipo negrito, alinhamento e coisas do tipo. obrigado pela ajuda.

Bom dia amigos... estou desenvolvendo um site em asp clássico, o bem e velho asp. rs rs. Estou tentando usar um Editor de texto java para que meu cliente no campo de texto possa usar formatação de texto como temos aqui no comunidade. Então, achei um código na net, alterei e ficou de geito que eu quero, o problema é fazer funcionar, ou seja, gravar no banco. Estou colocando o código abaixo do textarea, mas não sei se tenho que colocar dentro, ou do lado........... é aí que estou perdido. vou postar o que estou fazendo para ver se os amigos podem me ajudar. Muito obrigado. <td bgcolor="#f4f4f4"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#000000">Texto:</font></strong></font><br> <textarea name="texto" cols="85" rows="5" id="texto"></textarea> &lt;script type="text/javascript"> // [CREATE EDITOR INSTANCES] kaEditor( 740, 250, 740 ); utils1 = new Utils(); if( utils1.IsIE() ) { window.attachEvent( "onload", onWindowLoaded ); } else { window.addEventListener( "load", onWindowLoaded, false ); } function onWindowLoaded() { // [OPTIONAL] After Editors were created: Load SomeData into RTAs LoadDataToRTA("iFrm2", "<i>222</i>"); // [OPTIONAL] Attach Keyboard Handlers to work in Geckos like ctrl+b, ctrl+u, ctrl+i DoGeckoKbdHandler("iFrm2"); // [OPTIONAL] TODO: EnterKeyHandlerIE : replace <p> tags by <br /> //setTimeout( function() { EnterKeyHandlerIE("iFrm1"); EnterKeyHandlerIE("iFrm2");}, 100 ); } </script> </td> Vamos lá amigos !! Alguém para ajudar ??? Valeu a todos.

Vamos lá pessoal... estou precisando muito deste caminho. paginar o registro ok. mas o q eu preciso é paginas os campos, no caso são 240 paginado de 20 em 20. muito obrigado.

precisa não amigo. problema resolvido.... de qualquer forma, muito obrigado.

obrigado a todos. problema resolvido.

bom dia amigo.... estou tentanto utilizar esse código e tive o seguinte problema. Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A040E) 'loop' sem 'do' /pasta_web/WL_Studio/fotos_detalhes.asp, line 1628 LOOP em meu código está assim: <% i = i+1 Count = Count + 1 'paginacao RS.MoveNext LOOP 'tb paginacao %> muito obrigado.

Bom dia a todos... estou precisando criar uma paginação para 200 fotos. Fai ser a primeira vez q faço uma paginação, já q sou novo em asp. Tenho uma tabela onde listo nome do cliente, data do serviço e foto1 até foto200. Preciso listar de 20 em 20 fotos... Muito obrigado a todos.

Alguém para ajudar ?? Estou precisando muito..... Obrigado.

Olha eu denovo.... rs. bareta o trem funcionou muito bem, em um projeto eu subi 04 imagens. estou em outro agora e tenho q subir 400 imagens... estou subindo de 40 em 40 imagens. o meu problema é na segunda parte... eu criei duas páginas de upload. até aí tudo bem.... o problema é q a segunda parte grava certo na página mas cria uma segunda linha no bd, ou seja, as primeiras 40 em um código e as oustras em outro código. teria como você me dar uma luz ? Valeu.

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.... <!-- #include file = "upload_funcoes.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 ---------------------- 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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 "<br><br>você será redirecionado para o cadastro das próximas 40 fotos em 3 segundos..<br>" 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.... <!-- #include file = "upload_funcoes.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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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))) Next MyFile.Close 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 "<br><br>você será redirecionado para o cadastro das próximas 40 fotos em 3 segundos..<br>" response.write "<meta http-equiv='refresh' content='3; url=fotos_consulta.asp'/>" %> MUITO OBRIGADO.

valeu amigo... vou estudar e tentar implementar. bom dia bareta. cara o trem funcionou feito boca de bode... exclusão completa no bd e na pasta imagens... muito obrigado pela sua ajuda e olha q já é a segunda vez... rs muito obrigado mesmo. vou postar o código pronto para compartilhar com mais alguém q esteja precisando. <!--#include file="conexao.asp"--> <% Public Sub DeleteFile(ByVal FileName) On Error Resume Next If Mid(FileName, 2, 1) <> ":" Then FileName = Server.MapPath(FileName) End If If Err Then Err.Clear On Error GoTo 0 Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(FileName) Then FSO.DeleteFile FileName End If Set FSO = Nothing End Sub dim codigo,strquery2,objrs2,x,imagem codigo = request("codigo") strquery2 = "select * from fotos where codigo="&codigo set objrs2 = objconn.execute(strquery2) for x=1 to 4 imagem=objrs2("foto"&x) call DeleteFile("Imagens\Produtos"&imagem) next strquery = "delete * from fotos where codigo="&codigo set objrs = objconn.execute(strquery) objconn.close set objrs = nothing set objrs2 = nothing set objconn = nothing %> mais uma vez muito obrigado meu amigo.

valeu amigo... vou estudar e tentar implementar.

bareta seguindo sua orientação, fiz uma pesquisa e veja o caminho q estou seguindo.... primeira página ( q exclui do bd ) <!--#include file="conexao.asp"--> <% dim codigo codigo = request("codigo") strquery = "delete * from fotos where codigo="&codigo set objrs = objconn.execute(strquery) objconn.close set objrs = nothing set objconn = nothing call DeleteFile(?????????????) %> a partir desta página tento chamar a página da função.... <% 'O Filename pode ser um caminho absoluto ou relativo. Public Sub DeleteFile(ByVal FileName) On Error Resume Next If Mid(FileName, 2, 1) <> ":" Then FileName = Server.MapPath("\Imagens\Produtos") End If If Err Then Err.Clear On Error GoTo 0 Dim FS Set FSO = Server.CreateObject("DBQ=D:/Trab_profissionais/Pasta_Web/Brumovel/Dados/banco_teste_bru.mdb;driver={microsoft access driver (*.mdb)}") If FSO.FileExists(FileName) Then FSO.DeleteFile FileName End If Set FSO = Nothing End Sub response.Redirect("projetos_consulta.asp") é por ái ?? o q pega mais é q não estou entendo como chamar a função. se você puder me ajudar te agradeço.

então bareta... cara eu não estou localizando essa função no código, call DeleteFile, eu terei q criar a tal função ? se a pergunta for absurda, me desculpe. é q sou novo em asp e estou remando muito para evoluir.... muito obrigado pela sua ajuda. se você puder, você poderia me dar um caminho para solucionar esse problema ? ajustar o meu código para q eu possa entender como usar essa função. muito obrigado mesmo pela sua ajuda.

Muito obrigado pela ajuda bareta... Vou pegar esse caminho q você me passou e e quebrar a cabeça com ele... <% 'O Filename pode ser um caminho absoluto ou relativo. Public Sub DeleteFile(ByVal FileName) On Error Resume Next If Mid(FileName, 2, 1) <> ":" Then FileName = Server.MapPath(FileName) End If If Err Then Err.Clear On Error GoTo 0 Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(FileName) Then FSO.DeleteFile FileName End If Set FSO = Nothing End Sub %> Muito obrigado mesmo. ------------- Bom dia bareta... cara estou tentando fazer o código q você me indicou funcionar mas o trem está feio para o meu lado. Escleui do BD mas nada de excluir da pasta imagens... e também não dá mensagem de erro. você poderia me dar mais uma ajuda ? vou postar o código.... de qualquer forma te agradeço muito. <!--#include file="conexao.asp"--> <% dim codigo codigo = request("codigo") strquery = "delete * from fotos where codigo="&codigo set objrs = objconn.execute(strquery) 'O Filename pode ser um caminho absoluto ou relativo. Public Sub DeleteFile(ByVal FileName) On Error Resume Next If Mid(FileName, 2, 1) <> ":" Then FileName = Server.MapPath("D:\Trab_profissionais\Pasta_Web\Brumovel\Imagens\Produtos") End If If Err Then Err.Clear On Error GoTo 0 Dim FSO Set FSO = Server.CreateObject("DBQ=D:/Trab_profissionais/Pasta_Web/Brumovel/Dados/banco_teste_bru.mdb;driver={microsoft access driver (*.mdb)}") If FSO.FileExists(FileName) Then FSO.DeleteFile FileName End If Set FSO = Nothing End Sub %>

Muito obrigado pela ajuda bareta... Vou pegar esse caminho q você me passou e e quebrar a cabeça com ele... <% 'O Filename pode ser um caminho absoluto ou relativo. Public Sub DeleteFile(ByVal FileName) On Error Resume Next If Mid(FileName, 2, 1) <> ":" Then FileName = Server.MapPath(FileName) End If If Err Then Err.Clear On Error GoTo 0 Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") If FSO.FileExists(FileName) Then FSO.DeleteFile FileName End If Set FSO = Nothing End Sub %> Muito obrigado mesmo.

Boa noite a todos... Pessoal estou precisando excluir produtos (imagens) do banco de dados e da pasta onde ficam armazenadas as imagens... O Código q uso para a exclusão do banco é esse: <% dim codigo codigo = request("codigo") strquery = "delete * from fotos where codigo="&codigo set objrs = objconn.execute(strquery) objconn.close set objrs = nothing set objconn = nothing %> Alguém poderia me ajudar ? Ps.: Fiz uma busca no fórum e não achei nada sobre isso, se eu estiver postando em duplicidade peço desculpas. Muito obrigado.

Fala aí Kuroi... beleza ? Aqui, você não me deu o caminho você me deu a solução... muito obrigado. Funcionou feito boca de bode. Valeu mesmo Kuroi. Uma última coisa... sou novo por aqui e não sei como fechar o tópico, se é q se fecha tópico... rs

Muito obrigado Kuroi... era isso q eu precisava, um caminho. Agora vou quebrar a cabeça e desenvolver o selec como você me orientou. Mais uma vez, muito obrigado.

Bom dia a todos... pessoal sou novo em asp, saindo de um curso basicão, mas beleza... a vida segue e eu tenho q correr atras. rs Estou desenvolvendo um site para uma empesa de móveis planejados... tenho 05 ambientes... ( quarto, banho, home, escritório e coizinha com 04 fotos para cada ambiente ). Preciso fazer um IF para impedir que seja cadastrado duas vezes o mesmo ambiente ( isso dá um pau feio no site... rs ), bem... pelo menos eu acho q um IF resolve isso. A abaixo o meu Insert; sql = "Insert into fotos (ambiente, foto1, foto2, foto3, foto4) values ('"& ambiente &"', '"& cfoto1 &"', '"& cfoto2 &"','"& cfoto3 &"','"& cfoto4 &"')" Conexao.Execute(sql) Muito obrigado desde já.

Funcionou igual a boca de bode. muito obrigado pela sua ajuda.

boa tarde bareta. é a segunda vez q posto no forum... a primeira foi para lhe agradecer pelo código. a segunda á para ver e tem como você me ajudar com um problema... eu preciso subir mais de uma imagem. estou tentando mudar o código para isso. ele grava certo no banco, não dá mensagem de erro mas só manda uma imagem para a pasta de destino. vou postar o código, se você puder me ajudar vou lhe agradecer muito. desde já muito obrigado. <!-- #include file = "upload_funcoes.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 ---------------------- nome = UploadRequest.Item("nome").Item("Value") email = UploadRequest.Item("email").Item("Value") eu = UploadRequest.Item("eu").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") caminho_foto2 = UploadRequest.Item("foto2").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") foto2 = UploadRequest.Item("foto2").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto nome_foto2 = "/"&nome_foto2 ' pasta + nome dos arquivos cfoto = "imagens/produtos" + nome_foto cfoto2 = "imagens/produtos" + nome_foto2 ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("up_teste.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DBQ=D:/Trab_profissionais/Pasta_Web/CURSO_ASP/upload/up_teste.mdb;driver={microsoft access driver (*.mdb)}" ' cadastra os dados no banco de dados sql = "Insert into teste (nome,email,eu,foto,foto2) values ('"& nome &"', '"& email &"', '"& eu &"','"& cfoto &"','"& cfoto2 &"')" Conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 1 segundos..<br>" response.write "<meta http-equiv='refresh' content='1; url=Upload_form.asp'/>" %>

Bom dia... cara é a primeira vez que posta na comunidade... Sou muito novo em asp, acabei um curso basicão a pouco tempo. Bem, vamos ao q importa... rs. Parabéns pelo código, funcionou muito bem para mim. E olha q sou muito novo nesse trem. Muito obrigado pelo código.