Cambiato Database non funziona più RS!

[Marco7303]

Salve

Ho effettuato delle modifiche al database cancellando delle tabelle in quanto facevano riferimento a informazioni che non mi servivano più.

Praticamente prima venivano caricate delle informazioni quali nazione, regione, provincia e città in automatico a seconda di quale nazione o regione era appartenente la persona... Solamente che questo script mi dava problemi con la gestione delle schede e così l'ho levato e inserito una semplice tendina a scorrimento con le nazioni e regioni già preimpostate (lasciando in bianco per le provincie e città). Ho cancellato anche tutte le relazioni con la tebella principale di nome incontri. Nella tabella incontri ho inserito 4 campi di testo chiamati nazione, regione, provincia e citta

In qualche pagina però per far visualizzare correttamente la scheda avevo questa incasinatissima RS ... che non so più aggiustar...

Qualcuno di voi saprebbe aiutarmi per favore?

GRAZIE

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,
(SELECT Anteprima FROM ElencoFoto WHERE IdUtente = Incontri.ID AND
 Anteprima = true) AS Antreprima,(SELECT PosFoto FROM ElencoFoto
 WHERE IdUtente = Incontri.ID AND Anteprima = true) AS PosFoto 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 Incontri.Sesso='"&sesso&"' ORDER BY
 Incontri.LastAccess DESC"

[Marco7303]

Stavo provando così:

RS.Source = "SELECT Incontri.*, ElencoFoto.PosFoto, ElencoFoto.Anteprima, ElencoFoto.IdUtente FROM Incontri LEFT JOIN ElencoFoto ON Incontri.ID = ElencoFoto.IdUtente WHERE Incontri.Sesso='"&sesso&"' ORDER BY Incontri.LastAccess DESC"

Però ho un problema... visualizza gli utenti in maniera corretta però l'ultimo viene visualizzato più volte...


Penso che bisognerebbe rielaborare questo codice

(SELECT Anteprima FROM ElencoFoto WHERE IdUtente = Incontri.ID AND
 Anteprima = true) AS Antreprima,(SELECT PosFoto FROM ElencoFoto
 WHERE IdUtente = Incontri.ID AND Anteprima = true)

e integrarlo con quello nuovo che stavo provando...

Chi sa aiutarmi?

[Marco7303]

Ho risolto in questo modo:

RS.Source = "SELECT Incontri.*, ElencoFoto.PosFoto, ElencoFoto.Anteprima, ElencoFoto.IdUtente FROM Incontri LEFT JOIN ElencoFoto ON Incontri.ID = ElencoFoto.IdUtente WHERE Incontri.Models=true AND Incontri.Disp=true and Incontri.Sesso='"&sesso&"' ORDER BY Incontri.LastAccess DESC"

Il problema è che se una persona inserisce 10 fotografie vengono visualizzate tutte e 10 le fotografie... allora vorrei sapere se è possibile, visto che ogni utente ha un ID univoco, metterci una clausola che dice che se l'ID è già presente non ripeterlo nuovamente...

Esiste una cosa del genere?

[Marco7303]

Nooooo!
Mi ero sbagliato ... la seconda select da me provata non funziona correttamente!

Chi sa rielaborare la prima RS.Source funzionante?

Sono in crisi!

[Marco7303]

Forse è più facile se spiego cosa vorrei che provare a modificare quella RS!

Nella pagin dove c'è l'RS dovrei far visualizzare tutti gli ID nella tabella incontri (e fin qui ci siamo).

Poi ho un'altra tabella chiamata ElencoFoto sempre nello stesso database dove vengono memorizzate i nomi delle fotografie.

Questa pagina usa la paginazione...

Provo a postare un po' di codice:

current_page=Request("CurPag")
if current_page="" then current_page=1

num_persone=12
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,(SELECT Anteprima FROM ElencoFoto WHERE IdUtente = Incontri.ID AND Anteprima = true) AS Antreprima,(SELECT PosFoto FROM ElencoFoto WHERE IdUtente = Incontri.ID AND Anteprima = true) AS PosFoto 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 Incontri.Sesso='"&sesso&"' ORDER BY Incontri.LastAccess DESC"
'Numero di schede da visualizzare
Rs.PageSize=num_persone
RS.CursorType = 1
RS.CursorLocation = 3
RS.LockType = 3
RS.Open()
if RS.EOF = False then
	tot_page=RS.PageCount 
end if	
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>...</title>
<tr> 
  <td bgcolor="#CC33FF" align="center"> <table width="100%" border="0" bgcolor="#CC99FF">
      <tr> 
        <td rowspan="2" valign="bottom"><div align="right"><font color="#9900FF" size="5" face="Georgia, Times New Roman, Times, serif"></font></div>          <p style="text-align:left;color:#ffffff;font-weight:bold;font-family:Verdana;font-size:9px;margin:2px;">Pagina 
        <%=current_page%> di <%=tot_page%><font color="#9900FF" size="5" face="Georgia, Times New Roman, Times, serif"></font></p></td>
        <td width="17%" rowspan="2" valign="center"><font color="#9900FF" size="5" face="Georgia, Times New Roman, Times, serif">[img]../Images/AlmostFamousTn.gif[/img]</font></td>
        <td width="17%" valign="bottom" nowrap><a href="javascript:history.go(-1)"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nuova 
          ricerca</font></a></td>
        <td width="18%" rowspan="2">
<div align="right">[img]../Images/homeAlmostFamous.gif[/img]</div></td>
      </tr>
      <tr>
        <td valign="bottom" nowrap><div align="right">[img]../../HomePage/Back.gif[/img]</div></td>
      </tr>
    </table>
    

</p>
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr> 
        <td></td>
      </tr>
    </table>
    <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">
	  <tr> 
      <%   
	  if RS.EOF = False then
	
		query_array = Request.QueryString
		
		if query_array <> "" then
			if (instr(1, query_array,"CurPag") > -1) then
				if (Instr(1,query_array,"&") > -1) then
					query_array = Mid(query_array, Instr(1,query_array,"&")+1)
				end if
			end if
		else
			query_array = "&" & query_array			
		end if
	
		strPaginazione = paginazione("Incontriamoci.asp", RS.PageSize, RS, current_page, query_array, ">>", "<<", 10, "", "")
		for count=1 to RS.PageSize	
			if RS.EOF = False then 
				%>
		<td>
					<table border="0" cellpadding="3" cellspacing="1">
					<tr bgcolor="#E6CCFF"> 
					  <td width="125" colspan="2" bgcolor="#E6CCFF"><div align="left">
					    

<font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">UserName 

						</font></font><span class="Stile1"><%=(RS.Fields.Item("username").Value)%></span></p>
							</div>					    </td>
					  <td rowspan="4" bgcolor="#CC99FF"><div align="center" class="Stile1"></div> 
					    <div align="center"></div>          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">            </font></div>          <div align="center"></div> 
					    <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">        </font></div>          <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
					      			
					      <% 	if RS.Fields.Item("UsaFoto").Value=False then %>
</font>
					      <table width="100%"  border="1">
                            <tr>
                              <td bgcolor="#FFFFFF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">[img]../Images/x.jpg[/img]</font></div></td>
                            </tr>
                          </table>
					      <font size="1" face="Verdana, Arial, Helvetica, sans-serif">						  
					      <%else %>
						      [img]resize.aspx?w=150&h=100&src=../public/foto/<%=(RS.Fields.Item("PosFoto").Value)%>[/img]	
						      <% end if %>	
						  </font></div> 
				      <div align="center"></div>					  </td>
					</tr>
					<tr bgcolor="#E6CCFF">
					  <td colspan="2" bgcolor="#E6CCFF"><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Et&agrave;
</font></font></font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%=(RS.Fields.Item("DataNas").Value)%></font></td>
					</tr>
					<tr bgcolor="#E6CCFF">
					  <td colspan="2" bgcolor="#E6CCFF"><font size="1"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Regione 
</font></font><font size="1"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(RS.Fields.Item("Username").Value)%></font></font></font></td>
					</tr>
					<tr bgcolor="#E6CCFF">
					  <td><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ID: <%=(RS.Fields.Item("ID").Value)%></font></div></td>
					  <td><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">">&raquo;&raquo;</font></div></td>
					</tr>
					<tr>
					  <td colspan="2"></td>
					  <td></td>
					</tr>
					</table>
		</td>
				<% 
				if count mod 3 = 0 then
				%>
				
	  </tr><tr>
		
				<%
				end if
				
				RS.MoveNext()
			else 
  				Exit For
			end if
		Next
	end if
	%>
	</tr>
    </table>
    <table width="100%" height="30" border="0">
      <tr>
        <td valign="bottom" nowrap> 
          <div align="right" class="Stile2">
            <%= strPaginazione %>        </div></td>
      </tr>
    </table></td>
</tr>
  
<%
Rs.close
set Rs=Nothing
%>