cyberalexxx

Cara!! acho mais seguro voce deletar a pasta, logo após ter terminado de usar a pasta. Quanto ao problema relatado talvez uma diminuição TimeOut ajude.

Da uma olhada se te ajuda: <% Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\intranet") ' coloque a pasta principal Set pastas = principal.SubFolders %> <select size="1" name="Pasta"> <%For each pasta in pastas%> <option value="<%=pasta.name%>"><%=pasta.name%></option> <%next%> </select> depois é só pegar o valor da pasta através de request.form("pasta") armazenar em uma session e usar na sua aplicação.

Com relação a query string o problema não estaria aqui?? <td><a href="#" class="link2 style2" onClick="janPratel=window.open('selecionarSetor.asp?<%=Session("id")%>', 'Selecionar', 'width=210, height=70')"><strong>Clique Aqui para alterar o Setor</strong></a></td> o correto não seria: Com relação ao valor da session pelo que vi no seu código: do while not rs.eof Session("nome") = rs.fields("nome") rs.movenext loop Como voce esta atribuindo valor a Session("nome") dentro do loop o valor final final da session tem que ser igual ao ultimo registro do RecordSet no seu caso o primeiro registro da tabela de acordo com seu select que esta em ordem decrescentesql = "select * from bempr order by id desc" Da uma olhada ai

Não sei c da pra fazer via asp não!! uma vez vi um componente para manipular horas era o ASPTIME, não sei c da pra fazer isso. Em Javascript da. Relogio Analogico em Javascript: <script language="JavaScript"> // Analog clock J.P.Anderson webmaster // More info: the.jan.net@bol.com.br // Visit: http://www.portmaster.com.br fCol='444444'; //face colour. sCol='FF0000'; //seconds colour. mCol='444444'; //minutes colour. hCol='444444'; //hours colour. Ybase=30; //Clock height. Xbase=30; //Clock width. H='...'; H=H.split(''); M='....'; M=M.split(''); S='.....'; S=S.split(''); NS4=(document.layers); NS6=(document.getElementById&&!document.all); IE4=(document.all); Ypos=0; Xpos=0; dots=12; Split=360/dots; if (NS6){ for (i=1; i < dots+1; i++){ document.write('<div id="n6Digits'+i+'" style="position:absolute;top:0px;left:0px;width:30px;height:30px;font-family:Arial;font-size:10px;color:#'+fCol+';text-align:center;padding-top:10px">'+i+'</div>'); } for (i=0; i < M.length; i++){ document.write('<div id="Ny'+i+'" style="position:absolute;top:0px;left:0px;width:2px;height:2px;font-size:2px;background:#'+mCol+'"></div>'); } for (i=0; i < H.length; i++){ document.write('<div id="Nz'+i+'" style="position:absolute;top:0px;left:0px;width:2px;height:2px;font-size:2px;background:#'+hCol+'"></div>'); } for (i=0; i < S.length; i++){ document.write('<div id="Nx'+i+'" style="position:absolute;top:0px;left:0px;width:2px;height:2px;font-size:2px;background:#'+sCol+'"></div>'); } } if (NS4){ dgts='1 2 3 4 5 6 7 8 9 10 11 12'; dgts=dgts.split(' ') for (i=0; i < dots; i++){ document.write('<layer name=nsDigits'+i+' top=0 left=0 height=30 width=30><center><font face=Arial size=1 color='+fCol+'>'+dgts[i]+'</font></center></layer>'); } for (i=0; i < M.length; i++){ document.write('<layer name=ny'+i+' top=0 left=0 bgcolor='+mCol+' clip="0,0,2,2"></layer>'); } for (i=0; i < H.length; i++){ document.write('<layer name=nz'+i+' top=0 left=0 bgcolor='+hCol+' clip="0,0,2,2"></layer>'); } for (i=0; i < S.length; i++){ document.write('<layer name=nx'+i+' top=0 left=0 bgcolor='+sCol+' clip="0,0,2,2"></layer>'); } } if (IE4){ document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=1; i < dots+1; i++){ document.write('<div id="ieDigits" style="position:absolute;top:0px;left:0px;width:30px;height:30px;font-family:Arial;font-size:10px;color:'+fCol+';text-align:center;padding-top:10px">'+i+'</div>'); } document.write('</div></div>') document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < M.length; i++){ document.write('<div id=y style="position:absolute;width:2px;height:2px;font-size:2px;background:'+mCol+'"></div>'); } document.write('</div></div>') document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < H.length; i++){ document.write('<div id=z style="position:absolute;width:2px;height:2px;font-size:2px;background:'+hCol+'"></div>'); } document.write('</div></div>') document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < S.length; i++){ document.write('<div id=x style="position:absolute;width:2px;height:2px;font-size:2px;background:'+sCol+'"></div>'); } document.write('</div></div>') } function clock(){ time = new Date (); secs = time.getSeconds(); sec = -1.57 + Math.PI * secs/30; mins = time.getMinutes(); min = -1.57 + Math.PI * mins/30; hr = time.getHours(); hrs = -1.57 + Math.PI * hr/6 + Math.PI*parseInt(time.getMinutes())/360; if (NS6){ Ypos=window.pageYOffset+window.innerHeight-Ybase-25; Xpos=window.pageXOffset+window.innerWidth-Xbase-30; for (i=1; i < dots+1; i++){ document.getElementById("n6Digits"+i).style.top=Ypos-15+Ybase*Math.sin(-1.56 +i *Split*Math.PI/180) document.getElementById("n6Digits"+i).style.left=Xpos-15+Xbase*Math.cos(-1.56 +i*Split*Math.PI/180) } for (i=0; i < S.length; i++){ document.getElementById("Nx"+i).style.top=Ypos+i*Ybase/4.1*Math.sin(sec); document.getElementById("Nx"+i).style.left=Xpos+i*Xbase/4.1*Math.cos(sec); } for (i=0; i < M.length; i++){ document.getElementById("Ny"+i).style.top=Ypos+i*Ybase/4.1*Math.sin(min); document.getElementById("Ny"+i).style.left=Xpos+i*Xbase/4.1*Math.cos(min); } for (i=0; i < H.length; i++){ document.getElementById("Nz"+i).style.top=Ypos+i*Ybase/4.1*Math.sin(hrs); document.getElementById("Nz"+i).style.left=Xpos+i*Xbase/4.1*Math.cos(hrs); } } if (NS4){ Ypos=window.pageYOffset+window.innerHeight-Ybase-20; Xpos=window.pageXOffset+window.innerWidth-Xbase-30; for (i=0; i < dots; ++i){ document.layers["nsDigits"+i].top=Ypos-5+Ybase*Math.sin(-1.045 +i*Split*Math.PI/180) document.layers["nsDigits"+i].left=Xpos-15+Xbase*Math.cos(-1.045 +i*Split*Math.PI/180) } for (i=0; i < S.length; i++){ document.layers["nx"+i].top=Ypos+i*Ybase/4.1*Math.sin(sec); document.layers["nx"+i].left=Xpos+i*Xbase/4.1*Math.cos(sec); } for (i=0; i < M.length; i++){ document.layers["ny"+i].top=Ypos+i*Ybase/4.1*Math.sin(min); document.layers["ny"+i].left=Xpos+i*Xbase/4.1*Math.cos(min); } for (i=0; i < H.length; i++){ document.layers["nz"+i].top=Ypos+i*Ybase/4.1*Math.sin(hrs); document.layers["nz"+i].left=Xpos+i*Xbase/4.1*Math.cos(hrs); } } if (IE4){ Ypos=document.body.scrollTop+window.document.body.clientHeight-Ybase-20; Xpos=document.body.scrollLeft+window.document.body.clientWidth-Xbase-20; for (i=0; i < dots; ++i){ ieDigits[i].style.pixelTop=Ypos-15+Ybase*Math.sin(-1.045 +i *Split*Math.PI/180) ieDigits[i].style.pixelLeft=Xpos-15+Xbase*Math.cos(-1.045 +i *Split*Math.PI/180) } for (i=0; i < S.length; i++){ x[i].style.pixelTop =Ypos+i*Ybase/4.1*Math.sin(sec); x[i].style.pixelLeft=Xpos+i*Xbase/4.1*Math.cos(sec); } for (i=0; i < M.length; i++){ y[i].style.pixelTop =Ypos+i*Ybase/4.1*Math.sin(min); y[i].style.pixelLeft=Xpos+i*Xbase/4.1*Math.cos(min); } for (i=0; i < H.length; i++){ z[i].style.pixelTop =Ypos+i*Ybase/4.1*Math.sin(hrs); z[i].style.pixelLeft=Xpos+i*Xbase/4.1*Math.cos(hrs); } } setTimeout('clock()',100); } clock(); //--> </script> Relógio Digital em Javascript:<html> <head> </head> <body bgcolor="#FFFFFF" Onload="show5()"> <font face=Verdana><span id=relogio style="POSITION: absolute"> </span> <script language=JavaScript> <!-- function show5(){ if (!document.layers&&!document.all) return var Digital=new Date() var hours=Digital.getHours() var minutes=Digital.getMinutes() var seconds=Digital.getSeconds() var dn="AM" if (hours>12){ dn="PM" hours=hours-12 } if (hours==0) hours=12 if (minutes<=9) minutes="0"+minutes if (seconds<=9) seconds="0"+seconds meurelogio="<font size='5' face='Arial'><b>"+hours+":"+minutes+":" +seconds+" "+dn+"</b></font>" if (document.layers){ document.layers.relogio.document.write(meurelogio) document.layers.relogio.document.close() } else if (document.all) relogio.innerHTML=meurelogio setTimeout("show5()",1000) } //--> </script> </font> </body> </html>

Voce pode fazer isso na hora de criar o RecordSet usando a instrução SQL Select com o atributo Where. olha aqui uma apostila de SQL http://www.sqlmagazine.com.br/apostilas/sql.zip

Tenta mudar o AND por OR

Não tem nenhuma descrição de erro?? nem a linha do erro??

comigo isso não acontence não!! voce colocou alguma validação no seu código tipo: Do while Not RS.EOF ???

Acho que não tem como fazer esse botão não, o que você pode fazer é listar as pastas existentes para o usuário escolher uma e colocar uma opção de criar nova pasta.

Fiz uns testes aqui e ele não escreve por cima. Inclusive a sugestão que eu dei pra fazer via ADO, testei e também não deu, só aceita INSERT, não funciona UPDATE nem DELETE. Fiz uma pesquisa na Net e todas as soluções que eu achei foi através de arquivo temporário. Como foi dito, é quase um desáfio!! to fuçando mais aqui, mas não sei não!!

Da uma olhada neste tutorial sobre FSO pra ver c t ajuda: http://scriptbrasil.com.br/forum/index.php...pic=20523&st=30

Atribua a linha interpretada em uma variavel Depois conte de 0 até o maximo de caracteres E, usando o método 'WriteBlankLines(numOfLines)', você pode substituir a linha, ou até mesmo com o bom e velho Replace Deduzo que seja isso... lembre-se que eu chutei.... Abraços e Boa Sorte!!! Ai Brow, acho que isso não é possivel não. o método WriteBlankLines(numOfLines) insere linhas no final do arquivo apenas.

Voce pode usar Server.Mappath no lugar do endereço fisico.

Realmente o Hotmail manda para lixo eletronico. Pelo que percebi isso acontece quando voce coloca no remetente apenas o endereço de email sem nenhum nome.

Ta de saco cheio de ficar colocando & "'" nas suas instruções SQL??? Seus problemas acabaram!!! Ta parecendo televenda né?? he he!!! achei essa função interessante:

Outra Ideia: Ao invés de usar FSO usar ADO o txt teria que ficar assim: usuarios 2000139 resopi 2000140 robiim 2000141 %newid% Olha aqui o código:<% set conexao=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("senhas.txt") conexao.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\temp\;Extensions=asc,csv,tab,txt;" SQL="select top 1 * from senhas.txt order by usuarios desc" set Rs=conexao.execute(SQL) Do while not Rs.Eof Id = Rs.Fields("usuarios") last_id = left(Id,7) b = Int(last_id) novouser = b & " " & "novonome" c = Int(b) + 1 fimarquivo = c & " " & "%newid%" Rs.MoveNext Loop Rs.Close Set Rs=nothing SQL2 = "DELETE from senhas.txt WHERE Usuarios=" & "'" & Id & "'" Conexao.Execute(SQL2) Conexao.Close Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set thisfile = ObjFSO.OpenTextFile("c:\temp\senhas.txt",8) thisfile.writeline (novouser) thisfile.writeline (fimarquivo) %>

Da uma olhada nesses exemplos pra ver se ajuda Operadores

De qualquer forma vai demorar, pois até voce encontrar o simbolo "%" com o Instr() voce vai ter que ler o TXT inteiro. Voce não pode ter 2 arquivos um com todos os usuarios e um outro arquivo de controle com apenas o %newid% ??

Faça uma busca no google por "thumbnail" + "asp" Vão aparecer trocentos componentes para isso além de diversos scripts

já tem alguma coisa pronta?? As tabelas pelo menos???

Isso não é ASP não, de uma pesquisada em frames e Iframes é html puro.

Caso as datas estejam cadastradas corretamente no BD e o problema seja só na exibição dos dados, voce pode configurar todo seu site para o padrão brasileiro usando: Session.LCID = 1046

é o IIS Voce pode instalar a partir do CD de Instalação do Windows XP, nos componentes adicionais. Quanto a configuração faça uma busca aqui no forum q tem varios tópicos sobre isso.

No lugar de index voce coloca o nome do formulario tipo: <body onLoad="document.Form1.username.focus();">

Seguinte: Como apagar uma linha eu não sei, mais da pra fazer usando o método "gambi" da uma olha e me diz o que voce acha: <%Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set thisfile = ObjFSO.OpenTextFile("c:\temp\senhas.txt") Set thisfile2 = ObjFSO.OpenTextFile("c:\temp\senhatemp.txt",2,true) copia = true while (not thisfile.AtEndOfStream) linha_txt = thisfile.readline if instr(1,linha_txt,"%") > 0 then copia = false a = left(linha_txt,7) b = Int(a) novalinha = b & " " & "novonome" c = Int(B) + 1 fimarquivo = c & " " & "%newid%" end if if copia = true then thisfile2.writeline (linha_txt) end if wend thisfile2.writeline (novalinha) thisfile2.writeline (fimarquivo) Set thisfile = nothing Set thisfile2 = nothing set fs = ObjFSO.GetFile("c:\temp\senhatemp.txt") ObjFso.DeleteFile "c:\temp\senhas.txt" fs.name = "senhas.txt" %>