TopXML Microsoft ASP library : ASP Create Yearly XML Calendar

Home Page

Add/Edit your code items

Search the code library

Browse for the code library

Microsoft ASP
Microsoft ASP
Microsoft ASP Contents
XML Strengths & Weaknessâ€™ with DOM, ASP & XSL
FAQ - My ASP MSXML transformation always outputs UTF-16?
WAP with ASP - starting the WAP adventure
ASP/XML Guest Book
Include an ASP-file in XSL (JITIC Solution)
Read/write data with VB using ASP pages

<< LAMP

By	John Overton
First Posted	10/24/2001
Times viewed	1735

ASP Create Yearly XML Calendar

Summary Load this page in your iis and it will create an xml file with calendar information.

Load this page in your iis and it will create an xml file with calendar information. It will automatically produce text.xml in the same directory. This xml file will list the months of the year, the first day name of the month, how many days are in the month, and list each day in the month and their names. It's quick and painless. I created this for a xml calendar. If you have any ideas for this code, or plan to use it for future projects, please contact me. I would be very interested in seeing how you are using it.

Additional information
<% 'John Overton Function GetDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) GetDaysInMonth = Day(dTemp) End Function Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) GetWeekdayMonthStartsOn = WeekDay(dTemp) End Function Function SubtractOneMonth(dDate) SubtractOneMonth = DateAdd("m", -1, dDate) End Function Function AddOneMonth(dDate) AddOneMonth = DateAdd("m", 1, dDate) End Function Const fsoForAppend = 8 dim ddate Dim objFSO dim daycount daycount=cdate("12/31/" & year(date))- cdate("01/01/" & year(date)) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Open the text file Dim objTextStream Set objTextStream = objFSO.createtextfile("c:\inetpub\wwwroot\text.xml") objTextStream.WriteLine "<?xml version=""1.0""?>" 'objTextStream.WriteLine "<?xml-stylesheet type=""text/xsl"" href=""text.xsl""?>" Response.Write WeekdayName(weekday(date)) dim d dim m dim w objTextStream.WriteLine "<Year>" for m = 1 to 12 objTextStream.WriteLine "<Month>" mdate=cdate(m & "/01/" & year(date)) objTextStream.WriteLine "<MonthName>" & MonthName(Month(mDate)) & "</MonthName>" objTextStream.WriteLine "<FirstDayName>" & weekdayname(weekday(GetWeekdayMonthStartsOn(mdate))) & "</FirstDayName>" objTextStream.WriteLine "<DaysInMonth>" & getdaysinmonth(m,year(date)) & "</DaysInMonth>" for d=1 to getdaysinmonth(m,year(date)) objTextStream.WriteLine "<Day>" objTextStream.WriteLine "<Date>" & cdate(m & "/" & d & "/" & year(date)) & "</Date>" objTextStream.WriteLine "<DayName>" & weekdayname(weekday(cdate(m & "/" & d & "/" & year(date)))) & "</DayName>" objTextStream.WriteLine "</Day>" next objTextStream.WriteLine "</Month>" next objTextStream.WriteLine "</Year>" objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing %>

Further additional information
<?xml version="1.0"?> <data> <row>1</row> <row>2</row> <row>3</row> <row>4</row> <row>5</row> <row>6</row> <row>7</row> <row>8</row> <row>9</row> <row>10</row> <row>11</row> <row>12</row> <row>13</row> <row>14</row> <row>15</row> <row>16</row> <row>17</row> <row>18</row> <row>19</row> <row>20</row> <row>21</row> <row>22</row> <row>23</row> <row>24</row> <row>25</row> <row>26</row> <row>27</row> <row>28</row> <row>29</row> <row>30</row> <row>31</row> <row>32</row> <row>33</row> <row>34</row> <row>35</row> <row>36</row> <row>37</row> <row>38</row> <row>39</row> <row>40</row> <row>41</row> <row>42</row> <row>43</row> <row>44</row> <row>45</row> <row>46</row> <row>47</row> <row>48</row> <row>49</row> <row>50</row> </data>

Rate this article on a scale of 1 to 10 (0 votes, average 0)

Your vote :

<< LAMP

Latest comments on this article	Admin
By ks on 9/1/2008 3:01:11 PM how do i load this page in iis?


Leave a comment for this article
Your name
Your email (optional)
Your comment
Optional: Upload an attachment
Enter the code shown:



	Recent Jobs Integration Specialist Needed - Work Fro Virtualization Server Infrastructure Arc A great opportunity to Digital Video Eng here is a greate opportunity as a SMS En A great opportunity as a Network Enginee View all Jobs (Add yours) View all CV (Add yours)

	Chicago Web Site Design spfxmasks conference calling Juicy couture sunglasses air freshener odor remover

	Partners Dream.In.Code dotNet Slackers dotNet Spider Your HTML Source VisualBuilder.com DevGuru Planet Source Code ZVON.ORG Web Design ASPAlliance XML Pitstop Scripts The Spot 4 SAP Bitshop Web Hosting

Email TopXML