Hjælp til ASP/XML kalender
Jeg har en kalender i XML og v.h.a. ASP henter jeg de to nyeste inlæg i kalenderen.Men jeg kunne godt tænke mig at få det alvet sådan et den viser de to næstkommende ud fra d.d.
ASP'en se sådan ud nu! Er der en som vil hjælpe mig med at skrive den om:
<% session.LCID = 1030 %>
<html>
<head>
<title></title>
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="http://www.team-ccc.dk/KMregnskab/team-ccc.css">
</head>
<body marginheight="0" marginwidth="0">
<%
Dim arr(1,2)
Dim objXML
Set objXML = Server.CreateObject("microsoft.XMLDOM")
objXML.Load (Server.MapPath("teamcccdb/calendar.xml"))
If objXML.parseError.errorcode = 0 Then
set cnodes = objXML.selectNodes("//calendar")
for each cnode in cnodes
calenderID = Trim(cnode.getElementsByTagName("id").item(0).text)
calname = Trim(cnode.getElementsByTagName("calname").item(0).text)
'Her kan der hendtes flere tags som er i <calender>
'Response.Write "Kalender ID : " & calenderID & " Navn: " & calname
'reset arrayet som udskrives for hver kalender.
for i = 0 to ubound(arr,2)
arr(0,i)="" : arr(1,i)=""
next
set n=cnode.getElementsByTagName("event")
for each note in n
dato = Trim(note.getElementsByTagName("date").item(0).text)
id = Trim(note.getElementsByTagName("id").item(0).text)
shortdesc = Trim(note.getElementsByTagName("shortdesc").item(0).text)
'Her lav link til kalenderen.
shortdesc = "<a href=""default.asp?id=0&ACT=91&calendar=" & calenderID &"&eventid=" & id & """ target=""_top"">" & shortdesc & "</a>"
description = Trim(note.getElementsByTagName("description").item(0).text)
link = trim(note.getElementsByTagName("link").item(0).text)
visible = trim(note.getElementsByTagName("visible").item(0).text)
eventdate = trim(note.getElementsByTagName("eventdate").item(0).text)
'Lav eventdate til en dato som dd/mm/yyyy
eventdate = mid(eventdate,7,2)&"/"&mid(eventdate,5,2)&"/"&mid(eventdate,1,4)
xform = trim(note.getElementsByTagName("xform").item(0).text)
owner = trim(note.getElementsByTagName("owner").item(0).text)
previewdate = trim(note.getElementsByTagName("owner").item(0).text)
dato = lavDato(dato)
stmp = "Emne:" & "¤¤¤¤¤¤¤" & shortdesc & "¤=¤=¤=¤=¤=¤"
stmp = stmp & "Oprettet:" & "¤¤¤¤¤¤¤" & dato & "¤=¤=¤=¤=¤=¤"
stmp = stmp & "Dato:" & "¤¤¤¤¤¤¤" & "<font color=""ff0000"">"& eventdate & "</font>"'& "¤=¤=¤=¤=¤=¤"
if isDate(eventdate) then
for i = 0 to ubound(arr,2)
if isDate(arr(0,i)) then
if CDate(eventdate) > CDate(arr(0,i)) then
yyDato = arr(0,i) : yyStr = arr(1,i)
arr(0,i) = eventdate : arr(1,i) = stmp
eventdate = yyDato : stmp = yyStr
end if
else
arr(0,i) = eventdate : arr(1,i) = stmp
exit for
end if
next
end if
next
'Udkriv de 3 nyeste pr. kalender og deres 2 seneste indlæg
Response.Write "<table class=""Table"" width="""" border=""0"">"
Response.Write "<tr><td colspan=""2"" valign=""top"" align=""left"">"
Response.Write "<b>" & calname & "</b>"
Response.Write "</td></tr>"
if arr(0,0) = "" then
Response.Write "<tr><td valign=""top"" width=""280"">Der er ingen aktivitet i kalenderen</td></tr>"
else
for i = 0 to ubound(arr,1)
writeArr = Split(arr(1,i),"¤=¤=¤=¤=¤=¤")
for u = 0 to ubound(writeArr)
lineArr = Split(writeArr(u),"¤¤¤¤¤¤¤")
Response.Write "<tr><td valign=""top"" width=""100"" align=""left"">" & lineArr(0) & "<td width=""180"" align=""left"">"
Response.Write lineArr(1)
Response.Write "</td></tr>"
next
next
end if
Response.Write "</table>"
Response.Write "<br>"
next 'loop til næste <calender>
Else
Response.Write ("There was an error")
End If
Set objXML = Nothing
%>
<%'function
function lavDato(stmp)
stmp=replace(stmp,"-","")
stmp=trim(stmp)
if len(stmp) = 12 then
sDato = mid(stmp,7,2)&"/"&mid(stmp,5,2)&"/"&mid(stmp,1,4)&" "&mid(stmp,9,2)&":"&mid(stmp,11,2)&":00"
end if
lavDato = sDato
end function
%>
</body>
</html>
Fomse:-)
