HJÆLPE - problem er Visning skrift side kalender
Hej allesammen..Jeg har store problem som fejl sider, jeg kan ikke finder ud af at få løsning den problem.
Hvis bruge " ” if (Request.Querystring("kategori") & "") <> "" then ” " men får virker godt side, er problem
med Visning som valg menu bliver virker ikke, som er fast liste end kunne ikke skrift side som Visning kalender.
Jeg har prøve det " ” if (Request("kategori") & "") <> "" then ” " der er virker godt alt 100%, men er rigtigt
problem igen, fordi hvis jeg kigger under Kalender så virker det godt med alt LISTE, så valg andre visning er meget fint
men hvis jeg vil tilbage igen kigger "Alle" så som er Kalender er væk.. er passe ikke, selvom er virker under
tryk "kalender" end kigger "Alle" er forkert.. fordi står tal "0"
Der er ikke var STOR fejl men er meget små problem.. jeg har bruge for hjælpe løsning der på plads skal være "Alle"
Jeg håber får en god hjælpe og løsning med den.. Tak
<%
Session.LCID = 1030
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
%>
<table border="0" width="540" cellspacing="0" cellpadding="10">
<tr>
<td><b><font color="#000080" face="Verdana">Kalender</font><font color="#011967" face="Verdana"><br>
</font></b><font face="Verdana"><span style="font-size: 8pt">Alle
information dato på kalender som man vil deltage spille kamp både alvor
eller sjov, se kamp, arranger, STARTs HB møde eller spiller bankospil
m.m.
</span></font>
<form id="form1" name="sortering" method="post" action="default.asp?menu=4">
<font face="Verdana" style="font-size: 8pt"><b><font color="#800000">Vis</font> </b> </font><select style="font-size: 8pt; width: 175px; color: #000000; font-family: verdana,arial; background: #efeceb" onchange="document.sortering.submit()" name="antal">
<option value="5">5 seneste kalender</option>
<option value="10" selected>10 seneste kalender</option>
<option value="20">20 seneste kalender</option>
<option value="99999">alle kalender</option>
</select><font face="Verdana" style="font-size: 8pt; font-weight:700"> <font color="#800000">fra</font> </font>
<select style="font-size: 8pt; width: 150px; color: #000000; font-family: verdana,arial; background: #efeceb" onchange="document.sortering.submit()" name="kategori" size="1">
<option value="0" <% If request.form("kategori") = "0" then response.write "selected" %>>Alle</option>
<option value="2" <% If request.form("kategori") = 2 then response.write "selected" %>>Børne- & ungdom</option>
<option value="1" <% If request.form("kategori") = 1 then response.write "selected" %>>Fodbold</option>
<option value="5" <% If request.form("kategori") = 5 then response.write "selected" %>>Indefodbold</option>
<option value="4" <% If request.form("kategori") = 4 then response.write "selected" %>>Internationale</option>
<option value="3" <% If request.form("kategori") = 3 then response.write "selected" %>>Bestyrelsen</option>
<option value="8" <% If request.form("kategori") = 8 then response.write "selected" %>>Bordtennis</option>
<option value="6" <% If request.form("kategori") = 6 then response.write "selected" %>>Bowling</option>
<option value="10" <% If request.form("kategori") = 10 then response.write "selected" %>>Volleyball</option>
<option value="9" <% If request.form("kategori") = 9 then response.write "selected" %>>Breddeidræt</option>
<option value="12" <% If request.form("kategori") = 12 then response.write "selected" %>>Håndbold</option>
<option value="15" <% If request.form("kategori") = 15 then response.write "selected" %>>Svømning</option>
<option value="13" <% If request.form("kategori") = 13 then response.write "selected" %>>Andre</option>
<option value="14" <% If request.form("kategori") = 14 then response.write "selected" %>>Møde</option>
</select></form></td>
</tr>
</table>
<%
if (Request("kategori") & "") <> "" then
strSQL="SELECT * FROM Kalender WHERE kategori =" & Request.Form("kategori") & " Order by dato ASC"
else
strSQL="SELECT * FROM kalender Order by dato ASC"
end if
SET RS=Connection.Execute(strSQL)
if rs.EOF then
%>
<table width="540" id="table2" cellspacing="0" cellpadding="10">
<tr>
<td style="border-style: none; border-width: medium">
<font size="2" face="Verdana">
<img border="0" src="images/icon/!.gif" width="16" height="16">
</font>
<font color="#800000" style="font-size: 9pt" face="Verdana"><b>Kalender er
tom.</b></font><font face="Verdana" style="font-size: 8pt"><br>
Desværre, men kommer nok et øjeblik...</font>
</td>
</tr>
</table>
<%
else
%>
<table border="1" width="540" id="table1" style="border-width: 0px" cellspacing="0" cellpadding="10">
<%
Do Until rs.EOF
Dato = RS("dato")
Overskrift = RS("overskrift")
Tekst = RS("tekst")
Tekst = Server.HTMLEncode(tekst)
Tekst = Replace(tekst, vbNewLine, "<br>")
%>
<tr>
<td style="border-style: none; border-width: medium">
<table border="1" width="100%" id="table4" style="border-width: 0px">
<tr>
<td style="border-style: none; border-width: medium" width="24" valign="top" rowspan="2">
<img border="0" src="images/icon/kalender.gif" width="24" height="24"></td>
<td style="border-style: none; border-width: medium">
<font face="Verdana" style="font-size: 9pt; " color="#800000"><%=rs("dato")%></font><font color="#800000"> </font><font face="Verdana" style="font-size: 9pt; font-weight: 700"><%=rs("overskrift")%></font>
<font face="Verdana" style="font-size: 8pt"><br><%=tekst%></font></td>
</tr>
</table>
<% rs.MoveNext
Loop %>
</td>
</tr>
</table>
<% End if %>
