Ir para conteúdo
Fórum Script Brasil

py2tz

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    261

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por py2tz

  1. Inserir Caixa para deletar registros

    em ASP

    Postado · Editado por py2tz

    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. Inserir Caixa para deletar registros

    em ASP

    Postado

    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. Inserir Caixa para deletar registros

    em ASP

    Postado · Editado por py2tz

    Quase foi,

    Tá dando esse erro:

    Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

    [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'LINK_ID ='.

    /projetos/admin/deleting.asp, line 16

    Veja se fiz certo, na pagina que mostra os registros

    <form action="deleting.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>" method="get">

    <input name="Submit" type="submit" value="Excluir">

    <input name="checkbox" type="checkbox" value="<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>">

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

  5. Inserir Caixa para deletar registros

    em ASP

    Postado

    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. Inserir Caixa para deletar registros

    em ASP

    Postado · Editado por py2tz

    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. Inserir Caixa para deletar registros

    em ASP

    Postado

    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 é:

    <A HREF="deleting.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "id=" & rsApprove.Fields.Item("LINK_ID").Value %>" target=_blank>DELETE</A>

    E a pagina DELETING é

    <%

    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()

    %>

    Inclusive deve ter jeito de inserir akela caixinha que marca todos de uma só vez

    Obrigado por qualquer ajuda.

    Fausto

  8. Inserir 10 paginas HTML em 1

    em HTML, XHTML, CSS

    Postado

    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. Inserir 10 paginas HTML em 1

    em HTML, XHTML, CSS

    Postado

    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. Inserir 10 paginas HTML em 1

    em HTML, XHTML, CSS

    Postado · Editado por py2tz

    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. Como Acrescentar Comentário Em Um Textarea

    em ASP

    Postado

    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

  14. Data Regressiva Em Asp

    em ASP

    Postado

    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:

    <%set rs=conn.execute("select top 20 * from LINKS WHERE LINK_APPROVED = 1 Order By mês,Dia ASC")%>

    <%do until rs.eof%>

    <script LANGUAGE="JavaScript1.1">

    //Contagem regressiva dos Concursos,

    var before="<% If rs("Dia") <> "" Then %><a href='http://www.site.com.br/concurso/hitting.asp?id=<%=rs("LINK_ID")%>&url=<%=rs("LINK_URL")%>' target='_blank'><%=rs("LINK_NAME")%></a><%End If %>"

    var current="<br>É Hoje Cara, Liga o Rádio !!!! <a href='http://www.site.com.br/concurso/hitting.asp?id=<%=rs("LINK_ID")%>&url=<%=rs("LINK_URL")%>' target='_blank'><%=rs("LINK_NAME")%></a>"

    var montharray=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")

    function countdown(yr,m,d){

    var today=new Date()

    var todayy=today.getYear()

    if (todayy < 1000)

    todayy+=1900

    var todaym=today.getMonth()

    var todayd=today.getDate()

    var todaystring=montharray[todaym]+" "+todayd+", "+todayy

    var futurestring=montharray[m-1]+" "+d+", "+yr

    var difference=(Math.round((Date.parse(futurestring)-Date.parse(todaystring))/(24*60*60*1000))*1)

    var dstring=difference.toString()

    if (difference==0)

    document.write(current)

    else if (difference>0){

    document.write("<br>Faltam ")

    for (i=0;i<=dstring.length-1;i++)

    document.write('<img src="http://www.site.com.br/concurso/image/c'+dstring.charAt(i)+'.gif">')

    document.write(' dia(s) para o '+before)

    }

    }

    countdown(<%=rs("Ano")%>,<%=rs("mês")%>,<%=rs("Dia")%>)

    </script>

    <% rs.movenext

    loop

    %>

  15. Contagem Entre Datas..

    em ASP

    Postado

    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.

    <%

    response.write "Hoje é " & date() & "<br>"

    datafutura = Cdate("19/05/2007")

    response.write "Faltam " & (datafutura-date) & " dias para " & datafutura

    %>

    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

    <script LANGUAGE="JavaScript1.1">

    //Contagem regressiva dos Concursos,

    var before="<% If rs("Dia") <> "" Then %><a href='http://www.site.com.br/concurso/hitting.asp?id=<%=rs("LINK_ID")%>&url=<%=rs("LINK_URL")%>' target='_blank'><%=rs("LINK_NAME")%></a><%End If %>"

    var current="<br>É Hoje Cara, Liga o Rádio !!!! <a href='http://www.site.com.br/concurso/hitting.asp?id=<%=rs("LINK_ID")%>&url=<%=rs("LINK_URL")%>' target='_blank'><%=rs("LINK_NAME")%></a>"

    var montharray=new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")

    function countdown(yr,m,d){

    var today=new Date()

    var todayy=today.getYear()

    if (todayy < 1000)

    todayy+=1900

    var todaym=today.getMonth()

    var todayd=today.getDate()

    var todaystring=montharray[todaym]+" "+todayd+", "+todayy

    var futurestring=montharray[m-1]+" "+d+", "+yr

    var difference=(Math.round((Date.parse(futurestring)-Date.parse(todaystring))/(24*60*60*1000))*1)

    var dstring=difference.toString()

    if (difference==0)

    document.write(current)

    else if (difference>0){

    document.write("<br>Faltam ")

    for (i=0;i<=dstring.length-1;i++)

    document.write('<img src="http://www.site.com.br/concurso/image/c'+dstring.charAt(i)+'.gif">')

    document.write(' dia(s) para o '+before)

    }

    }

    countdown(<%=rs("Ano")%>,<%=rs("mês")%>,<%=rs("Dia")%>)

    </script>

    Qualquer ajuda será bem vinda

    Fausto

  16. Data Regressiva Em Asp

    em ASP

    Postado

    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:

    <%

    DATA1 = Cdate(Now()) 'DATA ATUAL

    DATA2 = Cdate(FINALIZA) 'DATA FINALIZAÇÃO

    DIAS = DateDiff("d",DATA1,DATA2)

    If DateDiff("h",DATA1,DATA2) <> 0 Then

    HORA = DateDiff("h",DATA1,DATA2) - Cint(DIAS) * 24

    Else

    HORA = 0

    End If

    If DateDiff("n",DATA1,DATA2) <> 0 Then

    MINUTO = DateDiff("n",DATA1,DATA2) - DateDiff("h",DATA1,DATA2) * 60

    Else

    MINUTO = 0

    End If

    If DateDiff("s",DATA1,DATA2) <> 0 Then

    SEGUNDO = DateDiff("s",DATA1,DATA2) - DateDiff("n",DATA1,DATA2) * 60

    Else

    SEGUNDO = 0

    End If

    If SEGUNDO < 0 Then

    MINUTO = MINUTO - 1

    SEGUNDO = 60 - SEGUNDO + SEGUNDO * 2

    End If

    If MINUTO < 0 Then

    HORA = HORA - 1

    MINUTO = 60 - MINUTO + MINUTO * 2

    End If

    If HORA < 0 Then

    DIAS = DIAS - 1

    HORA = 24 - HORA + HORA * 2

    End If

    If DIAS > 1 Then

    Response.Write "<font color=#003366 class=fontsize>" & DIAS & "d " & HORA & "h </font>"

    ElseIf DIAS = 1 Then

    Response.Write "<font color=#FF0000 class=fontsize>" & DIAS & "d " & HORA & "h </font>"

    ElseIf DIAS = 0 AND HORA > 0 Then

    Response.Write "<font color=#FF0000 class=fontsize>" & HORA & "h " & MINUTO & "m </font>"

    ElseIf DIAS = 0 AND HORA = 0 AND SEGUNDO > 1 Then

    Response.Write "<font color=#FF0000 class=fontsize>" & MINUTO & "m " & SEGUNDO & "s </font>"

    End If

    %>

    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. Mpsbanner Não Abre O Link Quando Em Flash

    em ASP

    Postado · Editado por py2tz

    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

    If extImagem = ".swf" Then

    mpsBanner = "<a href=""" & PathSys & "ir.asp?id=" & BannerID & """ target=""" & BannerQuadro & """><embed src=""" & BannerImagem & """ quality=""high"" WIDTH=""" & BannerLargura & """ HEIGHT=""" & BannerAltura & """ TYPE=""application/x-shockwave-flash""></a><a href=ondas.asp title=""Você possui um site de Radioamadorismo? Então conheça o Ondas do Rádio"" Target=_blank><img src=image/ondas.gif border=0 width=10 height=60></a>"

    Else

    mpsBanner = "<a href=""" & PathSys & "ir.asp?id=" & BannerID & """ target=""" & BannerQuadro & """><img src=""" & BannerImagem & """ border=""0"" alt=""" & BannerAlt & """ WIDTH=""" & BannerLargura & """ HEIGHT=""" & BannerAltura & """></a><a href=ondas.asp title=""Você possui um site de Radioamadorismo? Então conheça o Ondas do Rádio"" Target=_blank><img src=image/ondas.gif border=0 width=10 height=60></a>"

    End If

    Qualquer ajuda será bem vinda

    73

    Fausto

  19. Inserir Vários Emails Numa Caixa Só

    em ASP

    Postado

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

    <%

    End if

    DoLcase = request("action")

    Action = lcase(DoLcase)

    if Action = "add" then

    set Recordset1 = Server.CreateObject("ADODB.Recordset")

    Recordset1.ActiveConnection = MM_Connection1_STRING

    Recordset1.Source = "SELECT Member_Id FROM Email_Members where member_email ='"&request("email")&"'"

    Recordset1.CursorType = 0

    Recordset1.CursorLocation = 2

    Recordset1.LockType = 3

    Recordset1.Open()

    Recordset1_numRows = 0

    if not recordset1.eof then %>

    <%

    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

    %>

    qualquer ajuda será bem vinda

  20. Tamanho Da Tela

    em ASP

    Postado

    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. Inserir Vários Emails Numa Caixa Só

    em ASP

    Postado

    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. Como Aumentar O Tempo Do Servidor De Emails

    em ASP

    Postado

    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. Inserir Vários Emails Numa Caixa Só

    em ASP

    Postado

    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. Confirmar Via Email O Registro Do Email

    em ASP

    Postado

    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. Confirmar Via Email O Registro Do Email

    em ASP

    Postado · Editado por andreia_sp

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