I am using a Philips Nino with WinCE 2.11. I know relatively little about programming, and am very unfamiliar with the dll's and virtual basic functions used in the 'appts.mcs' and 'appts.cdf' files. Right now my pda's default desktop is the mobile channels display. However, under appointments it only shows appointments within the next 24 hours. How can I modify the 'appts.*' files in the 'temporary internet files' directory so that all appointments in the next 7 days are listed? I've attached the files. Thank you for any help.
How do I view several days' appointments in mobile channels
- Thread starter TakedownCA
- Start date
Oops
I copied and pasted this post from a newsgroup post and forgot about the attachments. Here's the appts.mcs file:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="LaunchApp" CONTENT="CALENDAR.EXE">
<META HTTP-EQUIV="ScrollStyle" CONTENT="NOHORZSCROLL">
<%
SET MC = Server.CreateObject("MobileChannels.Utilities")
Database = MC.ReadRegistry("HKEY_LOCAL_MACHINE", "Explorer\\Database", "AppointmentsDatabase")
URL = ";URL=mctp://appts"
Response.Write("<META HTTP-EQUIV=\"Notify\" CONTENT=\"DBUPDATE=" & Database & URL & "\">")
CurTime = Now
Mins = Mid(CurTime,15,2)
Secs = Mid(CurTime,18,2)
Secs = (Mins * 60) + Secs
Secs = 905 - (Secs Mod 900)
NextRef = MC.LibraryCall("PIMAPI.DLL", "VbSecondsUntilNextAppt")
IF NextRef > 0 THEN
IF NextRef < Secs THEN
Secs = NextRef
END IF
END IF
Response.Write("<META HTTP-EQUIV=\"Refresh\" CONTENT=\"" & Secs & URL & "\">")
%>
<TITLE>Upcoming Appointments</TITLE>
</HEAD>
<BODY><FONT SIZE=5><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<%
CalItems = Split(MC.LibraryCall("PIMAPI.DLL", "VbGetCalendarData"), "!")
StartFont = ""
EndFont = ""
FirstBold = 0
If (CalItems.Count < 2) Then
Response.Write("<TR><TD>Noupcomingappointmentsfortoday.")
Else
For CalIndex = 0 To (CalItems.Count / 4) - 1
MaxLen = 24
ApptTime = CalItems((CalIndex * 4) + 1)
If Len(ApptTime) = 0 Then
Response.Write("<TR><TD><TD ALIGN=Right VALIGN=Top COLSPAN=2>AllDay<TD><TD ALIGN=Left VALIGN=Top>")
Location = CalItems((CalIndex * 4) + 2)
If Location And (Len(Location) > 0) Then
Location = "(" & Location & ")"
End If
Response.Write("<NOBR>" & Location & CalItems((CalIndex * 4) + 3) & "</NOBR>")
End If
Next
For CalIndex = 0 To (CalItems.Count / 4) - 1
If CalItems(CalIndex * 4) = "1" Then
StartFont = "<I>"
EndFont = "</I>"
MaxLen = 24
ElseIf CalItems(CalIndex * 4) = "2" And FirstBold = 0 Then
StartFont = "<B>"
EndFont = "</B>"
FirstBold = 1
MaxLen = 20
Else
StartFont = ""
EndFont = ""
MaxLen = 24
End If
ApptTime = CalItems((CalIndex * 4) + 1)
If Len(ApptTime) <> 0 Then
ToD = Split(ApptTime," ")
If ToD.Count = 2 Then
TimeNum = ToD(0)
TimeAmPm = ToD(1)
Else
TimeNum = ApptTime
TimeAmPm = ""
End If
Response.Write("<TR><TD><TD ALIGN=Right VALIGN=Top>")
Response.Write("<NOBR>" & StartFont & TimeNum & EndFont & "</NOBR><TD ALIGN=Right VALIGN=Top>")
Response.Write("<NOBR>" & StartFont & TimeAmPm & EndFont & "</NOBR><TD><TD ALIGN=Left VALIGN=Top>")
Location = CalItems((CalIndex * 4) + 2)
If Location And (Len(Location) > 0) Then
Location = "(" & Location & ")"
End If
Response.Write("<NOBR>" & StartFont & Location & CalItems((CalIndex * 4) + 3) & EndFont & "</NOBR>")
End If
Next
End If
%>
</TABLE></FONT></BODY>
</HTML>
I copied and pasted this post from a newsgroup post and forgot about the attachments. Here's the appts.mcs file:<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="LaunchApp" CONTENT="CALENDAR.EXE">
<META HTTP-EQUIV="ScrollStyle" CONTENT="NOHORZSCROLL">
<%
SET MC = Server.CreateObject("MobileChannels.Utilities")
Database = MC.ReadRegistry("HKEY_LOCAL_MACHINE", "Explorer\\Database", "AppointmentsDatabase")
URL = ";URL=mctp://appts"
Response.Write("<META HTTP-EQUIV=\"Notify\" CONTENT=\"DBUPDATE=" & Database & URL & "\">")
CurTime = Now
Mins = Mid(CurTime,15,2)
Secs = Mid(CurTime,18,2)
Secs = (Mins * 60) + Secs
Secs = 905 - (Secs Mod 900)
NextRef = MC.LibraryCall("PIMAPI.DLL", "VbSecondsUntilNextAppt")
IF NextRef > 0 THEN
IF NextRef < Secs THEN
Secs = NextRef
END IF
END IF
Response.Write("<META HTTP-EQUIV=\"Refresh\" CONTENT=\"" & Secs & URL & "\">")
%>
<TITLE>Upcoming Appointments</TITLE>
</HEAD>
<BODY><FONT SIZE=5><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>
<%
CalItems = Split(MC.LibraryCall("PIMAPI.DLL", "VbGetCalendarData"), "!")
StartFont = ""
EndFont = ""
FirstBold = 0
If (CalItems.Count < 2) Then
Response.Write("<TR><TD>Noupcomingappointmentsfortoday.")
Else
For CalIndex = 0 To (CalItems.Count / 4) - 1
MaxLen = 24
ApptTime = CalItems((CalIndex * 4) + 1)
If Len(ApptTime) = 0 Then
Response.Write("<TR><TD><TD ALIGN=Right VALIGN=Top COLSPAN=2>AllDay<TD><TD ALIGN=Left VALIGN=Top>")
Location = CalItems((CalIndex * 4) + 2)
If Location And (Len(Location) > 0) Then
Location = "(" & Location & ")"
End If
Response.Write("<NOBR>" & Location & CalItems((CalIndex * 4) + 3) & "</NOBR>")
End If
Next
For CalIndex = 0 To (CalItems.Count / 4) - 1
If CalItems(CalIndex * 4) = "1" Then
StartFont = "<I>"
EndFont = "</I>"
MaxLen = 24
ElseIf CalItems(CalIndex * 4) = "2" And FirstBold = 0 Then
StartFont = "<B>"
EndFont = "</B>"
FirstBold = 1
MaxLen = 20
Else
StartFont = ""
EndFont = ""
MaxLen = 24
End If
ApptTime = CalItems((CalIndex * 4) + 1)
If Len(ApptTime) <> 0 Then
ToD = Split(ApptTime," ")
If ToD.Count = 2 Then
TimeNum = ToD(0)
TimeAmPm = ToD(1)
Else
TimeNum = ApptTime
TimeAmPm = ""
End If
Response.Write("<TR><TD><TD ALIGN=Right VALIGN=Top>")
Response.Write("<NOBR>" & StartFont & TimeNum & EndFont & "</NOBR><TD ALIGN=Right VALIGN=Top>")
Response.Write("<NOBR>" & StartFont & TimeAmPm & EndFont & "</NOBR><TD><TD ALIGN=Left VALIGN=Top>")
Location = CalItems((CalIndex * 4) + 2)
If Location And (Len(Location) > 0) Then
Location = "(" & Location & ")"
End If
Response.Write("<NOBR>" & StartFont & Location & CalItems((CalIndex * 4) + 3) & EndFont & "</NOBR>")
End If
Next
End If
%>
</TABLE></FONT></BODY>
</HTML>
TRENDING THREADS
-
Discussion Zen 5 Speculation (EPYC Turin and Strix Point/Granite Ridge - Ryzen 9000)- Started by DisEnchantment
- Replies: 25K
-
Discussion Intel Meteor, Arrow, Lunar & Panther Lakes + WCL Discussion Threads
- Started by Tigerick
- Replies: 23K
-
Discussion Intel current and future Lakes & Rapids thread- Started by TheF34RChannel
- Replies: 23K
-
-
Facebook
Twitter