hjælp til select
Jeg har denne sider der viser en oversigt over fejl. Jeg har lavet sådan at man kan tilføje en fil og url'en til filen bliver gemt i en tabel der hedder filer og får et idnummer der er det samme som fejl'ens. Mit problem er nederst på siden hvor den skal vise url'en, hvordan får man den til at vise kun dem der har den samme idnummer som fejl'ens id.<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database/db1.mdb")
Conn.Open DSN
strSQL = "Select * from fejl where fuldfort = 'Nej'"
Set rs = Conn.Execute(strSQL)
%>
<html>
<head>
<meta http-equiv="refresh" content="5;url=visalle.asp">
</head>
<title>Fejlrapport</title>
<body bgcolor="white">
<%
Do
response.write "<table border=1 bordercolor=lightgrey bgcolor=white>"
response.write "<tr>"
response.write "<td border=1 width=100>ID nr.:</td>"
response.write "<td width=400>"
Response.Write rs("id") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Kunde:</td>"
response.write "<td width=400>"
Response.Write rs("kundenummer") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Varenr.:</td>"
response.write "<td width=400>"
Response.Write rs("varenummer") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Beskrivelse:</td>"
response.write "<td width=400>"
Response.Write rs("beskrivelse") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Løsning:</td>"
response.write "<td width=400>"
Response.Write rs("loesning") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Udført af:</td>"
response.write "<td width=400>"
Response.Write rs("ansvarlig") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Færdigmeldt:</td>"
response.write "<td width=400>"
Response.Write rs("fuldfort") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Dato:</td>"
response.write "<td width=400>"
Response.Write rs("dato") & "<br>"
rs.MoveNext
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<hr width=520 align=left color=darkblue>"
Loop While Not rs.EOF
%>
<a href="
<%
strSQL = "Select * from filer where idnummer=""
Set rs = Conn.Execute(strSQL)
Response.write rs("url")
%>
">
<%
strSQL = "Select * from filer"
Set rs = Conn.Execute(strSQL)
Response.write rs("url")
%>
</a>
</body>
</html>
