Avatar billede ceciliemathias Nybegynder
11. februar 2005 - 16:56 Der er 7 kommentarer og
1 løsning

kalender og medlemsside

Hej er der nogle der ved hvor jeg kan få en aktivitetskalender og måske også finde en form for medlemsside med login i asp !
Det må gerne være rimelig simpelt da jeg ikke er den store ASP guru :0)
Avatar billede hartnet.dk Nybegynder
11. februar 2005 - 23:07 #1
<%@LANGUAGE="VBSCRIPT"%>
<%
<!-- Table Settings
td1=25
td2=75
td3=150
table=td1+td2+td3
-->

IF Request.QueryString("mdr") = "" Then
currentmonth  =  month(now)
Else
currentmonth = Request.QueryString("mdr")
END If

IF Request.QueryString("yy") = "" Then
currentyear  =  year(now)
Else
currentyear = Request.QueryString("yy")
END If

currentday = day(now) &"-"& month(now)&"-"& year(now)

current = currentmonth&"-"&currentyear
firstDay  =  "01" & "/" & currentmonth & "/" & currentYear
lastday  = DateAdd("d", -1, DateAdd("m", 1, firstday))
startpos = Weekday(firstday, vbMonday)
currentpos = startpos
vertpos=1
myday  =  Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
mymonth  =  Array("Januar", "Februar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "November", "December")
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="cal-style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Response.Write "<a href='cal2.asp?mdr="&Month(Date)&"'>Denne måned</a> "
For t = LBound(mymonth) to UBound(mymonth)
      Response.Write "<a href='cal2.asp?mdr="&t +1 &"'>"& mymonth(t) &"</a>  "
Next
%>
<p></p>

<table width="<% = table %>" cellpadding="0" cellspacing="0">

  <tr bgcolor="#000000">
    <td width="<% = td1 %>">&nbsp;</td>
    <td width="<% = td2 %>"><font color="#FFFFFF"> <strong>
      <% Response.Write mymonth((currentmonth)-1) %>
    </strong></font></td>
    <td width="<% = td3 %>"><font color="#FFFFFF"><strong>Event</strong></font></td>
  </tr>
  <%
For x=1 to day(lastday)
if currentpos>7 then
currentpos=1
vertpos=vertpos+1
end if

Select case currentday
Case x &"-"&current
  cellstyle="todaycell"
Case else
  cellstyle="weekdaycell"
end Select


If currentpos>5 or currentpos<1 Then cellstyle="weekendcell"
Response.Write "<tr class=" & cellstyle &">"
Response.write "<td align=""right"" width="&td1&" valign=""top"">"& x &".</td>"
Response.Write "<td width="&td2&" valign=""top"">"& myday(WeekDay(FormatDateTime(x&"-"&current)) -1) & "</td>"
Response.Write "<td width="&td3&" valign=""top"">adsfasdf</td>"
currentpos=currentpos+1
next
Response.write "</tr>"
%>
</table>
<%
response.write currentday
%>
</body>
</html>
Avatar billede hartnet.dk Nybegynder
11. februar 2005 - 23:09 #2
Du kan se den i aktion her: http://www.hartnet.dk/kalender/cal2.asp
Eller her http://www.toendervideocenter.dk -> Kalender
Avatar billede ceciliemathias Nybegynder
12. februar 2005 - 10:46 #3
Hej igen
Den ser fin ud, glemte bare lige at skrive at man skal kunne oprette og slette on-line, altså med admin muligheder på både aktivitetskalender og medlemsside !
Avatar billede hartnet.dk Nybegynder
12. februar 2005 - 10:51 #4
Det er jo "bare" at lave den... så bestemmer man jo selv hvordan det skal være...
Avatar billede hartnet.dk Nybegynder
12. februar 2005 - 10:52 #5
Hvilken database vil du bruge til det ?
Avatar billede ceciliemathias Nybegynder
12. februar 2005 - 14:46 #6
jeg vil gerne bruge det i sammenhæng med et CMS jeg har købt, og det er acces database , men det må gerne være et selvstændigt modul, men jeg kan desværre
ikke "bare" lave det :0)
Avatar billede ceciliemathias Nybegynder
12. februar 2005 - 16:04 #7
Et andet spørgsmål er også - kan jeg lave et login på mit eksisterende cms, ex. så at man skal ha et login for at se nogle af siderne i cmsét
Avatar billede ceciliemathias Nybegynder
27. februar 2005 - 12:59 #8
ingen svar
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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