Discussion :

[Thomas Parvais]

Bonjour,

Je cherche une fonction ASP pour générer un fichier compatible ICal à partir d'une table contenant des évènements avec date, titre, lieu...

Je ne trouve pas d'exemple sur le forum

merci

[agrotic]

bonjour Thomas,

as-tu des specs pour ton fichier ?

Nico

[Thomas Parvais]

bonjour Thomas,

as-tu des specs pour ton fichier ?

Nico

voilà mon code du fichier asp agenda-ics.asp

Cela génère bien un fichier avec le bon contenu que l'on peut sauver sur le disque mais sous le même nom que le script proprement dit. Je voudrais sauver l'output sous le nom agenda.ics

<%
Dim listOfDoc

' On récupère les 5 dernièrs events
listOfDoc = GetLastEvent(GetNumberOfEvent())

Response.ContentType = "application/txt"
%>BEGIN:VCALENDAR
PRODID:-//Max & Zoe Calendar 1.0//FR
VERSION:2.0
CALSCALE:GREGORIAN
METHODUBLISH
X-WR-CALNAME:Thomas Parvais
X-WR-TIMEZONE:Europe/Brussels
BEGIN:VTIMEZONE
TZID:Europe/Brussels
X-LIC-LOCATION:Europe/Brussels
BEGINAYLIGHT
TZOFFSETFROM:+0100
TZOFFSETTO:+0200
TZNAME:CEST
DTSTART:19700329T020000
RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
ENDAYLIGHT
BEGIN:STANDARD
TZOFFSETFROM:+0200
TZOFFSETTO:+0100
TZNAME:CET
DTSTART:19701025T030000
RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
END:STANDARD
END:VTIMEZONE<% for i = 0 to UBound( listOfDoc,2)-1
startdate = listOfDoc(2,i)
startdate = year(startdate)&month(startdate)&day(startdate)&"T000000Z"
enddate = listOfDoc(3,i)
enddate = year(enddate)&month(enddate)&day(enddate)&"T000000Z"%>
BEGIN:VEVENT
DTSTART:<%=startdate%>
DTEND:<%=enddate%>
SUMMARY:<%=listOfDoc(4,i)%>
DESCRIPTION:
LOCATION:<%=listOfDoc(5,i)%>,<%=listOfDoc(7,i)%>
END:VEVENT<% next %>
END:VCALENDAR

[agrotic]

bon, tu as déjà tout alors

rajoute peut-être simplement ceci juste après le response.contentType :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

	Response.AddHeader "Content-Disposition", "filename=agenda.ics;"

[Thomas Parvais]

bon, tu as déjà tout alors

rajoute peut-être simplement ceci juste après le response.contentType :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

	Response.AddHeader "Content-Disposition", "filename=agenda.ics;"

c'est top ! Cela marche merci !