Ir para conteúdo
Fórum Script Brasil

py2tz

Membros
  • Total de itens

    261
  • Registro em

  • Última visita

Tudo que py2tz postou

  1. Sabino, começou a funcionar, mas ainda tem alguma coisa ruim, O sistema esta deletando somente um registro, mesmo marcando uns 2 ou tres, apaga so um., sempre o primeiro da lista. Tá assim: <form id="frmDeletar" name="frmDeletar" action="deleting.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>" onsubmit="return critica(this)" method="post"> <tr align="left" valign="middle" bgcolor="#FFFFFF"> <td><font class="txt8"><%=(rsApprove.Fields.Item("LINK_NAME").Value)%></font></td> <td><font class="txt8"><a href="<%=(rsApprove.Fields.Item("LINK_URL").Value)%>" target="_blank"><%=(rsApprove.Fields.Item("LINK_URL").Value)%></a></font></td> <td align="center"><font class="txt8"><%=(rsApprove.Fields.Item("LINK_DATE").Value)%></font></td> <td align="center"><font class="txt8"><A HREF="approving.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>">APPROVE</A></font></td> <td align="center"><font class="txt8"><A HREF="deleting.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>">DELETE</A> <input name="checkbox" type="checkbox" value="<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>"> <input name="Submit" type="submit" value="Excluir"> <td align="center"><font class="txt8"><A HREF="editing.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>">EDIT</A></font></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsApprove.MoveNext() Wend %> </form>
  2. Mas não vi nenhum onsubmit no codigo, muito menos return. Me parece que ele não esta achando o tal de LINK_ID, isso la na segunda pagina onde processa a coisa: <% if(Request.QueryString("id") <> "") then spDeleteLinks__id = Request.QueryString("id") %> <% set spDeleteLinks = Server.CreateObject("ADODB.Command") spDeleteLinks.ActiveConnection = MM_connDUdirectory_STRING spDeleteLinks.CommandText = "DELETE FROM LINKS WHERE LINK_ID = " + Replace(spDeleteLinks__id, "'", "''") + "" spDeleteLinks.CommandType = 1 spDeleteLinks.CommandTimeout = 0 spDeleteLinks.Prepared = true spDeleteLinks.Execute() %> Sabino se você não sabe, imagina eu, montei um site que ficou enorme, são milhares de paginas sem entender da coisa, mas vo tentando ajustar aki e ali, cheio de bugs mas tá rolando. Se quizer te passo as duas paginas via email e te dou acesso ao site pra ver isso, é um site de radioamadorismo, é hobby. Abraço e obrigado pela ajuda. Fausto
  3. Quase foi, Tá dando esse erro: Veja se fiz certo, na pagina que mostra os registros
  4. Não entendi Sabino, O codigo vai no inicio????
  5. Para substituir o <A HREF="deleting.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>">DELETE</A> Seria este codigo? <input type="checkbox" name="deleting.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>"> Ai teria que usar um comando geral para apagar todos os que estiverem clicados, seria esse? <input type="submit" value="Delete" name="B1"> Desculpe a ignorancia Fausto
  6. Joia, Sabino Bem eu alterei o deleting e acrescentei o IN, agora preciso mudar o link DELETE para um box, isso eu acho que deve ser individual né? Seria isso: <input type="box" value="true" name="B1"> Para cada linha do registro apareceria uma caixa para clicar ou não, certo? mas não é tipo RADIO conforme abaixo <input type="radio" value="1" name="resposta" style="border: 1 solid #E8CFA3; font-size: 10px; font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;"> Se puder colocar um exemplo das caixas que teria de adicionar no codigo de onde ficam os milhares de registros a serem apagados. Obrigado pela força.
  7. Tenho alguns BDs com insersão de dados, porem tenho sido visitado por pessoas com IPs da Inglaterra, e vários outros paises, gostaria de modificar a parte do admin para que eu pudesse ter akelas caixas iguais as dos email onde clicamos todas as que queremos deletar de uma só vez, pois são milhares delas. O sistema esta apto a deletar uma a uma e isso enche o saco. alguém poderia me ajudar? O Link que apaga o registro é: E a pagina DELETING é Inclusive deve ter jeito de inserir akela caixinha que marca todos de uma só vez Obrigado por qualquer ajuda. Fausto
  8. Legal, vou tentar, mas não entendo nada de PHP, um pouco de ASP, teria uma versão dessas para ASP?????? seria bem melhor. Outra alternativa, e se eu te enviar os arquivos html, você faria isso pra mim?????? eles estao assim: PY2TZ FAUSTO GASPARINI RUA VITORIA CALEGARI 45 PONTE GRANDE GUARULHOS são PAULO SP 07032051 e faço com que eles fiquem assim: PY2TZ FAUSTO GASPARINI RUA VITORIA CALEGARI 45 PONTE GRANDE GUARULHOS SP 07032051 Ou seja estico eles, para serem usados no excell, ai copio as clunas e colo dentro do BD do access. Baita trampo né???? Pois é, mas não achei nada mais facil que isso, já tentei de tudo e não consegui importar, exportar, não vem e nem vai, só na unha mesmo, tipo bem primitivo. 73 Fausto
  9. Calma pessoal, não é nada disso. è assim: Tenho um CD com mais de 1000 paginas de HTML, cada uma delas tem uns 50 registros de dados que preciso, ai veja só o que faço para le-los: Abro o cut, Abro a pagina numero 100.html ( não se vê nada) Executo ela no bronser (ai sim vejo os dados) Peço para mostrar o codigo fonte Marco tudo e Copio Colo numa outra pagina MODELO e assim sucessivamente, mas isso dá um trampo danado. e nem chegue nas 200 ainda depois de um baita tempo. já tentei com IFRAME, abre todas, mas uma a uma, não tem como copiar o codigo de todas elas de uma só vez. já tentei com FRAME, a mesma coisa. O arquivo é tão esquisito que ele não mostra o codigo fonte das paginas, vejam o que aparece: Entenderam??? É simples mas é complicado Obrigado
  10. Já fiz isso, mas não funciona, usei o IFRAME, fiz varias linhas e ela abre direitinho mas não consigo copiar o codigo de todas juntas. São varias paginas html e precisava ler (código html) todas elas dentro de uma só, no iframe não dá porque quando vou copiar o codigo html, ela mostra apenas uma das paginas e precisava copiar todas de uma só vez. Exemplo: <iframe src= "Pag.349.htm" width=800 height=1500 frameborder=0> <iframe src= "Pag.350.htm" width=800 height=1500 frameborder=0> <iframe src= "Pag.351.htm" width=800 height=1500 frameborder=0> Desse jeito funciona, mas não consigo copiar o codigo de todas. Teria que ser algo assim: <iframe src= "Pag.349.htm, Pag.350.htm, Pag.351.htm, etc......htm" width=800 height=1500 frameborder=0> São 1000 paginas mais ou menos Ai daria pra copiar o codigo html de todas elas de uma so vez. qualquer dica é bem vinda. Fausto
  11. Em um BD feito em acces num formulario gostaria que um dos campos ao serem editados fixzzessem as inclusoes do campo TEXTAREA unindo-se aos comentarios já existentes no bd. Ex: um apessoa entra e comenta nesse campo TEXTAREA alguma coisa, ele salva e os comentario do mesmo vai aparecer em conjunto com os comentarios que la já estavam. Hoje acontece que se editar tal campo com um novo comentario no campo TEXTAREA ele apaga o comentario anterior e fica gravado o ultimo comentario. <TEXTAREA NAME="PrComments" ROWS=20 COLS=60></TEXTAREA> A leitura deste campo é feita pelo codigo: <%=pComments%> alguém teria alguma dica??? Tks 73 fausto
  12. Joinha, funcionou redondo, Usei o <%Response.Write Replace(strDesc, CHr(13),"<br>")%> Tinha tentado vários formatos mas esse ai ainda não. Obrigado a todos, Fausto
  13. Precisava mudar o formato de: <%= strDesc %> Para: <%Response.Write Replace(rs("strDesc"), CHr(13),"<br>")%> Mas não aceita devido ao segundo possuir o tal do RS e o primeiro não tem isso alguém pode me informar como trasnformar o campo????? Obrigado por qualquer ajuda. Fausto
  14. py2tz

    Data Regressiva Em Asp

    Olá Bareta, Tks pelo retorno, o script fica dentro de uma página que é enviada aos leitores, e quando ele abre o email aparece varias coisas entre elas esse bloco que pega do BD os ultimos 5 registros ordenados pela data e mostra na tela. Eu complemento com o contador regressivo que mostra quandos dias estao faltando para isso, mas esta em JAVA e funciona em algumas maquinas, porem alguns dizem que não conseguem ver e me retornam o email mostrando a parte do contador vira uma zona. então precisva passar o que tenho em JAVA para ASP, veja o script que tenho funcionando em java:
  15. py2tz

    Contagem Entre Datas..

    Estava precisando de algo assim, quase isso ai abaixo, porem teria que pegar os dados direto do BD. Consegui um JAVA que faz isso, porem não sei porque quando ele explode no outlook do usuario, vem todo bichado, se for visualizado na internet, funciona direito. Onde esta a data precisava colocar os campos do BD. O que tenho e que funciona em algumas maquinas é esse aqui, Notem que eu consegui inserir os dados do BD e ele fica automático Qualquer ajuda será bem vinda Fausto
  16. py2tz

    Data Regressiva Em Asp

    Olá turma, Estou com um problema de contagem regressiva de datas, achei um script em Javascript mas ficou meio manual a coisa, tenho que ficar alterando as datas constantemente. Achei um outro em ASP aqui mesmo no SB mas não quer rodar e tambem gostaria de saber se tem como deixa-lo recebendo os dados do BD diretamente, ai ficaria automatico e não precisaria mais edita-los. Meu BD é access Sistema ASP O script: No BD tenho um campo chamado Data_Inicio e visualizo com <%=Rs("Data_Inicio"%> onde o sistema faria a comparação entre a data do micro e a Data_Inicio e me mostraria os dias que faltavam para o evento, tipo: Faltam 8 dia(s) para o CQ-M International DX Contest 2007 (ingles) No mais agradeço qualquer ajuda. 73 Fausto
  17. alguém já teve esse problema por ai?????? Quem conhece o MPSBanner poderia me dar uma dica, todos os banners são em GIF e tudo ia normal, mas quando inseri um banner em flash que por sinal ele suporta, funciona direito exceto na hora de clicar nele, ele mostra até o link que vai ser direcionado, mas não abre nenhuma pagina, é como se não tivesse o destino. Veja: Eu inseri o <a href=""" & PathSys & "ir.asp?id=" & BannerID & """ target=""" & BannerQuadro & """> mas nem assim ele vai. Originalmente ele não tem esse link que inseri Qualquer ajuda será bem vinda 73 Fausto
  18. py2tz

    Erro Só No Servidor

    Olá Henderson O meu é em ASP, pode ser que o link que mandei é em PHP mas existem vários por ai mpsbanner em ASP, se não achar eu mando o meu full pra você. 73 Fausto
  19. Olá, agradeço as tentativas, Como não entendo quase nada, fui direto para o que mais sou familiarizado, o do TEXT AREA Montei a pagina assim: <form name="form1" Method="Post" action="lote.asp" onsubmit="return checar_formulario(this)"> <td align="center"> <textarea name="email" cols="50" rows="10"></textarea> <input type="hidden" name="name" size="30" value="<%=date()%>" maxlength="60" > <input type="hidden" name="a_d" value="add" checked>&nbsp;&nbsp;<input type=image src="../image/ok.gif"> </td> </form> <% Texts = Request.Form("email") ' Textos do Textarea SplitLine = Split(Texts, vbCrLf) ' Divide um email por linha ' Lista os e-mails For Each Email In SplitLine ' Ranca o Que sobra do E-mail LimpaEmail = Replace(Email, ";", "") ' Verifica dentro do Acess. ' Insere no Banco Next Response.Write "E-mails Cadastrados ..." %> Tentei funcionar, ele não insere os email e não dá nenhum erro, simplesmente pisca a tela e volta com a caixa vazia, pensei até que tinha funcionado na primeira, mas era muita sorte. Acho que na parte onde diz: ' Insere no Banco Devo colocar isso????? qualquer ajuda será bem vinda
  20. py2tz

    Tamanho Da Tela

    Marcelinho, ve se ajuda, Eu tava com um problema desses, e aqui mesmo no SB achei uma funcao em JAVA que via qual a resolucao em que estava o micro do cara e exisbia uma determinada pagina pra ele. Se tivesse em 480 abria uma pagina e assim por diante, se tivesse em 800 abria outra, muito 10 e funcioonava beleza. O unico problema que vi é que eu tinha que triplicar o numero das paginas, e isso ficaria impossivel pois eram ou melhora são milhares delas, ai adotei o seguinte. Como a tendencia é ir pros 1070 criei uma barra lateral que quando está em 800 abre a barra abaixo pra ele ir pra direita e quando está em 1070 abre normal. Fausto
  21. Mais ou menos, Muitos grupos de rádio possuem vários membros em sua equipe, onde o chefe deles gostaria que eles tambem recebessem um boletim que a gente manda grátis para os registrados, só que ele não quer ter o trabalho de inserir um a um no sistema e manda pra mim uma lista de 200, 300 emails dos socios do grupo deles, ai eu ia colocando um a um, mas já to de s cheio, é muita coisa, e tá aumentando mais. Antigamente, eu usava um sistema de site americano chamado bravanet que fazia isso, mas parei há muito tempo com ele pois somente permitia 500 membros. Ele fazia isso, eu colava a relacao dos 100, 200 ou mais emails numa caixa grande e clicava no enviar, ele verificava os que já estavam na relacao e inseria somente os que não estavam, ajudava muito, mas o limite de 500 me fez parar e tentar fazer com outro, pra ter ideia, já tem mais de 14 mil e está aumentando.
  22. Tenho um sistema que envia emails aos que estao registrados num BD em aces, este mesmo sistema envia um boletim a milhares de emails que ali se encontram, onde o usuarios escolhe interativamente se quer fazer parte ou deixar de fazer parte desta lista. O negocio funciona, mas percebo que quando o arquivo que envio possui mais de 30 k ou 40 k fica uma especie de meio pesado e a pagina que finaliza o envio me informando que foram todos enviados raramente aparece e no lugar vem uma pagina de erro. Se o tamanho do boletim é pequeno, parece que o envio é mais rápido e a tal pagina de sucesso aparece. Dá a impressao que existe um timer no servidor que determina um tempo, tipo 15 minutos ou 20, onde apos esse tempo ele aborta a coisa toda e derruba o envio. Os que foram, chegam até seus leitores, mas os que não foram, não vão mais. Teria como aumentar esse tempo ou até elimina-lo?????? O sistema fica no meu site, e uso o servidor da página como servidor de email para enviar. Obrigado por qualquer dica. Fausto
  23. Ex: xxx00x@xxxx.com ; xx3xx@xxxx.com ; xxx3x@xxxx.com ; xxx67x@xxxx.com ; xx5xx@xxxx.com ; xrxxx@xxxx.com ; xxxuyx@xxxx.com ; xx6x7x@xxxx.com ; xrxxxj@xxxx.com ; xxxx@kxxxx.com ; Onde o sistema verifica a duplicidade e a existencia dos mesmos lá no BD e somente registra os que realmente não estejam cadasstrados no BD. Meus sitema é ASP e o BD é access Tenho isso mas somente com 1 email por vez, queria passar para maior numero de emails por vez. Obrigado por qualquer dica Fausto
  24. Olá pessoal, Bem, vou tentar explicar, pois sou meio cru na coisa. Funcionamento do Sistema 1 O usuario prenche uma caixa com seu email e clica enviar O sistema verifica se existe este email, (está funcionando) se existe informa que já existe (está funcionando) se não existe emite msg que lhe foi enviado um pedido de confirmacao (está funcionando) Se o email que o cara digitou é falso, não acontece a insercao dele no BD (access) Se o email é verdadeiro ele entra no BD e tudo acaba bem Funcionamento do sistema 2 Eu abro uma pagina que me mostra os registros feitos no BD do sistema 1 Copio email por email e adiciona no BD do sistema 2 Novamente o sistema 2 faz a consulta no BD Se existe ele me informa que já existe e não cadastra Se não existe ele adiciona o email do cara. Isso já faço um bom tempo, o problema que a coisa tá aumentando e por dia são uns 30 novos emails que querem entrar e eu tõ cansado de fazer isso. O BD é acess. Sistema 1 é para somente confirmar se existe o email do cara ele até envia email mas não em HTML somente TXT Sistema 2 é um boletim que é enviado a todos os cadastrados este sim me envia em HTML mas não faz a confirmacao do email então uso os dois sistemas para completar a coisa. O que preciso é um sistema que registre o email, peça confirmacao via email, e envie o boletim em HTML para todos os que estiverem ali. Veja se precisa de mais alguma info e obrigado pela ajuda. Fausto
  25. Uso um sistema para enviar um email de confirmacao do usuario e apos confirmado por ele o email é iserido num BD. Ai tenho que pegar este email manualmente e joga-lo num outro BD que faz o envio dos emails para os cadastrados. já tentei fazer o primeiro sistema quando confirmado inserir diretamente no segundo sistema, mas não consegui, então estou tentando fazer ele inserir nos dois sistemas (BD) quando confirmado. Mas acho que as linguagens são incompativeis mesmo sendo em ASP Parte do script onde o primeiro programa registra os dados no BD <% Else Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_Connection1_STRING MM_editCmd.CommandText = "insert into Email_members (Member_name, Member_Email)values('"&request("name")&"','"&request("email")&"')" MM_editCmd.Execute MM_editCmd.ActiveConnection.Close %> Parte do script onde eu faço a insercao manual do primeiro para este: <% Dim useraction Dim Email Dim Action Dim SQL Email = lcase(request.form("Email")) useraction = request.form("Join_Quit") set RS = server.createobject("adodb.recordset") SQL = "SELECT * FROM List WHERE Email = '" & Email & "'" RS.open SQL, conn, 2, 2 If (request("Email") = "") Then Action = "Este email esta errado. Favor tentar novamente." Else select case useraction case "Join" if RS.bof and RS.eof then RS.addnew RS("Email") = request("Email") RS("Name_Last") = request("Name_Last") RS("Name_First") = request("Name_First") RS("Date_In") = Date RS.update Action = "Obrigado pela adesão." else Action = "Voce já esta cadastrado." end if case "Quit" if RS.bof and RS.eof then Action = "Seu email não esta em nossa relação!!!" else sql2="DELETE FROM List WHERE Email = '" & Email & "'" conn.execute(sql2) Action = "Voce foi devidamente REMOVIDO." end if end select End If RS.close set RS = nothing %> Caso alguém possa me dar uma dica de como fazer para quando o usuario confirmar o email enviado a ele possa registrar nos dois programas ao mesmo tempo, ou pelo menos no segundo já ajudaria muito. Obrigado
×
×
  • Criar Novo...