Vælg nyhed

Kode????

Her er kode til min nyhedsoversigt
---------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/Connections/connDongklubben.asp" -->
<%
set rsNyheder = Server.CreateObject("ADODB.Recordset")
rsNyheder.ActiveConnection = MM_connDongklubben_STRING
rsNyheder.Source = "SELECT Personer.Personer, Nyheder.Overskrift, Nyheder.Dato, Nyheder.klokken, Nyheder.NyhederID, Visnyhed  FROM Personer INNER JOIN Nyheder ON Personer.PersonerID = Nyheder.PersonID  ORDER BY Nyheder.NyhederID DESC;"
rsNyheder.CursorType = 0
rsNyheder.CursorLocation = 2
rsNyheder.LockType = 3
rsNyheder.Open()
rsNyheder_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 10
Dim Repeat1__index
Repeat1__index = 0
rsNyheder_numRows = rsNyheder_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' 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>
<head>
<title>v&aelig;lg nyhed test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="vaelgnyhed" method="post" action="/dongklubben/test_nyhed_detajle.asp">
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center" name="nyhed">
    <tr>
      <td><b>V&aelig;lg nyhed</b></td>
      <td><b>Dato</b></td>
      <td><b>Nyhed</b></td>
      <td><b>Person</b></td>
      <td>&nbsp;</td>
    </tr>
    <%
While ((Repeat1__numRows <> 0) AND (NOT rsNyheder.EOF))
%>
    <tr>
      <td>
        <div align="center">
          <input type="checkbox" name="valg" value="TRUE">
        </div>
      </td>
      <td><%=(rsNyheder.Fields.Item("Dato").Value)%></td>
      <td><A HREF="/dongklubben/test_nyhed_detajle.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "NyhederID=" & rsNyheder.Fields.Item("NyhederID").Value %>"><%=(rsNyheder.Fields.Item("Overskrift").Value)%></A></td>
      <td><%=(rsNyheder.Fields.Item("Personer").Value)%></td>
      <td>&nbsp;</td>
    </tr>
    <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsNyheder.MoveNext()
Wend
%>
    <tr>
      <td>&nbsp;</td>
      <td>
        <input type="submit" name="Submit" value="Vis nyheder">
      </td>
      <td>&nbsp; </td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
  <br>
  <br>
  <br>
</form>
<p>&nbsp;</p>
<div align="center"></div>
</body>
</html>
<%
rsNyheder.Close()
%>


--------------------------------------
Her er koden til min nyhedsdetajle

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/connNyheder.asp" -->
<%
Dim rsNyhedsdetajle__MMColParam
rsNyhedsdetajle__MMColParam = "0"
if (Request.QueryString("NyhederID")  <> "") then rsNyhedsdetajle__MMColParam = Request.QueryString("NyhederID")
%>
<%
Dim rsNyhedsdetajle__vise
rsNyhedsdetajle__vise = "false"
if (Request.Form("Valg")    <> "") then rsNyhedsdetajle__vise = Request.Form("Valg") 
%>
<%
set rsNyhedsdetajle = Server.CreateObject("ADODB.Recordset")
rsNyhedsdetajle.ActiveConnection = MM_connNyheder_STRING
rsNyhedsdetajle.Source = "SELECT Billede, Brodtekst, Dato, klokken, ManederID, NyhederID, Overskrift, Billedetekst, PersonID, Visnyhed  FROM Nyheder  WHERE NyhederID = " + Replace(rsNyhedsdetajle__MMColParam, "'", "''") + " OR Visnyhed = " + Replace(rsNyhedsdetajle__vise, "'", "''") + ""
rsNyhedsdetajle.CursorType = 0
rsNyhedsdetajle.CursorLocation = 2
rsNyhedsdetajle.LockType = 3
rsNyhedsdetajle.Open()
rsNyhedsdetajle_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsNyhedsdetajle_numRows = rsNyhedsdetajle_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Nyhed detajle TEST</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
  <table width="500" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td>
        <div align="center"><img src="gfx/naehedgfx.gif" width="500" height="15"></div>
      </td>
    </tr>
  </table>
</div>
<table width="500" border="0" cellpadding="2" cellspacing="2" align="center" class="tabelnyheder">
  <%
While ((Repeat1__numRows <> 0) AND (NOT rsNyhedsdetajle.EOF))
%>
  <tr>
    <td width="4">&nbsp;</td>
    <td colspan="2"><font size="4" class="artikeloverskrift"><%=(rsNyhedsdetajle.Fields.Item("Overskrift").Value)%></font></td>
    <td width="8">&nbsp;</td>
  </tr>
  <tr>
    <td width="4">&nbsp;</td>
    <td valign="top" width="421">
      <font size="3" color="#000000" class="artikeltekst"><%=Replace(rsNyhedsdetajle.Fields.Item("Brodtekst") &"", vbCrLf, "<br>") %> </font></td>
    <td valign="top" width="45">
      <div align="right"><font size="3" color="#000000" class="artikeltekst">
        <% If rsNyhedsdetajle.Fields.Item("Billede").Value <> "" Then %>
        <img src="<%=(rsNyhedsdetajle.Fields.Item("Billede").Value)%>" border="1" align="<%= RTrim((rsNyhedsdetajle.Fields.Item("Billede").Value)) %>" alt="<%=(rsNyhedsdetajle.Fields.Item("Billedetekst").Value)%>">
        <% End If %>
        </font> </div>
    </td>
    <td width="8">&nbsp;</td>
  </tr>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsNyhedsdetajle.MoveNext()
Wend
%>
  <tr>
    <td width="4">&nbsp;</td>
    <td colspan="2">&nbsp;</td>
    <td width="8">&nbsp;</td>
  </tr>
</table>
<div align="center">
  <table width="500" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td height="&frac12;" valign="middle" align="center">
        <div align="center"><img src="gfx/naehedundergfx.gif" width="500" height="10"></div>
      </td>
    </tr>
  </table>
</div>
</body>
</html>
<%
rsNyhedsdetajle.Close()
%>

Du laver vel bare flere kategorier. Så sætter man sit kryds og du strikker en sql sætning ud af det.
Hvis du vil vælge ud af en lang liste, så sender du id'et med checkboxen.
<input type="checkbox" value="<&=rs("id")%>" name="a<%=rs("id")%>">nyhed1
Så sender den alle de valgte nyheder videre.

Jeg har fået det til at virke (næsten). Når jeg vælger en' nyhed i min checkboks, ja så virker det, men vælger jeg to eller flere nyheder. Så virker det ikke (der kommer bare en side frem, som siger siden kan ikke vises....
Hvad er der galt....

Jeg har ikke brugt den sidste del af <input type="checkbox" value="<&=rs("id")%>" name="a<%=rs("id")%>">nyhed1 - Denne del har jeg undladt....  name="a<%=rs("id")%>">nyhed1 )

ok

Jeg lukker dette spørgsmål.
Takker for hjælpen :-)