Hvad gør man...?
Hej med jer.Jeg har et problem med en side, der virker næsten som den skal.
I kan se siden her http://www.fcweb.dk/fcweb/asp/nyheder_arkiv.asp
Det virker næsten fint. Hvis man nu gerne vil vise nyheder fra Juli, kan man vælge den måned i dropdownboksen som hedder Juli 2002. Det virker også, men prøv så, at klikke på en af nyhederne fra juli måned. Når man har valgt den valgte nyhed, tager den også August med i nyhederne ude til højre.
Den laver nærmest en default.
Det jeg gerne vil have den til. Når man vælger en måned, så er det kun den måned der kommer frem, indtil man vælger en anden måned.
Her er koden på siden
----------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/connfcweb.asp" -->
<%
Dim rsMaaneder
Dim rsMaaneder_numRows
Set rsMaaneder = Server.CreateObject("ADODB.Recordset")
rsMaaneder.ActiveConnection = MM_connfcweb_STRING
rsMaaneder.Source = "SELECT * FROM Maneder ORDER BY ManederID DESC"
rsMaaneder.CursorType = 0
rsMaaneder.CursorLocation = 2
rsMaaneder.LockType = 1
rsMaaneder.Open()
rsMaaneder_numRows = 0
%>
<%
Dim rsNyhed__MMColParam
rsNyhed__MMColParam = "%"
If (Request.QueryString("NyhedID") <> "") Then
rsNyhed__MMColParam = Request.QueryString("NyhedID")
End If
%>
<%
Dim rsNyhed__box
rsNyhed__box = "%"
If (Request.Form("box") <> "") Then
rsNyhed__box = Request.Form("box")
End If
%>
<%
Dim rsNyhed
Dim rsNyhed_numRows
Set rsNyhed = Server.CreateObject("ADODB.Recordset")
rsNyhed.ActiveConnection = MM_connfcweb_STRING
rsNyhed.Source = "SELECT * FROM nyheder WHERE NyhedID LIKE '" + Replace(rsNyhed__MMColParam, "'", "''") + "' AND ManederID LIKE '" + Replace(rsNyhed__box, "'", "''") + "' ORDER BY NyhedID DESC"
rsNyhed.CursorType = 0
rsNyhed.CursorLocation = 2
rsNyhed.LockType = 1
rsNyhed.Open()
rsNyhed_numRows = 0
%>
<%
Dim rsNyhedermenu__MMColParam
rsNyhedermenu__MMColParam = "%"
If (Request.Form("box") <> "") Then
rsNyhedermenu__MMColParam = Request.Form("box")
End If
%>
<%
Dim rsNyhedermenu
Dim rsNyhedermenu_numRows
Set rsNyhedermenu = Server.CreateObject("ADODB.Recordset")
rsNyhedermenu.ActiveConnection = MM_connfcweb_STRING
rsNyhedermenu.Source = "SELECT nyheder.*, Maneder.* FROM Maneder INNER JOIN nyheder ON Maneder.ManederID = nyheder.ManederID WHERE nyheder.ManederID LIKE '" + Replace(rsNyhedermenu__MMColParam, "'", "''") + "' ORDER BY NyhedID DESC"
rsNyhedermenu.CursorType = 0
rsNyhedermenu.CursorLocation = 2
rsNyhedermenu.LockType = 1
rsNyhedermenu.Open()
rsNyhedermenu_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rsNyhedermenu_numRows = rsNyhedermenu_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html><!-- InstanceBegin template="/Templates/fcweb_brodtekst.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Nyhedsarkiv</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="/fcweb/style/fcweb.css" rel="stylesheet" type="text/css">
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
</head>
<body bgcolor="#3399CC">
<div align="center">
<script>
ns4 = (document.layers)? true:false
ns6 = (document.getElementById && !document.all)?true:false;
if (ns4||ns6){
hojde = window.innerHeight
}else hojde = "100%"
document.writeln("<table width='400' height='"+hojde+"' border='0' cellpadding='0' cellspacing='0' Align='Left'>");
</script>
<tr>
<td width="760" valign="top" bgcolor="#FFFFFF">
<table width="760" height="100%" border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="sidetabel">
<tr>
<td width="25" height="25" valign="top"> <div align="center"> </div></td>
<td rowspan="2" valign="top"><!-- InstanceBeginEditable name="Brodtekst" -->
<table width="700" border="0" align="center" cellpadding="0" cellspacing="0" id="box">
<tr>
<td width="649" valign="top"> <%=(rsNyhed.Fields.Item("Overskrift").Value)%><br>
<br>
<span class="brodtekst"><%=Replace(rsNyhed.Fields.Item("brodtekst") &"", vbCrLf, "<br>") %></span>
<br>
<span class="brodtekst"> </span> </td>
<td width="1" valign="top" background="../gfx/sortstreg.gif" bgcolor="#FFFFFF"> </td>
<td width="150" valign="top"> <table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <form name="form1" method="post" action="nyheder_arkiv.asp">
<select name="box" class="dropdown" id="box" onChange="java script:document.form1.submit(this.form)">
<option value="0">Vælg måned</option>
<%
While (NOT rsMaaneder.EOF)
%>
<option value="<%=(rsMaaneder.Fields.Item("ManederID").Value)%>"><%=(rsMaaneder.Fields.Item("Manede").Value)%></option>
<%
rsMaaneder.MoveNext()
Wend
If (rsMaaneder.CursorType > 0) Then
rsMaaneder.MoveFirst
Else
rsMaaneder.Requery
End If
%>
</select>
</form></td>
</tr>
<tr>
<td valign="top">Du har valgt </td>
</tr>
</table>
<table width="150" border="0" cellspacing="0" cellpadding="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT rsNyhedermenu.EOF))
%>
<tr>
<td ><A HREF="nyheder_arkiv.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "NyhedID=" & rsNyhedermenu.Fields.Item("NyhedID").Value %> " class="rodoverskrift"><%=(rsNyhedermenu.Fields.Item("Overskrift").Value)%></A> <br>
<span class="datonyhed"><%=(rsNyhedermenu.Fields.Item("Dato").Value)%></span> <br> <span class="tekstnyhedkolonne">
<% response.write LEFT(rsNyhedermenu("brodtekst"),50) %>
....</span></td>
</tr>
<tr>
<td class="rodoverskrift"><hr width="148" size="1"></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNyhedermenu.MoveNext()
Wend
%>
</table>
</td>
</tr>
</table>
<!-- InstanceEndEditable --> <div align="center"></div></td>
</tr>
<tr>
<td width="25" valign="top"> </td>
</tr>
</table>
</td>
<td width="916" valign="top"> </td>
</tr>
</table>
</div>
</body>
<!-- InstanceEnd --></html>
<%
rsMaaneder.Close()
Set rsMaaneder = Nothing
%>
<%
rsNyhed.Close()
Set rsNyhed = Nothing
%>
<%
rsNyhedermenu.Close()
Set rsNyhedermenu = Nothing
%>
-------------------------
