bareta

e so você add as aspas arra=arra&"""&Rs("foto")&"""&","

no meu ultimo sistema que criei tive problemas com envio autenticado... porque o cdosys dava erro no asp quando o endereço não exxistia, tive de usar 127.0.0.1 como smtp. e o tratamente de erros na pagina zuava o sistema de envio... www.portalmaracaju.com.br/cg_newsletter pra quiser ver...

crie o array em um loop do asp arra="" ... while not rs.eof arra=arra&Rs("foto")&"," rs.movenext wend ... if right(arra,1)="," then arra=left(arra,(len(arra)-1)) %> .. var Slide = new Array(<%=arra%>); tendeu

visualize os subfóruns aqui... tem paginações otimas lá

coincidentemente olha a estensão do arquivo... dhsauidhiasu .all

husahdiuhsaiudhauisdhiashuihdaiu... boa... finalmente... isso ai galera... finalmente mtos posts não irão mais existir...

como o form tem q ser enviado apos a seleção use request.form("combo") ... select locaisvotacao.* , "&request.form("variavelcomnomedatabela")&". * from locaisvotacao,

Isso é horrível.... suponho que ele encheu as páginas com UPDATE ( um tabela para cada página ) ... cara se tu fez assim mesmo.. tu vai ferrar com teu site.... ou você acha que todo mundo acessa site de internet banda larga de 1 MB? e o interiorzão que só tem acesso discado, e quando presta..... muda logo esse teu sistema - se foi isso mesmo que eu entendi q você fez..... vlw! bom não para tanto... a situação não e tão triste assim... quer ver coisa triste que não carrega nem em net de 2 mb te mando o 1 site q fiz... hasihdiusauid

isso já num é feito pelo mercado livre?

faça uma busca por componentes de e-mail e sistema de mural... aqui tenho alguns sistemas prontos que você pode usar... http://www.portalmaracaju.com.br/cg_geradores

da erro ou so não aparece nada?

mais em http://aspalliance.com/1168_Introducing_JSON.all

bom se eu estiver certo em relação ao componente mude ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next por ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i))) Next

justamente isso.... se o antirus blockeia a execução da coisa.. vai dar o mesmo erro... permissão negada... o asp é uma desgraça em relação aos seus erros, um código de erro responde por 100 erros diferentes... esse problema de permissão é bem relativo... aqui na minha máquina so resolvi colocando senha de logon na maquina e configurando mta coisa... mais roda 100%, acesso externo com no-ip e tal...

free acho dificil... shareware: http://www.vclcomponents.com/ASP/Networkin...bject-info.html http://www.brothersoft.com/socket-x-4169.html

teste ai... e responda se funcionar <% if len(trim(Request("txtURL"))) > 0 then iStatus = 0 sURL = trim(Request("txtURL")) Set obj = CreateObject("MSXML2.XMLHTTP.4.0") on error resume next obj.open "GET", sURL, False obj.send if err.number = 0 then iStatus = obj.Status end if on error goto 0 if iStatus = 200 then Response.write "The URL "&sURL&" is valid, status is " & iStatus & vbCRLF else Response.write "The URL "&sURL&" is invalid, status is " & iStatus & vbCRLF end if end if %> <form action="teste.asp"> URL: <input type="text" name="txtURL"> <input type="submit" value="Validate URL"> </form>

bom isso foi o q tentei testar antes... tinha certeza sobre o caminho do arquivo... bom quando se testa upload e binarios... tem outra coisa que alem da pasta ter permissão pra garvar você não pode ter nenhum antivirus executando blockeio de scripts... já tive muito problemas com o norton, geralmente dexo desativado... o blockeio.

considerações iniciais... 1- o dreamweaver é uma desgraça escrevendo código... (muito lixo, além de colocar coisa no lugar errado); 2- qual o componente usado no upload?

opaopaopa... votado... parabéns a todos que participaram!!!

agora response.write "<b><h4>nome_foto="&nome_foto&"</h4></b><br><br>"

legal a iniciativa mais seu código é começado de uma forma e terminado de outra... raro não porque qualquer um q conheça replace faz... pode ser simplificado para function wordban(txt) wordban=txt palavrao="mane,noob,biba" palavras="x1,x2,x3" palavrao=split(palavrao,",") palavras=split(palavras,",") for i=lbound(palavrao) to ubound(palavrao) wordban=replace(wordban," "&palavrao(i)&" "," "&palavra(i)&" ") wordban=wordban next end function para uso <% frase="A biba loka e um mane noob" response.write wordban(frase) %>

veja se escreve o nome do arquivo... response.write "<b><h4>foto="&foto&"</h4></b><br><br>" if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto,true) For i = 1 to LenB(foto) MyFile.Write chrB(AscB(MidB(foto,i,1))) Next MyFile.Close end if

altere para: if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto,true) For i = 1 to LenB(foto) MyFile.Write chrB(AscB(MidB(foto,i,1))) Next MyFile.Close end if não sei como ele deve escrever os binarios pra montar o arquivo... mais talvez mudando a linha MyFile.Write chrB(AscB(MidB(foto,i,1))) por MyFile.WriteLine chrB(AscB(MidB(foto,i,1))) possa surtir resultados..

bom na verdade... ou o include não é chamado ou por sua tabela não ter <table>e </table> esse conteudo não seja exibido.

você quer que ele puxe a instalação automatica ou vai fazer manual?