passaggio dati a pagina dettaglio

[d_felloni]

Ecco il problema.
Ho una pagina di riepilogo che raggruppa tutti i record in un db acces. fin qui tutto bene. Ci arrivo tramite un'altra pagina con il link contenente una query string che si porta dietro l'ID dell'utente attivo. Il report della pagina di riepilogo contiene tutti gli annunci degli altri utenti.
Devo creare un link per ogni annuncio presente e aprire un'altra pagina con il dettaglio dell'annuncio selezionato.
Dunque una nuova query string con l'ID dell'annuncio.
Fin qui tutto bene.
Adesso devo aggiungere a questa ultima query string anche l'ID dell'utente attivo.

passiamo ai fatti.
ecco la query string di arrivo dalla prima pagina a quella di riepilogo:
http://www.miodominio.it/elencoannunci.asp?ID=<%=(rsGruppo.Fields.Item("ID").Value)%>&from=elenc o
dove ID è l'utente loggato.
Il DB interessato è DBgruppi e la tabella gruppi (database utenti)
e DBannunci e la tabella annunci per gli annunci

Ecco il codice della pagina di riepilogo:

<% Set conn2=Server.CreateObject("ADODB.Connection")
conn2.Open MM_connGruppi_STRING
Set rsGruppo = Server.CreateObject("ADODB.Recordset")
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsDate.EOF))
%>

<% rsGruppo.Open "SELECT * FROM gruppi WHERE ID="&rsDate.Fields.Item("ID").Value, conn2 %>

<% if rsDate.Fields.Item("gruppoID").Value>0 then %>

<%= DoDateTime((rsDate.Fields.Item("data").Value), 2, 1040) %></span>

' la query string funzionante che porta solo il valore dell'ID annuncio alla pagina di dettaglio

&from=dettaglio" class="annunciotitolo">(Dettaglio)

<% end if %>
<% rsGruppo.Close %>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsDate.MoveNext()
Wend
%>


Ho cercato di inserire l'ID utente utilizzando l'oggetto request. Infatti a inizio pagina ho realizzato il seguente codice per il recupero del valore della prima pagina......

<%@LANGUAGE="VBSCRIPT"%>


<%
Dim rsGruppo__MMColParam
rsGruppo__MMColParam = "1"
if (Request.QueryString("ID") <> "") then rsGruppo__MMColParam = Request.QueryString("ID")
%>
<%
set rsGruppo = Server.CreateObject("ADODB.Recordset")
rsGruppo.ActiveConnection = MM_connGruppi_STRING
rsGruppo.Source = "SELECT * FROM gruppi WHERE ID = " + Replace(rsGruppo__MMColParam, "'", "''") + ""
rsGruppo.CursorType = 0
rsGruppo.CursorLocation = 2
rsGruppo.LockType = 3
rsGruppo.Open()
rsGruppo_numRows = 0
%>

subito dopo ho realizzato....

<%
Dim idsettore
IDutente=rsGruppo.Fields.Item("ID")
%>

poi sono andato nella tabella e ho modificato la query string da lanciare alla pagina di dettaglio:

&IDutente="&IDutente&"&from=dettaglio">Dettagli o

inutile dire che non funziona. Spero sempre di trovare qualcuno piu bravo di me...

[-AA-]

Scusa

non riesco a capire la domanda...

tu vuoi i dttagli di cosa?

[Santino83_02]

ricava l'id in querystring con

dim idUtAtt

idUtAtt=request.querystring("id")

e appiccici idUtAtt dove te serve (che non ho capito dove sia)

[d_felloni]

grazie dell'aiuto ma il sistema di richiamare il valore non era sufficiente.
ecco la soluzione che ho adottato. Ho provveduto ad aprire una nuova connessione riallacciandomi come filtro ad una condizione precedentemente adottata e che fa riferimento all'ID trasportato.
Vi posto il codice se a qualcuno interessa.


<% Set conn2=Server.CreateObject("ADODB.Connection")
conn2.Open MM_connGruppi_STRING
Set rsGruppo = Server.CreateObject("ADODB.Recordset")
%>
<%
While ((Repeat1__numRows <> 0) AND (NOT rsAnnunci.EOF))
%>
<% rsGruppo.Open "SELECT * FROM gruppi WHERE ID="&rsAnnunci.Fields.Item("ID").Value , conn2 %>
<% if rsAnnunci.Fields.Item("gruppoID").Value>0 then %>
<%= DoDateTime((rsAnnunci.Fields.Item("data").Value), 2, 1040) %
&from=elencoanunci" class="annunciotitolo" target="_blank">(Profilo)


<% Set conn3=Server.CreateObject("ADODB.Connection")
conn3.Open MM_connGruppi_STRING
Set rsId = Server.CreateObject("ADODB.Recordset")
%>
<% rsId.Open "SELECT * FROM gruppi WHERE ID = " + Replace(rsGruppo__MMColParam, "'", "''") + "" , conn3 %>
&from=<%=(rsId.Fields.Item("ID").Value)%>">(Dettag lio)

<% rsId.Close %><% rsGruppo.Close %>
<% end if %>
<%=(rsAnnunci.Fields.Item("testo").Value)%>


<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsAnnunci.MoveNext()
Wend
%>

alla prossima