Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 20
  1. #1
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916

    problema con condizione

    ho un problema con questa condizione:

    if diff = 3 & rs_01("tregiorni") = "" then

    else if...
    end if

    è fattibile o no?
    a me non da errore ma non esegue nulla!

    grazie!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  2. #2
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    non & devi scrivere AND
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  3. #3
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    Originariamente inviato da Sypher
    non & devi scrivere AND
    ah!
    mo provo!
    grazie!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  4. #4
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    niente da fare...non va!
    posto tutto il codice cosi magari cerco di spiegare meglio il problema:


    do while not rs_01.EOF

    'calcola la differenza tra la data di oggi e quella del campo
    subtime=NOW()
    data1 = ""&subtime&""
    strdurata= "" & rs_01("durata") & ""
    strscadenza= "" & rs_01("scadenza") & ""
    diff = DateDiff ( "d", (data1), (strscadenza) )


    if diff = 3 and rs_01("tregiorni") = "" then


    strFrom="xxxx.com"
    strFromMail="servizio.clienti@xxxx.com"
    strTo= rs_01("nome")
    strToMail= rs_01("mail")


    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = strFrom & "<" & strFromMail & ">"
    objMail.to = strTo & "<" & strToMail & ">"
    objMail.Subject = "Avviso di scadenza"
    objMail.Body = "testo"
    objMail.Importance=0
    objmail.MailFormat=0
    objMail.bodyFormat=0
    objmail.Send()


    'aggiunge ok nel campo
    rs_01("tregiorni") = "ok"
    rs_01.update



    elseif diff = 0 and rs_01("zerogiorni") = "" then



    strFrom="xxxx.com"
    strFromMail="servizio.clienti@xxxx.com"
    strTo= rs_01("nome")
    strToMail= rs_01("mail")


    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = strFrom & "<" & strFromMail & ">"
    objMail.to = strTo & "<" & strToMail & ">"
    objMail.Subject = "Avviso di scadenza"
    objMail.Body = "testo"

    objMail.Importance=0
    objmail.MailFormat=0
    objMail.bodyFormat=0
    objmail.Send()

    'aggiunge ok al campo
    rs_01("zerogiorni") = "ok"
    rs_01.update

    end if
    praticamente quello che voglio fare è questo:
    se diff = 3 manda una mail e scrivi ok nel campo tregiorni
    e se diff è = 0 manda l'altra mail e scrivi nel campo zerogiorni ok
    poi volevo mettere che se il campo zerogiorni o tregiorni è vuoto procedi altrimenti non fa niente!

    ma non succene niente, non scrive ok ne manda mail.

    non so perche?

    idee!
    grazie!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  5. #5
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    Originariamente inviato da yro
    do while not rs_01.EOF

    'calcola la differenza tra la data di oggi e quella del campo
    subtime=NOW()
    data1 = ""&subtime&""
    strdurata= "" & rs_01("durata") & ""
    strscadenza= "" & rs_01("scadenza") & ""
    diff = DateDiff ( "d", (data1), (strscadenza) )

    Response.Write diff & "
    "

    if diff = 3 and rs_01("tregiorni") = "" then



    strFrom="xxxx.com"
    strFromMail="servizio.clienti@xxxx.com"
    strTo= rs_01("nome")
    strToMail= rs_01("mail")


    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = strFrom & "<" & strFromMail & ">"
    objMail.to = strTo & "<" & strToMail & ">"
    objMail.Subject = "Avviso di scadenza"
    objMail.Body = "testo"
    objMail.Importance=0
    objmail.MailFormat=0
    objMail.bodyFormat=0
    objmail.Send()


    'aggiunge ok nel campo
    rs_01("tregiorni") = "ok"
    rs_01.update



    elseif diff = 0 and rs_01("zerogiorni") = "" then


    strFrom="xxxx.com"
    strFromMail="servizio.clienti@xxxx.com"
    strTo= rs_01("nome")
    strToMail= rs_01("mail")


    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.From = strFrom & "<" & strFromMail & ">"
    objMail.to = strTo & "<" & strToMail & ">"
    objMail.Subject = "Avviso di scadenza"
    objMail.Body = "testo"

    objMail.Importance=0
    objmail.MailFormat=0
    objMail.bodyFormat=0
    objmail.Send()

    'aggiunge ok al campo
    rs_01("zerogiorni") = "ok"
    rs_01.update

    end if
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  6. #6
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    stampa 30

    come fa ad non entrare nell'if?

    per spiegarmi meglio sto facendo un mercatino online dove uno inserisce in una spegie di guestbook degli oggetti

    adesso ho tre post uno scade tra 30 giorni e gli altri 2 tra 3 giorni!

    non so perche non funziona!

    i 2 che scadono tra 3 giorni dovrebbero mandare mail e scrivere ok nel db.

    il fatto è che senza la parte che scrive nel db le mail vengono mandate giuste!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  7. #7
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    allora quello che vuoi dire è che nel primo giro dato che la differenza è trenta non entra nell'if ma negli altri 2 casi dovrebbe entrare...se sì...metti il Response.End dopo la chiusura del ciclo sul recordset così vediamo intanto se i valori sono esatti!
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  8. #8
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    se tolgo response.end

    mi stampa correttamente tutte e 3 le scadenze!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  9. #9
    Utente di HTML.it L'avatar di Sypher
    Registrato dal
    Jun 2003
    Messaggi
    1,994
    Originariamente inviato da yro
    se tolgo response.end

    mi stampa correttamente tutte e 3 le scadenze!
    azzo strano... :master: l'unica idea che mi viene è che non venga rispettata la seconda condizione! il campo rs_01("tregiorni") è uguale a "" o è null?
    La passera non dura perchè Sypher la cattura!

    "No one like us we don't care, we are millwall, super millwall, we are millwall from the DEN"

  10. #10
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    Originariamente inviato da Sypher
    azzo strano... :master: l'unica idea che mi viene è che non venga rispettata la seconda condizione! il campo rs_01("tregiorni") è uguale a "" o è null?
    è un campo di testo, ed è vuoto io ho pensato di mettere "" o era meglio null? :master: non saprei!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.