Notifikationer

Markér alle som læst Log ud

tblaster Nybegynder

22. september 2002 - 15:44 Der er 5 kommentarer og
1 løsning

Kalender

Hejsa ...

Jeg har en side hvor jeg får viste en oversigt over denne måned. Nu vil jeg så gerne også have at den nedenunder viser en oversigt over næste måned på nøjagtig samme måde som denne måned. Er der en der kan fikse det for mig?

Her er min kode til det jeg har nu:

<body bgcolor=#ffffff text=#4179B6 link=#4179B6 vlink=#4179B6 alink=#FF0000>

<%
dtmDate = Request.QueryString("date")
dtmToday = Date
sQLokale = request.querystring("Lokale")

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<TABLE cellSpacing=0 cellPadding=2 width=150 align=center border=0>
<TR>
<TD>
<CENTER>
<A href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><<</A>
| <A href="kalender.asp">I dag</A>
| <A href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">>></A></CENTER></TD></TR></TABLE>
<TABLE borderColor=#cccccc cellSpacing=0 width=150 align=center border=1>
<TR>
<TD colSpan=7>
<%=strMonth%> <%=intYear%></TD></TR>
<TR>
<TD>
Ma</TD> <TD>
Ti</TD> <TD>
On</TD> <TD>
To</TD> <TD>
Fr</TD> <TD>
Lø</TD> <TD>
Sø</TD></TR>
<TR>

<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write "<td align=center bgcolor=#ffcccc><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " >" & Day(dtmCurDate) & "</a></td>"
Else ' Ny linie
Response.Write "<td align=center><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " >" & Day(dtmCurDate) & "</a></td>"
End if ' Er flyttet
blnLast = False
Else
Response.Write "<td align=center bgcolor=#ebebeb>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center bgcolor=#ebebeb>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>

Synes godt om

eagleeye Praktikant

22. september 2002 - 19:34 #1

Skal det være på samme side så kan man lave et loop omkring det hele med en for sætning.. eks:

<body bgcolor=#ffffff text=#4179B6 link=#4179B6 vlink=#4179B6 alink=#FF0000>

<%
dtmDate = Request.QueryString("date")
dtmToday = Date
sQLokale = request.querystring("Lokale")

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

for mCount = 0 to 1 'ny linie
dtmDate = DateAdd("m",mCount,dtmDate) 'ny linie

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<TABLE cellSpacing=0 cellPadding=2 width=150 align=center border=0>
<TR>
<TD>
<CENTER>
<A href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><<</A>
| <A href="kalender.asp">I dag</A>
| <A href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">>></A></CENTER></TD></TR></TABLE>
<TABLE borderColor=#cccccc cellSpacing=0 width=150 align=center border=1>
<TR>
<TD colSpan=7>
<%=strMonth%> <%=intYear%></TD></TR>
<TR>
<TD>
Ma</TD> <TD>
Ti</TD> <TD>
On</TD> <TD>
To</TD> <TD>
Fr</TD> <TD>
Lø</TD> <TD>
Sø</TD></TR>
<TR>

<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write "<td align=center bgcolor=#ffcccc><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " >" & Day(dtmCurDate) & "</a></td>"
Else ' Ny linie
Response.Write "<td align=center><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " >" & Day(dtmCurDate) & "</a></td>"
End if ' Er flyttet
blnLast = False
Else
Response.Write "<td align=center bgcolor=#ebebeb>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center bgcolor=#ebebeb>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>
</table>
<% next 'for i=0 to 1 <---- ny linie %>

Synes godt om

tblaster Nybegynder

23. september 2002 - 17:41 #2

Hvis jeg bruger det så bliver << | I dag | >> vist 2 gange hvilket den jo ikke skal og derudover så bliver der kun vist oktober 2002 og alle hverdagene (ma, ti, on, to, fr, lø, sø ) den går ikke ind og smider datoerne ind :-(

Synes godt om

eagleeye Praktikant

23. september 2002 - 18:49 #3

hmm ja det kan jeg se, der er lidt der skal ændre prøv at bruge dette:

<body bgcolor=#ffffff text=#4179B6 link=#4179B6 vlink=#4179B6 alink=#FF0000>

<%
dtmDate = Request.QueryString("date")
dtmToday = Date
sQLokale = request.querystring("Lokale")

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

for mCount = 0 to 1 'ny linie
dtmDate = DateAdd("m",mCount,dtmDate) 'ny linie

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<% if mCount = 0 then %>
<TABLE cellSpacing=0 cellPadding=2 width=150 align=center border=0>
<TR>
<TD>
<CENTER>
<A href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><<</A>
| <A href="kalender.asp">I dag</A>
| <A href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">>></A></CENTER>
</TD>
</TR>
</TABLE>
<% end if %>

<TABLE borderColor=#cccccc cellSpacing=0 width=150 align=center border=1>
<TR>
<TD colSpan=7>
<%=strMonth%> <%=intYear%></TD></TR>
<TR>
<TD>
Ma</TD> <TD>
Ti</TD> <TD>
On</TD> <TD>
To</TD> <TD>
Fr</TD> <TD>
Lø</TD> <TD>
Sø</TD></TR>
<TR>

<%
blnLast = False
intLoopDay = 0
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write "<td align=center bgcolor=#ffcccc><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " >" & Day(dtmCurDate) & "</a></td>"
Else ' Ny linie
Response.Write "<td align=center><a target=""højre"" href=dato.asp?Lokale=" & sQLokale & "&Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & " >" & Day(dtmCurDate) & "</a></td>"
End if ' Er flyttet
blnLast = False
Else
Response.Write "<td align=center bgcolor=#ebebeb>-</td>"
blnLast = True
End If
Else
Response.Write "<td align=center bgcolor=#ebebeb>-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>
</table>
<% next 'for i=0 to 1 <---- ny linie %>

Synes godt om

tblaster Nybegynder

23. september 2002 - 21:15 #4

Det lod til at virke ... hvad har du ændret i grove træk?

Synes godt om

eagleeye Praktikant

23. september 2002 - 21:19 #5

Jeg har tilføjet en if sætning så den kun udskriver << idag >> første gang:

<% if mCount = 0 then %> <---------------- Hvis det er første gang
<TABLE cellSpacing=0 cellPadding=2 width=150 align=center border=0>
<TR>
<TD>
<CENTER>
<A href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>"><<</A>
| <A href="kalender.asp">I dag</A>
| <A href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">>></A></CENTER>
</TD>
</TR>
</TABLE>
<% end if %> '<------------------ end if

Og så skulle der "nul"-stilles to variable til udskrivningen af anden månede:

<%
blnLast = False '<--------- Denne
intLoopDay = 0 '<--------- Og denne
For y = 1 to 6

Synes godt om

tblaster Nybegynder

23. september 2002 - 21:23 #6

ok ... thx ... du har temmelig meget styr på asp ... kan du hjælpe her:

http://www.eksperten.dk/spm/260934

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

09/10

Her er den lille danske virksomhed, som det store CPR-hack gik igennem

09/10

Test: Apples nye Mac Studio - her kan du få dit helt eget AI-datacenter for 50.000 kroner

09/10

Det her bliver den ultimative Windows-maskine: Datacenter-styrke til Porsche-priser

09/10

Nørgaard: Hvad jeg synes om CPR-hacket? Jeg synes én ting: Ha ha ha ha

09/10

Britiske pengefolk overtager nordjyske netIP: 270 ansatte får nye ejere

09/10

Kristian Hjort-Madsen skifter til Trifork: Vil udfordre store offentlige leverandører med nye produkter

09/10

Nye dokumenter afslører: Så længe var hackere inde i CPR-registeret

09/10

Otte vigtige punkter for den danske it-branche i regeringens forslag til finanslov

09/10

Kæmpe datacenter alvorligt skadet efter ukrainsk drone-angreb: Alle services i sort - brugere skal omgående finde alternativer

09/10

USA: Microsoft rekrutterer alt for mange udenlandske it-folk - tvangsfjernes straks fra vigtig ordning

09/10

Sådan kommer mindre virksomheder godt i gang med AI

Vis flere artikler

IT-JOB

Region Midtjylland

It-supporter til Regionshospitalet Viborg

Politi

Product Owner til AD, PAM og Exchange til Rigspolitiets Koncern IT

Netcompany A/S

Operations Engineer til drift af Infrastruktur

Politiets Efterretningstjeneste

Tester til PET: Vil du bruge dine kompetencer, hvor de gør en forskel?

PC SCHEMATIC A/S

Vi søger en IT-administrator med lyst til at gøre en forskel, i driften i dag og i compliance og cloud i morgen

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 13:35	Bruger på Win11 Af lurup i Browsere
07/1022:52	Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31	Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04	Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14	Ang udskrift Canon mb5050 Af made18 i Printere

White papers

Er det tid til at pensionere printserveren?
Konica Minolta
Dine data ligger i Europa – men hvem har reelt kontrollen?
Keepit
Samarbejde mellem AI og mennesker styrker sikkerheden
Konica Minolta
Undgå at printeren bliver svageste led i sikkerheden
Konica Minolta

Flere white papers »