Hallo Erik,
Hallo Alexander,
danke f�r die Tipps.
@ Erik
Sieht nett aus - funktioniert auch ganz gut... ist nur leider nicht das,
was ich suche. :-( - ABER!! Hat mir f�r eine andere sache einen
Denkanstoss gegeben.
@ Alexander
Das habe ich auch schon gemacht. Ich habe auch ein Script gefunden
(dev-asp.com) NUR komme ich da nicht so ganz weiter. Ich bin mal so
frech und poste den gesamten Quelltext - und vorweg gleich noch einen
Hinweis:
Komischerweise werden nicht alle Events im Kalender dargestellt - in der
Datenbank befinden sich f�r den Mai 2002 insg. Ca 20 Termine - davon
werden aber nur 2!! dargestellt. Was habe ich denn da �bersehen oder was
ist da nicht i.o.?
--- schipp:
<%@ LANGUAGE="VBScript" %>
<!--#INCLUDE FILE="dbcon.asp" -->
<%
Session.LCID = 1031
'Option Explicit
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open DBCon
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "</P><P>")
String = Replace(String, CHR(10), "<BR>")
FormatStr = String
End Function
Dim dtToday
dtToday = Date()
Dim dtCurViewMonth ' First day of the currently viewed month
Dim dtCurViewDay ' Current day of the currently viewed month
Dim frmDate ' Date submitted by form
' if the GO button was used, build the date from the month and year
If InStr(1, Request.Form, "subGO", 1) > 0 then
if Request.Form("CURDATE_month") = "" then
tmpMonth = month(now())
else
tmpMonth = Request.Form("CURDATE_month")
End If
if Request.Form("CURDATE_year") = "" then
tmpyear = year(now())
else
tmpyear = Request.Form("CURDATE_year")
End If
tmpDate = "1 " & tmpMonth & " 1999"
mnth = Month(tmpDate)
frmDate = DateSerial(tmpyear, mnth, 1)
Else
frmDate = Request.Form("CURDATE")
end if
if Request("view_date") <> "" then
frmDate= DateSerial(year(Request("view_date")),
month(Request("view_date")), 1)
end if
%>
<% REM This section defines functions to be used later on. %>
<% REM This sets the Previous Sunday and the Current Month %>
<%
'--------------------------------------------------
Function DtPrevSunday(ByVal dt)
Do While WeekDay(dt) > vbSunday
dt = DateAdd("d", -1, dt)
Loop
DtPrevSunday = dt
End Function
'--------------------------------------------------
%>
<%REM Set current view month from posted CURDATE, or
' the current date as appropriate.
' if posted from the form
' if prev button was hit on the form
If InStr(1, Request.Form, "subPrev", 1) > 0 Then
dtCurViewMonth = DateAdd("m", -1, frmDate)
' if next button was hit on the form
ElseIf InStr(1, Request.Form, "subNext", 1) > 0 Then
dtCurViewMonth = DateAdd("m", 1, frmDate)
' anyother time
Else
' date add in text box
If InStr(1, Request.Form, "subGO", 1) > 0 then
dtCurViewMonth = frmDate
Else
if Request("view_date") <> "" then
dtCurviewMonth = frmDate
else
dtCurViewMonth = DateSerial(Year(dtToday), Month(dtToday),
1)
End If
End If
End If
%>
<% REM --------BEGINNING OF DRAW CALENDAR SECTION-------- %>
<% REM This section executes the event query and draws a matching
calendar. %>
<%
Dim iDay, iWeek, sFontColor, dictDte(31,2), intCount
strSql = "SELECT * FROM schedule WHERE month(DATE_F)= " &
month(dtCurViewMonth) & " and year(DATE_F) = " & year(dtCurViewMonth) &
" order by DATE_F"
set rs = my_conn.Execute (StrSql)
intCount= 0
' populate array with days of month
on Error resume next
do until rs.EOF
if intCount > 31 then exit do
if Day(rs("DATE_F")) = intCount + 1 then
dictDte(intCount, 1) = rs("EVENT")
rs.Movenext
Else
dictDte(intCount, 1) = " "
End If
dictDte(intCount, 2) = intCount + 1
intCount = intCount + 1
loop
%>
<html>
<head>
</head>
<body>
<center>
<form NAME="fmNextPrev" ACTION="diary.asp"
METHOD="POST">
<table CELLPADDING="0" CELLSPACING="0" WIDTH="95%" BORDER="0"
BGCOLOR="#99CCFF" BORDERCOLORDARK="#003399" BORDERCOLORLIGHT="#FFFFFF">
<tr VALIGN="MIDDLE" ALIGN="CENTER">
<td COLSPAN="7">
<table CELLPADDING="0" CELLSPACING="0" WIDTH="100%"
BORDER="0">
<tr VALIGN="MIDDLE" ALIGN="CENTER">
<td WIDTH="30%" ALIGN="RIGHT">
<input TYPE="IMAGE" NAME="subPrev" SRC="Left.gif"
BORDER="0" WIDTH="18" HEIGHT="20" HSPACE="0" VSPACE="0">
</td>
<td WIDTH="40%">
<font FACE="Arial" COLOR="#000000">
<b><%=MonthName(Month(dtCurViewMonth)) & " " &
Year(dtCurViewMonth)%></b>
</font>
</td>
<td WIDTH="30%" ALIGN="LEFT">
<input TYPE="IMAGE" NAME="subNext" SRC="Right.gif"
BORDER="0" WIDTH="18" HEIGHT="20" HSPACE="0" VSPACE="0">
</td>
</tr>
</table>
</td>
</tr>
<tr VALIGN="TOP" ALIGN="CENTER" BGCOLOR="#000099">
<% For iDay = vbSunday To vbSaturday %>
<th WIDTH="14%"><font FACE="Arial" SIZE="-2"
COLOR="#FFFFFF"><%=WeekDayName(iDay)%></font></th>
<%Next %></tr>
<%
dtCurViewDay = DtPrevSunday(dtCurViewMonth)
For iWeek = 0 To 5
Response.Write "<TR VALIGN=TOP>" & vbCrLf
Dim sBGCOLOR
sBGCOLOR = "#99ccff"
For iDay = 0 To 6
sBGCOLOR = "#99ccff"
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
If dtCurViewDay = dtToday Then sBGCOLOR = "#99ccbb"
else
sBGCOLOR = "#99ccff"
End If
Response.Write "<TD HEIGHT=50 bgcolor='" & sBGCOLOR & "' >"
If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
If dtCurViewDay = dtToday Then
sFontColor = "#ff0000"
Else
sFontColor = "#00000"
End If
'---- Write day of month
Response.Write "<FONT FACE=""Arial"" SIZE=""-2"" COLOR=""" &
sFontColor & """><B>"
Response.Write "<a href=view_day.asp?" & "view_date=" &
day(dtCurViewday) & "-" & monthname(month(dtCurViewday)) & "-" &
year(dtCurViewday) & ">" & Day(dtCurViewDay) & "</a></B><br>" &
formatStr(dictDte(Day(dtCurViewDay)- 1, 1)) & "</FONT><BR>"
'---Else
'---Response.Write "�"
End If
Response.Write "</TD>" & vbCrLf
dtCurViewDay = DateAdd("d", 1, dtCurViewDay)
Next
Response.Write "</TR>" & vbCrLf
Next
%>
<%REM --------END OF DRAW CALENDAR SECTION--------
my_conn.Close
set my_conn = nothing
%>
</table>
<select name="CURDATE_month">
<option value="<%=monthName(month(dtCurViewMonth))%>"
selected><%=monthName(month(dtCurViewMonth))%>
<option value="January">January
<option value="February">February
<option value="March">March
<option value="April">April
<option value="May">May
<option value="June">June
<option value="July">July
<option value="August">August
<option value="September">September
<option value="October">October
<option value="November">November
<option value="December">December
</select>
<input TYPE="text" NAME="CURDATE_YEAR" VALUE="<%=year(dtCurViewMonth)%>"
size="6"><br>
<input type="hidden" Name="CURDATE" Value="<%=dtCurViewMonth%>">
<input type="submit" value=" GO " name="subGO">
</form>
</center></div>
</font>
</center>
</body>
</html>
---- Schnapp
Vorab Danke f�r eure Hilfe.
> -----Urspr�ngliche Nachricht-----
> Von: Alexander Zeitler [mailto:[EMAIL PROTECTED]]
> Gesendet: Mittwoch, 13. Februar 2002 22:28
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] Re: Kalenderkomponente
>
>
> Hallo,
>
> >Ich habe nur eine ganz bescheidene Frage. Ich ben�tige einen
> Kalender �
> >eine Seite - also eine Monatsansicht die mit Terminen in einer DB
> >ef�ttert wird. Wer hat einen Tipp oder vielleicht einen
> entsprechenden
> >ink?? Hier auf aspheute.com habe ich nichts dar�ber gefunden.
>
http://www.aspin.com/func/search?tree=aspin&qry=calendar&cat=
Gruss
Alex
www.aspintranet.de
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
| knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
