How do I programatically add tasks,events to outlook calendar using ASP

<i><b>Originally posted by : Mahesha Yellambalase (mahesha@gigaweb.com)</b></i><br />Hello Sir,<br />I've been working on the programatically adding events,tasks to<br />outlook calendar from ASP.By Events I mean some task which has a<br />startdate,enddate,start time and a end time.<br />Basically I used <br />response.contenttype = "text/x-vcalendar".<br />and send some headers to ASP pages.<br />This seems to work in for outlook 98.<br />But if I try to add my event with outlook 2000 installed in it.<br />It doesn't show the event time correctly.If a task is supposed to start at<br />1.00 p.m it displays as 9.00 a.m.But the same works in outlook 98.<br />This has been reported as a bug to on our site.I'm not sure or clear as to<br />what changes do I need to make for this to work for outlook 2000.I guess it<br />is not a programming issue but a outlook 2000 product issue.<br />Any help on this would be great.I searched so many sites on this topic but<br />couldn't get useful results.If you have ever published any article on this<br />would you please send me a link to that article.Or if you plan to publish<br />one that would be great.<br />I'm also sending a piece of code that I'm using below so that you can<br />correct me if I'm wrong.All the data is being pulled from a ADODB.recordset<br />object.sStartDate and sEndDate are in the format(yyyymmddThhmmss) format and<br />hours are in 24 hour format.<br />Thanks for any help on this.<br />Mahesha<br />Mahesha Yellambalase<br />Giga Information Group<br />Work Tel : 781-792-2671<br />Email : mahesha@gigaweb.com<br /><br />Response.ContentType = "text/x-vcalendar"<br /> Response.AddHeader "Content-Disposition", "filename=GigaEvent" & nEventID &<br />".vcs" <br />sMsg = sMsg & "BEGIN:VCALENDAR" & vbLF <br />sMsg = sMsg & "BEGIN:VEVENT" & vbLF<br /> sStartDate = FormatDate(rstResult("dEventStartDate"),<br />rstResult("sEventStartTime") ) <br />sEndDate = FormatDate(rstResult("dEventEndDate"),<br />rstResult("sEventEndTime")) <br />sMsg = sMsg & "DTSTART:" & sStartDate & vbLF<br /> sMsg = sMsg & "DTEND:" & sEndDate & vbLF <br />sMsg = sMsg & "LOCATION:" & rstResult("sLocation") & vbLF <br />sMsg = sMsg & "DESCRIPTION;ENCODING=QUOTED-PRINTABLE:" <br />sMsg = sMsg & trim(rstResult("sAbstract")) & vbLF sMsg = sMsg &<br />"SUMMARY;ENCODING=QUOTED-PRINTABLE:"<br /> sMsg = sMsg & trim(rstResult("sResourceName")) & ": " <br />sMsg = sMsg & trim(rstResult("sTitle")) & vbLF<br /> sMsg = sMsg & "PRIORITY:3" & vbLF sMsg = sMsg & "END:VEVENT" & vbLF <br />sMsg = sMsg & "END:VCALENDAR" & vbLF Response.Write sMsg <br /><br /><br />