Just nu i M3-nätverket
Gå till innehåll
Eforum är stängt för nya inlägg och svar sedan 20 juni 2022. Klicka för att läsa vad som hände och om alternativ.

Kalender

Magnus Thorén1

Startad av Magnus Thorén1,
i Webbutveckling

Rekommendera Poster

Magnus Thorén1

Magnus Thorén1

Postad
Postad

Jag håller på att göra en kalender...Har kommit så långt att jag kan bläddra fram och tillbaka i den och markera den dag som man väljer...

 

Jag har också kopplat en databas till kalender och om man har något innlagt på den dag som är markerad så står det under kalendern...

 

Nu till problemt:

Jag skulle villja att man direkt i kalender kan se om det finns nått inskrivet...Tex med en liten bild eller nått...

 

Koden ser ut som följande:

 

<%

If Request("EventDate") <> "" Then

EventDate = DateValue(Request("EventDate"))

Else

EventDate = date

End If

 

CurrentMonth = Month(EventDate)

CurrentMonthName = MonthName(CurrentMonth)

CurrentYear = Year(EventDate)

 

FirstDayDate = DateSerial(CurrentYear, CurrentMonth, 1)

FirstDay = WeekDay(FirstDayDate, 0)

CurrentDay = FirstDayDate

 

%>

 

<html>

<body>

<table>

<tr>

<% If FirstDay <> 1 Then %>

<td colspan="<%=FirstDay -1 %>" bgcolor="lightgreen"></td>

<% End If

DayCounter = FirstDay

CorrectMonth = True

 

Do While CorrectMonth = True

 

If CurrentDay = EventDate Then %>

<td algin="center" bgcolor="red">

<% Else %>

<td align="center" bgcolor="lightblue">

<% End If %>

<a href="test.asp?EventDate=<%= Server.UrlEncode(CurrentDay)%>"><%=Day(CurrentDay)%></a>

</td>

<%

DayCounter = DayCounter + 1

If DayCounter > 7 Then

DayCounter = 1

%>

</tr>

<tr>

<%

End If

CurrentDay = DateAdd("d", 1, CurrentDay)

 

If Month(CurrentDay) <> CurrentMonth Then

CorrectMonth = False

End If

Loop

%>

<% If DayCounter <> 1 Then %>

<td Colspan="<%=8-DayCounter%>" bgcolor="lightgreen"></td>

<% End If %>

</tr>

 

</table>

Länk till kommentar
Dela på andra webbplatser
Anders N

Anders N

Postad
Postad

Utan att veta hur du har lagrat data i databasen, kan jag säga följande:

 

...
<a href="test.asp?EventDate=<%= Server.UrlEncode(CurrentDay)%>"><%=Day(CurrentDay)%></a>
<%
if (ManHarLagratNagotIDatabasen) then
	 response.write("<br>asdsd")
end if
%>
</td>
...

 

Ciao,

Anders

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

Gå till ämneslista


×
×
  • Skapa nytt...