News script

Hejsan.. jeg har følgende script, som funger fint nok:

<% dim rs, SQLstringK, Record, sngGns %>
<% intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/jittytre.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, indledning, id, skrevet, dato FROM tabel order by dato DESC"
rs.Open strSQL, connection, 1, 3

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p>Side " & intPage & " af " & intPageCount & "</p>"
Do While Not rs.EOF And intRecCount > 0

strSQL = "SELECT COUNT(id) as found FROM produkt WHERE Category = " & rs("id") & ""
Set record = Connection.Execute(strSQL)
Ialt = Record("found")
 
  response.write("<table width=""300"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
  response.write("<tr>")
  response.write("<td width=""300"">")

  response.write("<table width=""300"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
  response.write("<tr><td height=""20""><img src=""img/pil.gif"" alt="""">" & " ")
  response.write("<a href=vis_nyhed.asp?id=")
  response.Write(rs("id"))
  response.write(">")
  response.Write("<font size=""2""><b>" & rs("overskrift") & " </b></font></a>")
  response.write("</td>")
  response.write("</tr>")
  response.write("<tr><td height=""4"">")
  response.write("</td></tr>")
  response.write("</table>")
  response.write("<table width=""300"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
  response.write("<tr><td>")
  response.Write(rs("indledning"))
  response.write("</td>")
  response.write("</tr><tr><td height=""4"">")
  response.write("</td></tr><tr><td>")
  response.write(""& rs("dato") & " ")
  response.write("| ")
  response.write(""& rs("skrevet") & " | ")
  response.write("</td>")
  response.write("</tr><tr><td height=""4"">")
  response.write("</td></tr><tr>")
  response.write("<td height=""4"">")
  response.write("</td></tr>")
  response.write("</table>")

  response.write("</td>")
  response.write("</tr>")
  response.write("</table><br>")
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing



If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=emner.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>

Men jeg ønsker at response.write("<a href=vis_nyhed.asp?id=") kommer i et popup. Dette gøres vel ved at skrive:
response.write("<a  target="_blank" href=vis_nyhed.asp?id=")

Men det virker ikke? :S hjælp!