Søg problem...

Jeg har lavet en nyhedssystem med søge funktion.

Søgeren kan søge i nyhederne og i overskrifterne og den viser dem fint.

Men jeg vil har at efter man trykker på overskriftet skal den til vis_nyhed.asp som viser lige den nyhed man ønsker.

soeg.asp kode:

<HTML>
<HEAD>
<title>Søgemaskine</title>
</HEAD>
<BODY>

<form action="soeg.asp" method="post">
    <table width="284">
        <tr><td width="60"><font face=verdana size=2>Søgeord:</font></td><td width="210"><input type="text" name="soeg">
            <input type="submit" name="submit" value="Søg">
          </td></tr>
        <tr><td width="60"></td><td width="210">
    </table>
</form>

<%
If Request.Form("soeg") <> "" then
    Set DB = Server.CreateObject("ADODB.Connection")
    DBSti = "DBQ=" & Server.Mappath("nyheder.mdb")
    DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBSti
    SQL = "select * from Nyheder where Overskrift like '%" & Request.Form("soeg") & "%' or Nyhed like '%" & Request.Form("soeg") & "%'"
    Set rs = db.Execute (SQL)
    If not rs.eof then
        Response.Write "<table>"
        Response.Write "<tr><td><font face=verdana size=1><b>Dato</b></font></td><td width=30></td><td><font face=verdana size=1><b>Overskrift</b></font></td></tr>"
        Do until rs.eof
            url = rs("overskrift")
            Response.Write "<tr><td><font face=verdana size=1>" & rs("dato") & "</font></td><td width=30></td><td><font face=verdana size=1><a href='http://" & url & "'>" & url & "</a></font></td></tr>"
            rs.movenext
        Loop
        Response.Write "</table>"
    Else
        Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><B>Desværre var der ingen resultater!</B></FONT>"
    End if
End if
%>
</BODY>
</HTML>


vis_nyhed.asp

<%
'Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
    Sql = "SELECT * FROM nyheder Where ID=" & id
Set Record = Con.Execute(Sql)
%>
<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>
<title>Ny side 1</title>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%"><font face="Verdana" size="1"><% Response.Write Record("nyhed") %></font></td>
  </tr>
</table>

</body>

</html>

hjælp mig, venner.