Linking til en database

??? se din kode tak...

jeg kunne forestille mig du mangler

IF NOT RS.EOF THEN

Udskriv data fra tabeller....

RS.MOVENEXT
LOOP

Det skal lige siges, at denne side ligger i en Iframe på en anden side, hvis det altså skulle betyde noget?


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/Conn.asp" -->
<%
set rsOpslagindhold = Server.CreateObject("ADODB.Recordset")
rsOpslagindhold.ActiveConnection = MM_Conn_STRING
rsOpslagindhold.Source = "SELECT * FROM Opslag ORDER BY OpslagID DESC"
rsOpslagindhold.CursorType = 0
rsOpslagindhold.CursorLocation = 2
rsOpslagindhold.LockType = 3
rsOpslagindhold.Open()
rsOpslagindhold_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 5
Dim Repeat1__index
Repeat1__index = 0
rsOpslagindhold_numRows = rsOpslagindhold_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>Opslagindhold</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Refresh" content="10">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="177" height="26">
  <tr>
    <td height="12">
      <%
While ((Repeat1__numRows <> 0) AND (NOT rsOpslagindhold.EOF))
%>
      <A HREF="opslaget.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "OpslagID=" & rsOpslagindhold.Fields.Item("OpslagID").Value %>"><%=(rsOpslagindhold.Fields.Item("OplslagEmne").Value)%></A> <br>
      <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsOpslagindhold.MoveNext()
Wend
%>
    </td>
  </tr>
</table>
</body>
</html>
<%
rsOpslagindhold.Close()
%>

Ovenstående kode virker fint - men alle linierne der gennemgår QueryString anvendes jo ikke til noget. ?

De link der kommer ud af koden er korrekte: opslaget.asp?opslagID=? hvor ? korrekt nok er OpslagID.
Det betyder at fejlen findes i koden: opslaget.asp, som finder opslagID frem. SQL-sætningen skal se således ud.

SQL = "SELECT * FROM Opslag WHERE OpslagID=" & Request.QueryString("opslagid")

Så skulle det virke.