kalender ændre id til dato
Har brugt denne kode http://eksperten.dk/spm/537682 til at lave en eventkalender efter.Her er koden:
calendar.asp - viser kalenderen
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
dtmDate = Request.QueryString("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)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("wml.mdb")
%>
<script language="JavaScript">
function visevent(id) {
var Url = "vis.asp?id="+id;
var WindowWidth = 500;
var WindowHeight = 400;
var WindowTop = (screen.availHeight/2) - (WindowHeight/2);
var WindowLeft = (screen.availWidth/2) - (WindowWidth/2);
var WindowProps = 'toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable,width='+WindowWidth+',height='+WindowHeight+',left='+WindowLeft+',top='+WindowTop+',screenx='+WindowLeft+',screeny='+WindowTop;
PoppedWindow = window.open(Url,"PoppedWindow",WindowProps);
}
</script>
<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" class="top"><%=strMonth%> <%=intYear%></td>
</tr>
<tr>
<td align="center">Man</td>
<td align="center">Tir</td>
<td align="center">Ons</td>
<td align="center">Tor</td>
<td align="center">Fre</td>
<td align="center">Lør</td>
<td align="center">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><font face=verdana size=2>"
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
sDato = Year(dtmCurDate) & "-" & month(dtmCurDate) & "-" & day(dtmCurDate)
SQL = "select * from kalender where dato = #" & sDato & "#"
set rs = conn.Execute(SQL)
if not rs.EOF then Response.Write "<a href=""#"" onclick=""visevent('" & rs("id") & "');"">"
Response.Write Day(dtmCurDate)
if not rs.EOF then Response.Write "</a>"
Response.Write "</td>"
blnLast = False
Else
Response.Write "-</td>"
blnLast = True
End If
Else
Response.Write "-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>
<tr>
<td colspan="3" class="bar"><b>
<a href="calender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></b></td>
<td class="bar"> </td>
<td class="bar" colspan="3" align="right"><b>
<a href="calender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></b></td>
</tr>
</table>
</body>
</html>
vis.asp - viser indhold af valgt event
<html>
<head>
<title></title>
</head>
<%
id = replace(Request.QueryString("id"),"'","")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("wml.mdb")
SQL = "select * from kalender where id = " & id
set rs = Conn.Execute(SQL)
if not rs.EOF then
Response.Write "<center><table width=""75%"" cellpadding=""3"">"
Response.Write "<tr><td>Dato :</td><td>" & rs("dato") & "</td></tr>"
Response.Write "<tr><td>Tybe :</td><td>" & rs("tybe") & "</td></tr>"
Response.Write "<tr><td>Overskrift :</td><td>" & rs("overskrift") & "</td></tr>"
Response.Write "<tr><td valign=""top"">Information :</td><td>" & rs("information") & "</td></tr>"
Response.Write "</table></center>"
else
Response.Write "<center>Ingen eventes i dag</center>"
end if
%>
</body>
</html>
har følgerne felter i min db: overskrift, dato, tybe , information
Det jeg gerne vil have lavet er:
- man udtrækker dato og ikke id ved at klikke på linket i
kalenderen.
- ved at køre musen hen over linket i kalenderen, vises overskrifterne på den eller de events der er den pågældende dag
