Ciao a tutti, qualcuno può dare suggerimenti?

Non riesco a capire cosa devo correggere per visualizzare i record nella seconda pagina selezionati dal menù della prima pagina,così com'è mi visualizza sempre lo stesso record.

DATABASE CON DUE TABELLE CON RELAZIONE 1 A MOLTI e 2 pagine ASPVBS chiamate principale e secondaria.

TAb.1 (partimmagini), Campi: (ID, Urlimmagine, descrizione, altrourl, IDtitolo)------[relazione molti]

Tab.2 (titoli), Campi: (ID, titolo)-----[relazione 1]

principale: qui ho messo il menù a discesa.
<%
Dim rsprinc
Dim rsprinc_cmd
Dim rsprinc_numRows

Set rsprinc_cmd = Server.CreateObject ("ADODB.Command")
rsprinc_cmd.ActiveConnection = MM_connessione_STRING
rsprinc_cmd.CommandText = "SELECT * FROM titoli"
rsprinc_cmd.Prepared = true

Set rsprinc = rsprinc_cmd.Execute
rsprinc_numRows = 0
%>
%>
<option value="secondaria.asp?ID=<%=(rsprinc.Fields.Item(" ID").Value)%>"><%=(rsprinc.Fields.Item("titolo").V alue)%> </option>
<%

secondaria:questa pagina mi dovrebbe far vedere i record di tutte e due le tabellein base a ciò che si seleziona dal menù della prima pagina


<%
Dim rs1__MMColParam
rs1__MMColParam = "1"
If (Request.QueryString("ID") <> "") Then
rs1__MMColParam = Request.QueryString("ID")
End If
%>
Set rs1_cmd = Server.CreateObject ("ADODB.Command")
rs1_cmd.ActiveConnection = MM_connessione_STRING
rs1_cmd.CommandText = "SELECT * FROM partimmagini, titoli WHERE partimmagini.ID = ?"
rs1_cmd.Prepared = true
rs1_cmd.Parameters.Append rs1_cmd.CreateParameter("param1", 5, 1, -1, rs1__MMColParam) ' adDouble