CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

kasparos Nybegynder

14. maj 2004 - 23:46 Der er 3 kommentarer og
1 løsning

Hjælp til lille kalendersystem

Er der nogen som vil hjælpe med til at få et lile kalendersystem at fungere på en hjemmeside.
Vi har fundet en stor del af det vi har bruge for på: http://activedeveloper.dk/artikler/default.asp?articleid=37

Vi har brug for hjælpe til at få oprettet forbindelse til en Access-database og noget ASP-kode til at hente info fra databasen

En rimelig æøsning vil bli belønned, så vi håber på at få lidt hjælp :)

Synes godt om

kasparos Nybegynder

14. maj 2004 - 23:49 #1

Vi paster lige koden som fungerer perfekt:

<% Session.LCID = 1030 %>
<html>

<head>
<title>Kalender</title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#808080" vlink="#808080" alink="#808080">
<%
dtmDate = Request("date")
dtmToday = Date

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)
%>
Eksempel på en kalender (fra Dennis Knappe og modificeret af NoW112)
<div align="center"><center>
<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="7" align="center" valign="middle" bgcolor="#000000"><%=UCase(strMonth)%> <%=intYear%></td>
</tr>
<tr>
<td align="center" width="30" bordercolor="#000000">Man</td>
<td align="center" width="30" bordercolor="#000000">Tir</td>
<td align="center" width="30" bordercolor="#000000">Ons</td>
<td align="center" width="30" bordercolor="#000000">Tor</td>
<td align="center" width="30" bordercolor="#000000">Fre</td>
<td align="center" width="30" bordercolor="#000000">Lør</td>
<td align="center" width="30" bordercolor="#000000">Søn</td>
</tr>

<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center><a href=http://localhost/kalender.asp?date=" & DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)+1 & ">"
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 ""
End If
Response.Write Day(dtmCurDate)
Response.Write "</td>"
blnLast = False
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Response.Write "</a>"
Next
End If
Next
Response.Write "</td></tr>"
%>
<tr>
<td bgcolor="#000000" colspan="3"><a
href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></td>
<td bgcolor="#000000">
<a
href="kalender.asp?date=<%=DATE%>">I dag</a>
</td>
<td bgcolor="#000000" colspan="3" align="right"><a
href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></td>
</tr>
</table>
</center></div>
 
 
</body>
</html>

Synes godt om

thulesen Nybegynder

15. maj 2004 - 13:18 #2

Jeg har før prøvet at lave noget lignende før, og tror sagtens jeg kan lave det i ønsker for en rimelig pris. I kan evt. kontakte mig på thomas@thulesen.dk..

Synes godt om

ttopholm Nybegynder

15. maj 2004 - 13:53 #3

Har selv lavet noget lign med database.... umiddelbart er det det samme system jeg har bygget mit udfra. skriv en mail på tt@device.dk.

/Tue

Synes godt om

kasparos Nybegynder

15. november 2004 - 16:56 #4

lukker

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

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Hjælp til DC motorstyring Af axel21 i Småopgaver	7	06/03/202522:34	10/03/202518:51
Gode råd til kommende supporter Af SilentSloth i Småopgaver	4	31/12/202423:10	01/01/202515:09
Udregning af vinkel på brædder. Af Peter i Småopgaver	14	11/12/202415:12	13/12/202415:40
Dos program til at rette i .txt filer Af scharff i Småopgaver	10	11/12/202408:52	12/12/202410:45
Beregning af modstand Af Børge Skindhøj i Småopgaver	3	18/11/202414:32	18/11/202417:38

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