Imam jedan problem ! Radim jednu stranicu s oglasima i klijent mi taži da stranica autmomatski briše sve oglase starije od 2 tjedna, ali da prije toga obavijesti korisnika mailom da će se to dogoditi. Ja imam nekoliko ideja, ali molim nekog sa više iskustva da mi kaže kako se to inače radi. Unapred hvala !!!!!
Automatsko brisanje iz baze i mail-anje
Zaključano
Zakačeno
Jednostavno selektovao bih sve oglase iz baze starije od odredjenog roka i onda ih brisao. Naravno pre brisanja, dovuci iz (druge) tabele mail koji ti treba i posalji mail.
Preduslov je dakle da sve drzis u bazi podataka.
pozdrav
Preduslov je dakle da sve drzis u bazi podataka.
pozdrav
Potpis
Commercial-Free !!!
izmenjeno 1 put, poslednji put Shadowed 06.07.2005. u 18:41
Izmene poruke
- Shadowed06.07.2005. u 18:41zapis iz teksta poruke
To znam ! Mislio sam automatski ! Znači da skripta sama briše sve oglase starije od dva tjedna. Za sada to mislim napraviti u global.asa file-u u application onStart i session onStart, ali ako neko ima bolje rješenje neka mi javi.
Primjer:
[Shadowed: dodati [code] tagovi ]
Primjer:
Code:
Sub Application_OnStart
Application.Lock
Application("timer") = Now()
Application.UnLock
End Sub
Sub Session_OnStart
If (Now() - Application("timer")) > Neki datum Then
' promijeniti podatke u bazi, itd.
Application.Lock
Application("timer") = Now()
Application.UnLock
End If
End Sub
Sub Application_OnStart
Application.Lock
Application("timer") = Now()
Application.UnLock
End Sub
Sub Session_OnStart
If (Now() - Application("timer")) > Neki datum Then
' promijeniti podatke u bazi, itd.
Application.Lock
Application("timer") = Now()
Application.UnLock
End If
End Sub
[Shadowed: dodati [code] tagovi ]
izmenjeno 1 put, poslednji put Shadowed 06.07.2005. u 18:42
Izmene poruke
- Shadowed06.07.2005. u 18:42zapis iz teksta poruke
Moze uz jednu napomenu: cini mi se da ce ova tvoja skripta da vrsi brisanje svakih 14 dana. Sto znaci ako danas izvrsis brisanje, do sledeceg brisanja mogu da se pojave oglasi koji ce preci starosnu granicu od 14 dana a nece biti obrisani sve dok ne prodje 2 nedelje.
Jednostavno, pozovi kod za brisanje svaki dan. Dovoljno je jednom.
[Shadowed: dodati [code] tagovi ]
Jednostavno, pozovi kod za brisanje svaki dan. Dovoljno je jednom.
Code:
Sub Session_OnStart()
If datediff("d", Application("timer"), Now() ) >= 1 Then
' brisi i salji mailove
Application.Lock
Application("timer") = Now()
Application.Unlock
End if
...
Sub Session_OnStart()
If datediff("d", Application("timer"), Now() ) >= 1 Then
' brisi i salji mailove
Application.Lock
Application("timer") = Now()
Application.Unlock
End if
...
[Shadowed: dodati [code] tagovi ]
Potpis
Commercial-Free !!!
Tu si u pravu ! Nisam provjerio da li to radi, ali sam dobio par savjeta da mail komponanta neće raditi u global.asa fileu. Ako je to istina možda će raditi ako postavim uvjet u global.asa fileu a onda ako je ispunjen sa server.execute izvršim kod neke druge stranice. Dajte ideje !!!
izmenjeno 1 put, poslednji put Shadowed 06.07.2005. u 18:46
Izmene poruke
- Shadowed06.07.2005. u 18:46zapis iz teksta poruke
Moze ovako (u session_onstart ):
Moras da imas SMTP server instaliran.
[Shadowed: dodati [code] tagovi ]
Code:
Err.Clear
Set objEMail = Server.CreateObject ("CDONTS.NewMail")
If (Err.number <> 0) then
Response.Write(Err.Description)
Else
objEMail.To = "[email protected]"
objEMail.From = "[email protected]"
objEMail.Subject = "SUBJECT neki :)"
objEMail.Body = "Pozdrav :)))"
objEMail.Send()
Set objEMail = Nothing
End If
Err.Clear
Set objEMail = Server.CreateObject ("CDONTS.NewMail")
If (Err.number <> 0) then
Response.Write(Err.Description)
Else
objEMail.To = "[email protected]"
objEMail.From = "[email protected]"
objEMail.Subject = "SUBJECT neki :)"
objEMail.Body = "Pozdrav :)))"
objEMail.Send()
Set objEMail = Nothing
End If
Moras da imas SMTP server instaliran.
[Shadowed: dodati [code] tagovi ]
Potpis
Commercial-Free !!!
Hvala na savjetima ! Radi mi sve online ! Jel neko zna zašto global.asa ne radi lokalno.
Heh, mozda je glupo pitanje --- ali, kako mislis ne radi lokalno?
Mora da radi :)
Mora da radi :)
Potpis
Commercial-Free !!!
Nije radila lokalno jer nisam bio kreirao virtualni direktorij ! Sad radi !
Jel znaš možda zašto CDONTS ne radi lokalno ako imam instaliran SMTP server.Stalno mi baca error "invalid class string", a to obično radi kad smtp server nije instaliran. Jel ga treba posebno podesiti da radi lokalno, tj. da skripte za slanje mailova mogu testirati na svom kompu.
Hvala ti na savjetima !!!!!!!!!!!!!!!!!
Jel znaš možda zašto CDONTS ne radi lokalno ako imam instaliran SMTP server.Stalno mi baca error "invalid class string", a to obično radi kad smtp server nije instaliran. Jel ga treba posebno podesiti da radi lokalno, tj. da skripte za slanje mailova mogu testirati na svom kompu.
Hvala ti na savjetima !!!!!!!!!!!!!!!!!
Samo ga ukljuci i sve je OK. Nikakva podesavanja nisu potrebna. Provereno salje mailove. Kod mene barem (uz napomenu, ja imam Win2K Server lokalno :)
Prema tekstu greske, cini mi se da nesto nije u redu sa registracijom klase koja ti treba. Pokusaj da reinstaliras SMTP ili citav IIS :)))))))
pozdrav
Prema tekstu greske, cini mi se da nesto nije u redu sa registracijom klase koja ti treba. Pokusaj da reinstaliras SMTP ili citav IIS :)))))))
pozdrav
Potpis
Commercial-Free !!!
Hvala na savjetu ! Probat ću ga reinstalirati !
Pozdrav od ig0ra
Pozdrav od ig0ra
Reinstalirao sam ga i ne radi opet. Nemam pojma više šta bi moglo biti !
Javlja mi onaj error i dalje i to u slijedećoj liniji koda:
set objMail = server.createobject("CDONTS.NewMail")
Kao da smtp server ni ne postoji ! Neće mi uopće kreirati objekt.
Jel imao netko sličan problem !
Javlja mi onaj error i dalje i to u slijedećoj liniji koda:
set objMail = server.createobject("CDONTS.NewMail")
Kao da smtp server ni ne postoji ! Neće mi uopće kreirati objekt.
Jel imao netko sličan problem !
Koji OS imas (XP? Cini mi se da CDONTS.dll dolazi samo sa Server verzijama Windowsa tako da mozda ni nemas to sto trazis. :) ?
Nisam siguran sta bi bilo kad bi pokusao da registrujes dll sa regsvr32 .. hmmm mozda vredi probati, uvek moze da se ukloni lako.
Nisam siguran sta bi bilo kad bi pokusao da registrujes dll sa regsvr32 .. hmmm mozda vredi probati, uvek moze da se ukloni lako.
Potpis
Commercial-Free !!!
Ma da shvatio sam u čemu je problem.Prešao sam na win xp, a on ne podržava CDONTS komponentu već ima CDOSYS komponentu.Ona ima drukčiju sintaksu, pa bih molio nekog tko je radio s njom da baci neki primjer. Našao sam neke na netu,ali mi ne rade lokalno.Znači pomoć CDOSYS !!!!!!!!!!!!
Pozdrav od ig0ra !
Pozdrav od ig0ra !
http://msdn.microsoft.com/libr...directory_using_cdosys_vbs.asp
Potpis
Commercial-Free !!!
Hvala !!!!!!!!!!! Sad mi radi CDOSYS komponenta.Također sam kopirao i CDONTS.DLL , registrirao ga na win xp-u i sad mi šljaka i on !
Hvala svima koji su mi pomogli.
Pozdrav od ig0ra!
Hvala svima koji su mi pomogli.
Pozdrav od ig0ra!