Mit Kalender script, viser ikke alle udtræk
Jeg dette script.*** kaledervis.asp ****
<% session.lcid=3079 %>
<%
if request("mdr") = "" then
if Month(Date) = 1 then mdrnu = "Januar"
if Month(Date) = 2 then mdrnu = "Februar"
if Month(Date) = 3 then mdrnu = "Marts"
if Month(Date) = 4 then mdrnu = "April"
if Month(Date) = 5 then mdrnu = "Maj"
if Month(Date) = 6 then mdrnu = "Juni"
if Month(Date) = 7 then mdrnu = "Juli"
if Month(Date) = 8 then mdrnu = "August"
if Month(Date) = 9 then mdrnu = "September"
if Month(Date) = 10 then mdrnu = "Oktober"
if Month(Date) = 11 then mdrnu = "November"
if Month(Date) = 12 then mdrnu = "December"
mdrnutal = Month(Date)
else
mdrnu = request("mdr")
if request("mdr") = "Januar" then mdrnutal = 1
if request("mdr") = "Februar" then mdrnutal = 2
if request("mdr") = "Marts" then mdrnutal = 3
if request("mdr") = "April" then mdrnutal = 4
if request("mdr") = "Maj" then mdrnutal = 5
if request("mdr") = "Juni" then mdrnutal = 6
if request("mdr") = "Juli" then mdrnutal = 7
if request("mdr") = "August" then mdrnutal = 8
if request("mdr") = "September" then mdrnutal = 9
if request("mdr") = "Oktober" then mdrnutal = 10
if request("mdr") = "November" then mdrnutal = 11
if request("mdr") = "December" then mdrnutal = 12
end if
if request("aar") = "" then
aarnu = year(date)
else
aarnu = request("aar")
end if
%>
<!--#include file="databaseforbindelse.asp"-->
<script LANGUAGE="JavaScript">
function kalenderklik(id) {
<% SQL = "Select * from kalender where dato>=#" & mdrnutal & "/01/" & aarnu & "# AND dato<#" & mdrnutal+1 & "/01/" & aarnu & "#"
set rs = conn.execute(SQL)
do until rs.eof %>
if (id == <% =rs("id") %>) {
document.getElementById("emneTekst").innerHTML = "<%
if WeekDay(rs("dato"), 2) = 1 then response.write("Mandag d. " & rs("dag") & ". " & rs("mdr"))
if WeekDay(rs("dato"), 2) = 2 then response.write("Tirsdag d ." & rs("dag") & ". " & rs("mdr"))
if WeekDay(rs("dato"), 2) = 3 then response.write("Onsdag d. " & rs("dag") & ". " & rs("mdr"))
if WeekDay(rs("dato"), 2) = 4 then response.write("Torsdag d ." & rs("dag") & ". " & rs("mdr"))
if WeekDay(rs("dato"), 2) = 5 then response.write("Fredag d. " & rs("dag") & ". " & rs("mdr"))
if WeekDay(rs("dato"), 2) = 6 then response.write("Lørdag d. " & rs("dag") & ". " & rs("mdr"))
if WeekDay(rs("dato"), 2) = 7 then response.write("Søndag d. " & rs("dag") & ". " & rs("mdr"))
%><br><br><% =replace(rs("beskrivelse"), vbcrlf, "<br>") %>";
}
<% rs.movenext
loop
rs.close %>
}
</script>
<% rs.open "Select * from kalender",conn %>
<table width=390 valign=top align=center cellpadding=0 cellspacing=0 border=0>
<form name=valg method="post" action="default.asp">
<input type="hidden" name="emne" value="kalender">
<tr>
<th colspan=2>
<table width=365 cellpadding=0 cellspacing=0 border=0>
<tr>
<td>
<table width=365 style="border-style:solid;border-width:1px;border-color:#000000;padding:0px;" cellpadding=0 cellspacing=0>
<tr>
<td align=left class="top"> <b><% =mdrnu %> <% =aarnu %></b></td>
<td align=right class="top">
<select name=mdr onchange="submit()">
<option <% if mdrnu="Januar" then response.write("Selected") %>>Januar</option>
<option <% if mdrnu="Februar" then response.write("Selected") %>>Februar</option>
<option <% if mdrnu="Marts" then response.write("Selected") %>>Marts</option>
<option <% if mdrnu="April" then response.write("Selected") %>>April</option>
<option <% if mdrnu="Maj" then response.write("Selected") %>>Maj</option>
<option <% if mdrnu="Juni" then response.write("Selected") %>>Juni</option>
<option <% if mdrnu="Juli" then response.write("Selected") %>>Juli</option>
<option <% if mdrnu="August" then response.write("Selected") %>>August</option>
<option <% if mdrnu="September" then response.write("Selected") %>>September</option>
<option <% if mdrnu="Oktober" then response.write("Selected") %>>Oktober</option>
<option <% if mdrnu="November" then response.write("Selected") %>>November</option>
<option <% if mdrnu="December" then response.write("Selected") %>>December</option>
</select>
<select name=aar onchange="submit()">
<% for i = 2003 to 2010 %>
<option <% if instr(aarnu, i) > 0 then response.write("Selected") %>><% =i %></option>
<% next %>
</select>
</td>
</tr>
</table>
</td>
</tr>
</table>
</th>
</tr>
</form>
<tr>
<td>
<table width=200 cellpadding=0 cellspacing=0>
<%
for i=1 to 31
if isdate(mdrnutal & "/" & i & "/" & aarnu) = True then
if i < 10 then
rs.filter = "dato=#" & mdrnutal & "/0" & i & "/" & aarnu & "#"
else
rs.filter = "dato=#" & mdrnutal & "/" & i & "/" & aarnu & "#"
end if %>
<tr>
<td class="nyhed" style="border-style:solid;border-left-width:0px;border-top-width:0px;border-right-width:1px;border-bottom-width:1px;border-color:#000000;" width=8 <% if DateValue(i & "/" & mdrnutal & "/" & aarnu)=date then response.write("bgcolor='#ababab'") %>> <% =x %>
<%
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 1 then response.write("Man")
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 2 then response.write("Tirs")
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 3 then response.write("Ons")
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 4 then response.write("Tors")
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 5 then response.write("Fre")
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 6 then response.write("Lør")
if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 7 then response.write("Søn")
%>
</td>
<td class="nyhed" style="border-style:solid;border-left-width:0px;border-top-width:0px;border-right-width:1px;border-bottom-width:1px;border-color:#000000;" width=15 <% if DateValue(i & "/" & mdrnutal & "/" & aarnu)=date then response.write("bgcolor='#ababab'") %>><center><% =i %></center></td>
<td class="nyhed" <% if WeekDay(i & "/" & mdrnutal & "/" & aarnu, 2) = 7 then %> <% end if %> width=180 style="border-style:solid;border-left-width:0px;border-top-width:0px;border-right-width:1px;border-bottom-width:1px;border-color:#000000;">
<% if rs.eof = false then
do until rs.eof %>
<a class=knap href="java script: kalenderklik(<% =rs("id") %>);"><% =(rs("overskrift")) %></a>
<% rs.movenext
loop %>
<% else %>
<% end if %>
</td>
</tr>
<% end if
next %>
</table>
</td>
<% if request("id") > 0 then
rs.filter = "id=" & request("id")
end if %>
<td width=170 valign=top style="border-style:solid;border-left-width:0px;border-top-width:0px;border-right-width:1px;border-bottom-width:1px;border-color:#000000;">
<table width=163 cellpadding=0 cellspacing=0 border=0>
<tr class="nyhed">
<td class="nyhed" style="border-style:solid;border-left-width:0px;border-top-width:0px;border-right-width:0px;border-bottom-width:1px;border-color:#000000;"><b>Arrangementer</b></td>
</tr>
<tr>
<td wrap=true class="nyhed" id="emneTekst"><% if request("id") > 0 then %>
<% end if %>
</td>
</tr>
</td>
</tr>
</table>
</table>
<script LANGUAGE="JavaScript">
function ppp (url) {
window.open(url, 'Billede', 'toolbar=0,scrollbars=0,location=0,statusbar=0,menubar=0,resizable=0');
}
function confirmSubmit(overskrift)
{
var agree=confirm("Er De sikker på at De vil slette " + overskrift + "?");
if (agree)
return true ;
else
return false ;
}
</script>
<script src="/fade.js" language="Javascript"></script>
</script>
Problemet er at den ikke viser alle udtræk fra min database.
Hvem kan hjælpe ??
se http://remo.lir.dk/kauri2004 på forsidenden har jeg lavet klubklander denne måned og tournering denne månede, hvis man klikker på klub kalder kommer ikke alle udtrækende frem
