---

Ja så løb jeg ind i lidt små problemer igen.
Så jeg prøver lige lykken igen her,
Jeg har en aktivitetskalender i ASP med en access database.
Jeg vil gerne have slettet aktiviteterne når dagen er overskredet.

Kan jeg sætte Aceess til det automatisk,? eller skal den kaldes til det fra
en ASP side.? og hvordan gør man sådan at det sker automatisk
uden man skal ind og trykke på en tast.?

Med venlig hilsen
Henry

---

Henry skrev:

> Jeg har en aktivitetskalender i ASP med en access database.
> Jeg vil gerne have slettet aktiviteterne når dagen er
> overskredet.

Er det ikke godt nok hvis aktiviteten bare ikke bliver vist?

Det er meget nemt at lave et fornuftigt kriterium (vis kun poster
hvor datoen er i dag eller senere) på den side der udskriver din
kaldender.

Du kan godt lave et slettescript, men det kan ikke køres automatisk
- medmindre du sætter det til at køre hver eneste gang du viser
siden. Jeg vil foreslå dig at beholde gamle poster i databasen og
så evt. rydde op en gang om året. Der er intet til hinder for at
gøre det oftere, men det er bare sjældent nødvendigt.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

> > Jeg har en aktivitetskalender i ASP med en access database.
> > Jeg vil gerne have slettet aktiviteterne når dagen er
> > overskredet.
>
> Er det ikke godt nok hvis aktiviteten bare ikke bliver vist?


Jo det rækker fint, jeg har en tekstside af aktivitetskalender hvor jeg
gerne vil lave en print funktion
så der kan printes aktiviteterne ud og helst kum dem fra d.d og frem.
Desuden er det de lokale foreninger mm. der selv skal tilføje, og så for at
jeg ikke skal ind og slette de gamle posteringer.

> Det er meget nemt at lave et fornuftigt kriterium (vis kun poster
> hvor datoen er i dag eller senere) på den side der udskriver din
> kaldender.

Ja .. hvis man lige ved det
og fint det er sådan en jeg skal have stykket sammen, men nu ved jeg da
hvilken retnining jeg skal hen imod.
Jeg vil nemlig også gerne på index siden - have dagens aktiviteter -og
måske ca. en uge frem listet,
så der ville den jo også kunne bruges.
kan du give et lille exempel. ? (eller måske er jeg nødt til at rode lidt
viderer - og vente med at spørge til det ikke virker)

Men rigtig mange tak igen for svar, det sparer mig da for en hel del fægten
rundt i blinde, og søge efter en forkert løsning.

Mvh
Henry

---

Henry spurgte:
>Jeg vil nemlig også gerne på index siden - have dagens aktiviteter -og
>måske ca. en uge frem listet,
>så der ville den jo også kunne bruges.
>kan du give et lille exempel. ? (eller måske er jeg nødt til at rode lidt
>viderer - og vente med at spørge til det ikke virker)


Du kan se resultatet af nedenstående kode på www.smaabaadsklub.dk
Obs. data hentes fra en MSSQL database og viser de næste 5 aktiviteter.
<%
Dim Idag
idag = Day(Date) & "/" & Month(Date) & "/" & Year(Date)

Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TOP 5 Dato, Arrangør, Aktivitet, Sted, Beskrivelse " &_
"FROM T_Aktivitet " &_
"WHERE ((T_Aktivitet.Dato)>= '" &_
Day(Date) & "/" & Month(Date) & "/" & Year(Date) & "')" &_
"ORDER BY Dato"

objRS.Open strSQL, dbCon, 1 '**Serveren
Response.Write "<TABLE BORDER=1 ALIGN=center WIDTH=""100%"">"
Response.Write "<TR bgcolor=#CCCC99> " &_
"<TH COLSPAN=4 ALIGN=left><FONT SIZE=-1><B>Næste 5 aktiviteter</TH>
" &_
"<TH align=right><FONT SIZE=-1><A
HREF=Aktivitet/Aktiviteter.asp>Aktiviteter</A></B></TH>" &_
"</TR>"

Do While Not objRS.EOF
If strBGColor = "#999966" Then
strBGColor = "#CCCC99"
Else
strBGColor = "#999966"
End If
Response.Write"<tr bgcolor="""& strBGColor &""">"
Response.Write "<TD><FONT SIZE=-2>"
Response.Write objRS("Dato") & "</TD><TD><FONT SIZE=-2>"
Response.Write objRS("Arrangør") & "</TD><TD><FONT SIZE=-2>"
Response.Write objRS("Aktivitet") & "</TD><TD><FONT SIZE=-2>"
Response.Write objRS("Sted") & "</TD><TD><FONT SIZE=-2>"
Response.Write Left(objRS("Beskrivelse"), 35) & " ....</TD></TR>"

objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
Response.Write "</FONT></TABLE>"
%>
Den viser også dagen i dag.

--
Med Venlig Hilsen
Jørgen Müller

---

Jørgen Müller skrev:

> Dim Idag
> idag = Day(Date) & "/" & Month(Date) & "/" & Year(Date)

Jeg er en smule allergisk overfor løsninger der sender dags dato
videre som tekst. Ovenstående skal nok virke fint, men der er mange
muligheder for at det kan gå galt når man sætter det op - fejl i
datoformater kan nemt opstå.

Både MSSQL og Access (og formentlig de fleste andre databaser) har
funktioner der genererer dags dato - i MSSQL er det GetDate() og
Access-funktionen er "Now" (eller "Date").

Man kan dog ikke sammenligne direkte på GETDATE() - fordi den også
tager timetallet med. Her er en mulighed for at vælge poster fra
dags dato eller nyere i MSSQL:

   SELECT * FROM arrangementer
   WHERE DateDiff(d, getdate(), DatoFelt) >= 0

I Access vil den se sådan ud:

   SELECT * FROM arrangementer
   WHERE DateDiff(d, Now(), DatoFelt) >= 0


Hvis man skal have andre datoer end den aktuelle sendt til
databasen, kan man med fordel benytte en databasefunktion der
genererer datoer fra tekst eller tal. I Access hedder den funktion
DateSerial mens man i MSSQL kan benytte Convert.

Christian Møller Nielsen har skrevet en artikel til gruppens
FAQ/OSS der viser hvordan man kan benytte DateSerial i Access:
<http://asp-faq.dk/article/?id=98>.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html