Udskrivning af forespørgsel

*******************************************************
Hejsa                                                Jeg har to asp-filer.
Den ene henter samtlige filmtitler i db og gør det til links. *******************************************************

<!-- #INCLUDE file="db.asp" -->

<%

dim objConn
dim objRS

set objConn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")

objConn.Open dbConnString
objRS.ActiveConnection = objConn

Response.Write "<b>Film:</b><br>"
objRS.Open "select * from newsposts order by postID asc"

while not objRS.EOF
Response.Write "<a target='main' href='viewnews.asp?how=newspost&postId=" & objRS("postID") & "'>"
Response.Write objRS("title") & "</a><br>"
objRS.MoveNext
wend

objRS.Close
%>

*******************************************************
Den anden skulle gerne udskrive alle detaljer omkring filmen når man klikker på det respektive link. Problemet er at den ikke kun udskriver den ene man klikker på - men samtlige. Hvorfor?? Her er filen:
*******************************************************

<!-- #INCLUDE file="db.asp" -->

<%

dim how
dim title
dim query
dim objConn
dim objRS

how = Request.QueryString("how")
title = Request.QueryString("title")
query = ""

set objConn = Server.CreateObject("ADODB.Connection")
set objRS = Server.CreateObject("ADODB.Recordset")

objConn.Open dbConnString
objRS.ActiveConnection = objConn


if how = "newspost" then
query = "select * from newsPosts where title like " & _
"'%" & postId & "%'"
else
Response.Write "<b>ERROR: You didn't select a valid type</b>"
Response.End
end if


objRS.Open query

while not objRS.EOF

response.write "<h2>" & objRS("title") & "</h2>"
response.write objRS("newsPost") & "<br><hr><br>"
objRS.MoveNext

wend

%>