Ir para conteúdo
Fórum Script Brasil

webdeveloper

Veteranos
  • Total de itens

    411
  • Registro em

  • Última visita

Posts postados por webdeveloper

  1. 'Se não encontrar um E-mail válido no Banco

    if rsEMAIL.eof then

    'varTEXTO = "ELE NÃO ENCOTROU MAIS NO BANCO ESTE E-MAIL"

    'Verificando se o e-mail já foi excluido

    if rsEMAIL("EMAIL") = varEMAIL then 'Porque este If, se não encontrou o e-mail não tem como comparar

    varTEXTO = "<p>O e-mail <b>"&varEMAIL&"</b> já está excluso de nossa base de dados.</p><p>Devido à nossa programação de envio de e-mails, pode ser que você ainda esteja recebendo nossos informativos, mas, a partir da data de <b>"&rsEMAIL("DATA")&"</b> seu nome não consta em nenhum novo agendamento.</p><p>A CR Basso continua com sua missão, visando fortalecer competências empresariais e profissionais.</p>"

    'Redireciona p/ informar que e-mail já esta excluido

    'response.Redirect("http://www.crbasso.com.br")

    else

    varTEXTO = ""

    end if

    'Cade o Else no caso do rsEMAIL retornar algo?

    end if

  2. Eu sei, no lugar do valor fixo você coloca o que o usuário digitar, o código que postei foi somente um exemplo muito simples, provavelmente você terá que gravar estas informações em um banco de dados ou algo do tipo.

  3. Mais ou menos assim:

    <%
    Option Explicit
    
    Dim vlrTotal, vlrParcela, numParcelas, datVencimento, intAux
    
    vlrTotal = 500
    numParcelas = 5
    vlrParcela = vlrTotal / numParcelas
    datVencimento = #04/02/2008#
    
    For intAux = 1 To numParcelas Step 1
        Response.Write "Parcela: " & intAux & " | Valor: " & vlrParcela & " | Vencimento: " & DateAdd("m", intAux - 1, datVencimento) & "<br />"
    Next
    %>

  4. Para o valor sem juros, faça um loop pelo numeros de parcelas imprimindo o valor divido pelo numeros de parcelas, no caso da data, dentro do mesmo loop das parcelas, você vai adicionando 30 dias a data de vencimento original, em cada loop.

    Mais ou menos isso.

  5. O problema e que não aparece erro, mais não aparece registro algum.
    Foi exatamente isso que eu disse, acrescente este trecho dentro do loop e veja o que aparece
    For i = 0 to Ubound(str_loop)

    Set ObjRS_ = Server.CreateObject("ADODB.RecordSet")

    str_SQL = "SELECT * FROM tb_clientes_lista WHERE segmentos = '"& str_loop(i) &"'"

    Set ObjRS_ = ObjCon.Execute(str_SQL)

    If Not ObjRS_.EOF Then

    Response.Write ObjRS_.Fields.Item(0).Value & "<br />"

    End If

    Next

×
×
  • Criar Novo...