Hjælp til kalender system.
Jeg har et kalender system som kan ses her:http://www.marianne-f.dk/ture.asp
Jeg skal have ændret scriptet, så alle havnene bliver vist under samme måned, så man f.eks. ikke har 2juni måneder.
Også skal selve havnen skrives lige efter datoen på hver begivenhed.
Vil høre om der er en venlig sjæl som kan hjælpe.?
koden til vis siden.
<%
dim conn, strconnect, sql, rs, ture1, ture2, ture3, ture4, ture5, ture6, ture7, ture8, ture9, ture10
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/cms.mdb")
set rs = server.createobject("ADODB.Recordset")
sql = "select * from indhold where side=1;"
rs.open sql, conn
while not rs.eof
ture1 = rs("ture1")
ture2 = rs("ture2")
ture3 = rs("ture3")
ture4 = rs("ture4")
ture5 = rs("ture5")
ture6 = rs("ture6")
ture7 = rs("ture7")
ture8 = rs("ture8")
ture9 = rs("ture9")
ture10 = rs("ture10")
rs.movenext
wend
%>
<!-- #include file="base.asp" --><title>Vis begivenheder</title>
<link href="style/akstyle.css" rel="stylesheet" type="text/css">
<p> </p>
<table width="750" height="484" border="0">
<tr valign="top"> </tr>
<tr valign="top">
<td><table class=MsoNormalTable border=0 cellpadding=0 width=573
style='width:429.75pt;mso-cellspacing:1.5pt;mso-padding-alt:0cm 5.4pt 0cm 5.4pt'
height=313>
<tr style='mso-yfti-irow:0;mso-yfti-firstrow:yes;height:15.0pt'>
<td width=271 style='width:203.25pt;padding:.75pt .75pt .75pt .75pt;
height:15.0pt'> <p class=MsoNormal><o:p> </o:p></p></td>
<td width=30 style='width:22.5pt;padding:.75pt .75pt .75pt .75pt;
height:15.0pt'> <p class=MsoNormal><o:p> </o:p></p></td>
<td width=252 style='width:189.0pt;padding:.75pt .75pt .75pt .75pt;
height:15.0pt'> <p class=MsoNormal><o:p> </o:p></p></td>
</tr>
<tr style='mso-yfti-irow:1'>
<td width=271 style='width:203.25pt;padding:.75pt .75pt .75pt .75pt'>
<p><b><span style='font-size:7.5pt;font-family:Verdana;color:#6699CC'>
<% response.write ture2 %>
</span></b></p></td>
<td width=30 style='width:22.5pt;padding:.75pt .75pt .75pt .75pt'> <p class=MsoNormal><o:p> </o:p></p></td>
<td width=252 style='width:189.0pt;padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><o:p> </o:p></p></td>
</tr>
<tr style='mso-yfti-irow:2;height:184.5pt'>
<td width=271 valign=top style='width:203.25pt;padding:.75pt .75pt .75pt .75pt;
height:184.5pt'> <p><b><span style='font-size:7.5pt;font-family:Verdana;color:black'>
<% response.write ture3 %>
</span></b></p></td>
<td width=30 style='width:22.5pt;padding:.75pt .75pt .75pt .75pt;
height:184.5pt'> <p class=MsoNormal><o:p> </o:p></p></td>
<td width=252 style='width:189.0pt;padding:.75pt .75pt .75pt .75pt;
height:184.5pt'> <p align=right style='text-align:right'> <img border=0 width=248 height=248
id="_x0000_i1031" src="images/maribag.jpg" align=bottom></p></td>
</tr>
<tr style='mso-yfti-irow:3;mso-yfti-lastrow:yes'>
<td width=271 style='width:203.25pt;padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><o:p> </o:p></p></td>
<td width=30 style='width:22.5pt;padding:.75pt .75pt .75pt .75pt'> <p class=MsoNormal><o:p> </o:p></p></td>
<td width=252 style='width:189.0pt;padding:.75pt .75pt .75pt .75pt'>
<p class=MsoNormal><o:p> </o:p></p></td>
</tr>
</table>
<p style='margin:0cm;margin-bottom:.0001pt'><span style='display:none;
mso-hide:all'><o:p> </o:p></span></p>
<p align=center style='text-align:center'><b><span style='font-size:18.0pt;
font-family:Verdana;color:#6699CC'>
<% response.write ture4 %>
</span></b><b><span
style='font-family:Verdana;color:#6699CC'><o:p></o:p></span></b></p>
<p align=center style='text-align:center'><b><span style='font-family:Verdana;
color:#6699CC'><span style='mso-spacerun:yes'> </span></span><o:p><span style='font-family:Verdana;color:#6699CC'>
<% response.write ture5 %>
</span><font color="#CC0000"></font></o:p></b></p>
<table width="750" border=0 cellpadding=0 cellspacing=0 class=MsoNormalTable
style='border-collapse:collapse;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr style='mso-yfti-irow:0;mso-yfti-firstrow:yes;height:17.65pt;mso-row-margin-right:
4.1pt'>
<td width=685 nowrap colspan=2 style='width:144.4pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-family:Verdana;color:#6699CC'>
<% response.write ture6 %>
</span></b><span
style='color:#6699CC'><o:p></o:p></span></p></td>
<td width=149 nowrap style='width:48.45pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal align=center style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto;text-align:center'><b><span style='font-size:8.0pt;font-family:Verdana;
color:#00CCFF'> </span></b><span style='color:#00CCFF'><o:p></o:p></span></p></td>
<td width=175 nowrap style='width:68.0pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:8.0pt;font-family:Verdana;color:#00CCFF'> </span></b><span
style='color:#00CCFF'><o:p></o:p></span></p></td>
<td width=245 nowrap colspan=2 style='width:57.45pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:8.0pt;font-family:Verdana;color:#00CCFF'> </span></b><span
style='color:#00CCFF'><o:p></o:p></span></p></td>
<td width=147 nowrap style='width:110.15pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:8.0pt;font-family:Verdana;color:#00CCFF'> </span></b><span
style='color:#00CCFF'><o:p></o:p></span></p></td>
</tr>
<tr style='mso-yfti-irow:1;height:17.65pt;mso-row-margin-right:4.1pt'>
<td width=577 nowrap colspan=7 style='width:428.45pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:11.0pt;font-family:Verdana;color:black'>
<% response.write ture7 %>
</span></b><span
style='font-size:11.0pt;color:black'><o:p></o:p></span></p></td>
</tr>
<tr style='mso-yfti-irow:2;height:17.65pt;mso-row-margin-right:4.1pt'>
<td width=577 nowrap colspan=7 style='width:428.45pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:11.0pt;font-family:Verdana;color:black'>
<% response.write ture8 %>
</span></b><span
style='font-size:11.0pt;color:black'><o:p></o:p></span></p></td>
</tr>
<tr style='mso-yfti-irow:3;height:17.65pt;mso-row-margin-right:4.1pt'>
<td width=577 nowrap colspan=7 style='width:428.45pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:11.0pt;font-family:Verdana;color:black'>
<% response.write ture9 %>
</span></b><span
style='font-size:11.0pt;color:black'><o:p></o:p></span></p></td>
</tr>
<tr style='mso-yfti-irow:4;height:17.65pt;mso-row-margin-right:4.1pt'>
<td width=577 nowrap colspan=7 style='width:428.45pt;padding:0cm 5.4pt 0cm 5.4pt;
height:17.65pt'> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:
auto'><b><span style='font-size:11.0pt;font-family:Verdana;color:black'>
<% response.write ture10 %>
<o:p></o:p></span></b></p></td>
</tr>
<![if !supportMisalignedColumns]>
<tr height=0>
<td width=577 style='border:none'></td>
</tr>
<![endif]>
</table>
<p> </p>
<p> </p>
<table width="325" border="0">
<tr>
<% FOR i=0 TO 5 %>
<td width="319"><a href="ture1.asp?aar=<%= datepart("yyyy", date())+i %>"><%= datepart("yyyy", date())+i %></a></td>
<% next %>
</tr>
</table>
<table width="750" border="0">
<tr class="alm_text_sort">
<td width="119" height="15"><b><span style='font-family:Verdana'><font size="1">Tidspunkter:</font><o:p></o:p></span></b></td>
<td width="195"><b><span style='font-family:Verdana'><font size="1">Extra</font></span></b></td>
<td width="91"><div align="center"><b><span style='font-family:Verdana'><font size="1">Klokken:</font><o:p></o:p></span></b></div></td>
<td width="97"><div align="center"><b><span style='font-size:7.5pt;font-family:Verdana'>Pris
voksen:</span></b></div></td>
<td width="74"><div align="center"><b><span style='font-size:7.5pt;font-family:Verdana'>Pris
barn:</span></b></div></td>
<td width="148"><div align="left"><b><span style='font-size:7.5pt;font-family:Verdana'>Antal
ledige pladser:</span></b></div></td>
</tr>
</table>
<% Session.LCID = 1030
if Not len(request("aar")) > 0 THEN
aar = year(date())
else
aar = request("aar")
end if
FOR i=1 TO 12
dato1 = "01-" & i & "-05"
SQLstmt = "SELECT * FROM kategori"
set rs1 = conn.execute(SQLstmt)
IF Not (rs1.bof or rs1.eof) THEN
While not rs1.eof %>
<% SQLbeg = "SELECT * FROM arrangement WHERE kategori= " & rs1("id") & " AND month(dato)=" & i & " AND YEAR(dato) = " & aar & " ORDER BY dato"
set rs2 = conn.execute(SQLbeg)
IF not (rs2.bof or rs2.eof) THEN
exist = true
%>
<br> <br> <table width="750" border="0">
<tr>
<td width="117" class="fiske_text_rod"><strong><%= monthname(month(cdate(dato1))) %>
- <%= rs1("kategori") %></strong></td>
<td width="197"> </td>
<td width="94"><b><span style='font-family:Verdana'><o:p></o:p></span></b></td>
<td width="91"> </td>
<td width="79"> </td>
<td width="146"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<% While Not rs2.eof
counter = 1
if counter mod 2 = 0 then
bg = "bg1"
else
be = "bg2"
end if
counter = counter + 1%>
<tr>
<td class="alm_text_sort"><%= weekdayname(weekday(rs2("dato"))) %> <%= rs2("dato") %></td>
<td class="alm_text_sort"><%= rs2("extra") %></td>
<td><div align="center" class="alm_text_sort"><%= rs2("klokken") %></div></td>
<td><div align="center" class="alm_text_sort"><%= rs2("prisv") %></div></td>
<td><div align="center" class="alm_text_sort"><%= rs2("prisb") %></div></td>
<td><div align="left" class="alm_text_sort"><%= rs2("pladser") %></div></td>
</tr>
<% rs2.movenext
wend %>
</table>
<p>
<% end if
rs1.movenext
Wend
end if
next
if NOT exist then
response.write "<br><br>Fisketure kommer senere."
end if
%>
</p></td>
</tr>
</table>
<p> </p>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
