problem med kalender
Problemet er at hver gang man vælge en måned hopper den nye side op i et fuldt vindue. Jeg kører kalenderen i en iframe og der skal den blive i ... hvordan retter jeg det til så den bliver i samme vindue ?<%
Sub DisplayMover(intMonth, intYear, boolNext)
Dim strPageName
Dim strDate
Dim intNewMonth
Dim intNewYear
strPageName = LCase(Request.ServerVariables("PATH_INFO"))
intNewYear = intYear
If boolNext Then
intNewMonth = intMonth + 1
If intNewMonth = 13 Then
intNewMonth = 1
intNewYear = intNewYear + 1
End If
strDate = CStr(intNewYear)
If intNewMonth < 10 Then
strDate = strDate & "0"
End If
strDate = strDate & CStr(intNewMonth)
Response.Write " <a class=""MonthBanner"" href=" & Chr(34) & strPageName & "?dato=" & strDate & Chr(34) & ">>></a>" & vbCrLf
Else
intNewMonth = intMonth - 1
If intNewMonth = 0 Then
intNewMonth = 12
intNewYear = intNewYear - 1
End If
strDate = CStr(intNewYear)
If intNewMonth < 10 Then
strDate = strDate & "0"
End If
strDate = strDate & CStr(intNewMonth)
Response.Write "<a class=""MonthBanner"" href=" & Chr(34) & strPageName & "?dato=" & strDate & Chr(34) & "><<</a> " & vbCrLf
End If
End Sub
Function URLDato(intMonth, intYear)
Dim strDate
strDate = CStr(intYear)
If intMonth < 10 Then
strDate = strDate & "0"
End If
strDate = strDate & CStr(intMonth)
URLDato = "dato=" & strDate
End Function
Sub DisplayCalendar(boolAdmin)
' Hvis boolAdmin = True så vil der på hver enkelt hændelse være en
' skraldespan, der kan bruges til at fjerne den enkelte hændelse.
' Desuden vil dagen også være et link, der kan bruges til at redigere
' dagens hændelse.
Dim intMonth
Dim intYear
Dim intCountMonth
Dim intCountYear
Dim I
Dim strWork
Dim objRS
' Start med at finde ud af om der er valgt en dato fra kalenderen.
' Hvis der er valgt en dato, så sørg for at gøre klar til visning
' af den valgte dato. Hvis der ikke er valgt en dato, så hent
' dags dato i stedet for.
If Request.QueryString("dato") <> "" Then
If IsNumeric(Request.QueryString("dato")) Then
strWork = Request.QueryString("dato")
If Len(strWork) = 6 Then
intMonth = CLng(Mid(strWork, 5, 2))
intYear = CLng(Mid(strWork, 1, 4))
Else
intMonth = Month(CDate(Now()))
intYear = Year(CDate(Now()))
End If
Else
intMonth = Month(CDate(Now()))
intYear = Year(CDate(Now()))
End If
Else
intMonth = Month(CDate(Now()))
intYear = Year(CDate(Now()))
End If
' Dato-opsætningen er nu klar.
' Indsæt den stump JavaScript der skal bruges til at springe til en
' valgt måned fra drop-down menuen.
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "<!-- //" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "function goMonth() {" & vbCrLf
Response.Write " parent.document.location = '" & LCase(Request.ServerVariables("PATH_INFO")) & "?dato=' + document.frmSelect.selMonth.value;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "// -->" & vbCrLf
Response.Write "</script>" & vbCrLf
' Opbyg top-banneret med muligheden for at vælge en anden måned
' til visning.
Response.Write "<table width=""100%"" cellspacing=5 cellpadding=5 border=0>" & vbCrLf
Response.Write "<form name=""frmSelect"">" & vbCrLf
Response.Write "<tr><td class=""MonthBanner"" align=left valign=top>" & vbCrLf
Call DisplayMover(intMonth, intYear, False)
Response.Write "<select class=""MonthBanner"" name=""selMonth"" onChange=""java script:goMonth()"">" & vbCrLf
intCountMonth = intMonth - 5
intCountYear = intYear
If intCountMonth < 1 Then
intCountMonth = intCountMonth + 12
intCountYear = intCountYear - 1
End If
For I = 1 To 11
Response.Write "<option value=" & Chr(34) & intCountYear
If intCountMonth < 10 Then
Response.Write "0"
End If
Response.Write intCountMonth & Chr(34)
If intCountMonth = intMonth Then
Response.Write " selected"
End If
Response.Write ">"
Select Case intCountMonth
Case 1 : Response.Write "Januar "
Case 2 : Response.Write "Februar "
Case 3 : Response.Write "Marts "
Case 4 : Response.Write "April "
Case 5 : Response.Write "Maj "
Case 6 : Response.Write "Juni "
Case 7 : Response.Write "Juli "
Case 8 : Response.Write "August "
Case 9 : Response.Write "September "
Case 10 : Response.Write "Oktober "
Case 11 : Response.Write "November "
Case 12 : Response.Write "December "
End Select
Response.Write intCountYear & vbCrLf
intCountMonth = intCountMonth + 1
If intCountMonth = 13 Then
intCountMonth = 1
intCountYear = intCountYear + 1
End If
Next
Response.Write "</select>" & vbCrLf
Call DisplayMover(intMonth, intYear, True)
Response.Write "</td></tr>" & vbCrLf
Response.Write "</form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<br>" & vbCrLf
' Her skal vi så vise aktiviteterne for den valgte måned.
Set objRS = OpenDataBase("database/kalender.mdb", "SELECT * FROM events WHERE Maaned = " & intMonth & " AND Aar = " & intYear & " ORDER BY Dag")
If (Not objRS.BOF) And (Not objRS.EOF) Then
objRS.MoveFirst
I = 0
Response.Write "<table width=""100%"" cellspacing=2 cellpadding=2 border=0>" & vbCrLf
While Not objRS.EOF
I = I + 1
If Odd(I) Then
strWork = Chr(34) & "MonthOdd" & Chr(34)
Else
strWork = Chr(34) & "MonthEven" & Chr(34)
End If
Response.Write "<tr><td class=" & strWork & " width=25 align=center valign=middle>" & vbCrLf
If boolAdmin Then
Response.Write "<a class=" & strWork & " href=" & Chr(34) & LCase(Request.ServerVariables("PATH_INFO")) & "?rediger=" & objRS("ID") & "&" & URLDato(intMonth, intYear) & Chr(34) & ">"
End If
Response.Write objRS("Dag")
If boolAdmin Then
Response.Write "</a>"
End If
Response.Write vbCrLf
Response.Write "</td><td class=" & strWork & " width=25 align=center valign=middle>" & vbCrLf
Response.Write "<img src=""images/"
Select Case CLng(objRS("EventType"))
Case 1 ' Aktivitet Hjemme
Response.Write "home.gif"" width=14 height=14>" & vbCrLf
Case 2 ' Information
Response.Write "announce.gif"" width=16 height=17>" & vbCrLf
Case 3 ' Kalender Reference
Response.Write "calendar.gif"" width=16 height=16>" & vbCrLf
Case 4 ' Link
Response.Write "globe.gif"" width=16 height=16>" & vbCrLf
Case 5 ' Skrivelse
Response.Write "doc.gif"" width=16 height=16>" & vbCrLf
End Select
Response.Write "</td><td class=" & strWork & " width=""*"" align=left valign=top>" & vbCrLf
Response.Write TextFormat(objRS("Beskrivelse")) & vbCrLf
Select Case CLng(objRS("EventType"))
Case 3 ' Kalender Reference
Response.Write "Se <a href=" & Chr(34) & LCase(Request.ServerVariables("PATH_INFO")) & "?dato=" & Year(CDate(objRS("LinkDato")))
intCountMonth = Month(CDate(objRS("LinkDato")))
If intCountMonth < 10 Then
Response.Write "0"
End If
Response.Write CStr(intCountMonth) & Chr(34) & ">"
Response.Write DatoFormatering(CDate(objRS("LinkDato"))) & "</a>" & vbCrLf
Case 4 ' Link
Response.Write "<a href=" & Chr(34) & FixString(objRS("URL")) & Chr(34) & " target=""_blank"">" & FixString(objRS("URLTekst")) & "</a>" & vbCrLf
End Select
If boolAdmin Then
Response.Write "</td><td class=" & strWork & " width=25 align=center valign=middle>" & vbCrLf
Response.Write "<a href=" & Chr(34) & LCase(Request.ServerVariables("PATH_INFO")) & "?fjern=" & objRS("ID") & "&" & URLDato(intMonth, intYear) & Chr(34) & "><img src=""images/trashcan16.gif"" width=16 height=16 border=0 alt=""Fjern denne hændelse permanent ?""></a>" & vbCrLf
End If
Response.Write "</td></tr>" & vbCrLf
objRS.MoveNext
Wend
Response.Write "</table>" & vbCrLf
Else
Response.Write "Der er ingen registrerede aktiviteter i denne måned.<br>" & vbCrLf
End If
objRS.Close
Set objRS = Nothing
End Sub
%>
