Unire 2 RS.SOURCE

[Marco7303]

Salve ho una connessione ad un database access e dovrei integrare due select:

prima:

RS.Source = "SELECT Incontri.LastAccess, Incontri.ID, Incontri.Data, Incontri.Nome, Incontri.Username, Incontri.DataNas, Incontri.Sesso, Incontri.Viaggiare, Incontri.UsaFoto, REGIONI.REGIONE AS regione_str FROM REGIONI INNER JOIN (PROVINCE INNER JOIN (ITALIA INNER JOIN (ESTERI INNER JOIN Incontri ON ESTERI.ID = Incontri.Nazione) ON ITALIA.ID = Incontri.Citta) ON PROVINCE.ID = Incontri.Provincia) ON REGIONI.ID = Incontri.Regione where Sesso='"&Sesso&"' and Disp = True" & " ORDER BY Incontri.LastAccess DESC"

seconda:

RS3.Source = "SELECT * FROM ElencoFoto WHERE IdUtente = " & RS.Fields.Item("ID").Value & " and anteprima=True"

Come si può fare?

GRAZIE

[Marco7303]

Provo a postare tutto il codice perchè proprio non riesco:

<%
current_page=Request.QueryString("page")
if current_page="" then current_page=1
num_persone=10
sesso=Request("sesso")
set RS = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = MM_marcos_STRING
RS.Source = "SELECT Incontri.LastAccess, Incontri.ID, Incontri.Data, Incontri.Nome, Incontri.Username, Incontri.DataNas, Incontri.Sesso, Incontri.Viaggiare, Incontri.UsaFoto, REGIONI.REGIONE AS regione_str FROM REGIONI INNER JOIN (PROVINCE INNER JOIN (ITALIA INNER JOIN (ESTERI INNER JOIN Incontri ON ESTERI.ID = Incontri.Nazione) ON ITALIA.ID = Incontri.Citta) ON PROVINCE.ID = Incontri.Provincia) ON REGIONI.ID = Incontri.Regione where Sesso='"&Sesso&"' and Disp = True" & " ORDER BY Incontri.LastAccess DESC" 
Rs.PageSize=num_persone
RS.CursorType = 1
RS.CursorLocation = 3
RS.LockType = 3
RS.Open()
if RS.EOF = False then
   tot_page=RS.PageCount 
   RS.AbsolutePage = current_page
end if				
%>

<%
set RS3 = Server.CreateObject("ADODB.Recordset")
RS3.ActiveConnection = MM_marcos_STRING
RS3.Source = "SELECT * FROM ElencoFoto WHERE IdUtente = " & RS.Fields.Item("ID").Value & " and anteprima=True"
RS3.CursorType = 1
RS3.CursorLocation = 3
RS3.LockType = 3
RS3.Open()
%>

Siccome la tabella viene paginata in base al numero delle persone che uno decide di visualizzare, questo codice funziona solo sull prima pagina, quando provo a visualizzare la seconda pagina (o tabella paginata) mi da questo errore:

Tipo di errore:
ADODB.Field (0x800A0BCD)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/Incontri.asp, line 26

e questa è la riga 26:

RS3.Source = "SELECT * FROM ElencoFoto WHERE IdUtente = " & RS.Fields.Item("ID").Value & " and anteprima=True"

[teorema55]

Quando cambi pagina ti porti dietro le variabili, facendo

var = request.querystring("variabili")?

[Marco7303]

Ciao Grazie per avermi risposto.

Praticamente non cambio pagina è sempre la stessa pagina chiamata incontri.asp che però viene paginata.

Ad esempio ho i primi 20 record visualizzati poi c'è scritto vai a pagina 2 e se premo sul 2 ricarica sempre la pagina incontri.asp però mi visualizza gli altri 20 record...

[Marco7303]

Penso che il problema sia al primo RS
....
if RS.EOF = False then
tot_page=RS.PageCount
RS.AbsolutePage = current_page
end if

[teorema55]

La prima pagina funziona correttamente? Fai vedere come crei il link che devi cliccare per cambiare pagina........

[Marco7303]

questo è il codice:

<table width="100%" height="30" border="0">
      <tr>
        <td valign="bottom" nowrap> 
          <span class="Stile2">
          <%
Dim url,query_array
query_array=Split(Request.QueryString,"&")
url="Incontri.asp?"
for var=0 to UBound(query_array)-1
	current_var=Split(query_array(var),"=")
	if current_var(0) <> "page" then 
		url=url&current_var(0)&"="&current_var(1)
		if var<>(UBound(query_array)-1) then url=url&"&"
	end if	
next	
%>
          <%=paginazione(url,tot_page,current_page)%> </span></td>
      </tr>
    </table>

Però penso sia più "semplice" inserire il RS3.Source nel RS.Source!

[Marco7303]

Devo andare via, quindi scusami se leggerò la tua risposta domani (ovviamente spero di trovarla!).

Grazie ancora e buona serata

[teorema55]

Infatti la mia prima idea era di fare un'unica query..........ok, ne riparliamo.

[Marco7303]

Anche la notte non ha poratto buoni consigli e ancora sono "bloccato" su questo mio problema... Come unire due RS.Source?