paginación para sistema de noticias

[ric18]

Ya casi lo tengo, ahora lo que me falla es que al dar clic en cada enlace no me lleva a la noticia seleccionada, ya no entiendo que estoy haciendo mal, ¿ me podrían decir que me hace falta? Gracias

Código PHP:

  <%@LANGUAGE='VBScript'%>
<% 'Option Explicit %>
 
 <!--#include file = conecta.asp-->
 
 
<%  
 
    
    
sql = "SELECT TOP 1 id,id_grupo,titulo, sumario FROM NEWS WHERE publicar = 1 "    
        set rsnews = dbConn.Execute(sql)
    
norden = rsnews("id")
nnews = rsnews("id_grupo")    
 
 
        if    Err.number<>0 Then
            response.Write "Hubo un error en la BD"    
            response.End
    
                End if                    
 
                            
'if not rsnews.EOF then
    'response.Write "No hay noticias que mostrar"
    'response.end
    'end if
 
 
    if rsnews.EOF THEN
            response.write"no hay registros que mostrar"
        else
 Do    while Not rsnews.EOF    
link=rsnews("id") '<---  id_noticia 
link = "pagina_detalle.asp?id=" & link
titulo=rsnews("titulo")
sumario=rsnews("sumario")
titulo=rsnews("titulo")
'sumario=rsnews("sumario")
'tmpstr = split(sumario," ")
'for i=0 to 6 
'resumen = resumen & tmpstr(i) & " "
'next        
        Response.Write"<table>"
        Response.Write"<td>"
        Response.Write"<tr><a href="& link &">" & titulo & "</a></tr>"
        'Response.Write "<tr>" & titulo &"</tr>"
        Response.Write"<tr>"& sumario & "</tr>"
        Response.Write"<tr>" & imagen & "</tr>"
        Response.Write"</td>"
        Response.Write"</table>"
        
rsnews.MoveNext        
loop
        end if
        'rsnews.Close
        'set rsnews = nothing    
 
 
 'paginador de noticias
 
    'sql="SELECT id,id_grupo FROM NEWS where publicar = 1"
        'SET rsnewsb =dbConn.Execute(sql)
 
 
    if NOT ISNULL(norden) then
        if norden <> 0 then
Set rsnews = dbConn.Execute("SELECT MAX (id) as anterior,id,ID_GRUPO FROM NEWS where id_grupo =" & nnews & " and  publicar = 1 GROUP BY id,id_grupo")            
if not rsnews.EOF and not isnull (rsnews("anterior")) then 
        response.write(" <a href='noticias.asp?id='" & rsnews("id") & "'>&nbsp;&lt anterior</a>&nbsp; ")
end if
 
            
 
        i = 1
            do while not rsnews.EOF
                    if nnews <> rsnews("id")then
                    response.write ("<a href='noticias.asp?id=" & rsnews("id") & " ' >" & i & "</a> &nbsp;")
        else 
            response.write(i & "&nbsp;")
            end if
                i = i+1
                rsnews.movenext
            loop
        Set rsnews = dbConn.execute("SELECT MIN (id) as siguiente,id,ID_GRUPO FROM NEWS where id_grupo = " & nnews & " and publicar = 1 GROUP BY id,id_grupo ")
            if not rsnews.EOF and not isnull (rsnews("siguiente")) then
                    response.write("<a href=noticias.asp?id=" &  rsnews("id") &">Siguiente &nbsp;&gt</a>&nbsp;")
    end if
        end if 
end if
 
'rsnews.Close
        'set rsnews = nothing
    
 
%>