ordinare per foto di categoria diversa

[optime]

Originariamente inviato da yro
io non so più che pensare

neanch'io chissà come si fa a capire che la foto con id 158 è la prima della categoria 1....

[yro]

Originariamente inviato da optime
neanch'io chissà come si fa a capire che la foto con id 158 è la prima della categoria 1....

ma io avevo capito...

[optime]

Originariamente inviato da yro
ma io avevo capito...

eh, ma io sono inferiore, famme capi' pure a mme

[Spyfil]

non ci capisco più niente!!

OVVIO CHE SI SCHERZAVA PRIMA..

ad ogni modo se volete vi faccio vedere la mia POCO ELEGANTE ma funzionale risoluzione del probelma..

non badate alle stringhe finali che mi servono per passarle ad un flash!!
Posto così per curiosità di chi leggerà.. Ormai anche se farà schifo la soluzione, funziona e sono contento! ;-)

SQLCATF="SELECT TOP 3 CategoriaFoto.CategoriaFoto, CategoriaFoto.OrdineCategoriaFoto, First(Foto.idFoto) AS PrimoDiidFoto, Foto.idCategoriaFoto FROM CategoriaFoto INNER JOIN Foto ON CategoriaFoto.idCategoriaFoto = Foto.idCategoriaFoto GROUP BY CategoriaFoto.CategoriaFoto, CategoriaFoto.OrdineCategoriaFoto, Foto.idCategoriaFoto ORDER BY Foto.idCategoriaFoto DESC"
'SQLCATF="SELECT TOP 3 * FROM CategoriaFoto Order BY idCategoriaFoto DESC"
Set rsCATF = Server.CreateObject("ADODB.Recordset")
Set rsCATF = Connessione.Execute(SQLCATF)
if not rsCATF.EOF or not rsCATF.BOF Then
	cont = 0
	While not rsCATF.EOF
		cont = cont + 1
		Select Case cont
			Case 1
				idCategoriaFoto1 = rsCATF("idCategoriaFoto")
				CategoriaFoto1 = rsCATF("CategoriaFoto")
				'Response.Write(idCategoriaFoto1&"
")
			Case 2
				idCategoriaFoto2 = rsCATF("idCategoriaFoto")
				CategoriaFoto2 = rsCATF("CategoriaFoto")
				'Response.Write(idCategoriaFoto2&"
")
			Case 3
				idCategoriaFoto3 = rsCATF("idCategoriaFoto")
				CategoriaFoto3 = rsCATF("CategoriaFoto")
				'Response.Write(idCategoriaFoto3&"
")
		End select
	
	rsCATF.MoveNext
	Wend
End if
rsCATF.Close
Set rsCATF = Nothing


SQLFOTO="SELECT * FROM Q_Foto WHERE idCategoriaFoto = "&idCategoriaFoto1&" ORDER BY idFoto, idCategoriaFoto"
Set rsFOTO = Server.CreateObject("ADODB.Recordset")
Set rsFOTO = Connessione.Execute(SQLFOTO)
if not rsFOTO.EOF or not rsFOTO.BOF Then
While not rsFOTO.EOF
	FOTO1 = FOTO1 & rsFOTO("idFoto") & "|" & rsFOTO("Foto") & "|" & idCategoriaFoto1 & "|" & CategoriaFoto1 & ","
rsFOTO.MoveNext
Wend
End if
rsFOTO.Close
Set rsFOTO = Nothing

FOTO1 = left(FOTO1,len(FOTO1)-1)


SQLFOTO="SELECT * FROM Q_Foto WHERE idCategoriaFoto = "&idCategoriaFoto2&" ORDER BY idFoto, idCategoriaFoto"
Set rsFOTO = Server.CreateObject("ADODB.Recordset")
Set rsFOTO = Connessione.Execute(SQLFOTO)
if not rsFOTO.EOF or not rsFOTO.BOF Then
While not rsFOTO.EOF
	FOTO2 = FOTO2 & rsFOTO("idFoto") & "|" & rsFOTO("Foto") & "|" & idCategoriaFoto2 & "|" & CategoriaFoto2 & ","
rsFOTO.MoveNext
Wend
End if
rsFOTO.Close
Set rsFOTO = Nothing

FOTO2 = left(FOTO2,len(FOTO2)-1)


SQLFOTO="SELECT * FROM Q_Foto WHERE idCategoriaFoto = "&idCategoriaFoto3&" ORDER BY idFoto, idCategoriaFoto"
Set rsFOTO = Server.CreateObject("ADODB.Recordset")
Set rsFOTO = Connessione.Execute(SQLFOTO)
if not rsFOTO.EOF or not rsFOTO.BOF Then
While not rsFOTO.EOF
	FOTO3 = FOTO3 & rsFOTO("idFoto") & "|" & rsFOTO("Foto") & "|" & idCategoriaFoto3 & "|" & CategoriaFoto3 & ","
rsFOTO.MoveNext
Wend
End if
rsFOTO.Close
Set rsFOTO = Nothing

FOTO3 = left(FOTO3,len(FOTO3)-1)


ARR1 = Split(FOTO1,",")
Limite1 = UBound(ARR1)

ARR2 = Split(FOTO2,",")
Limite2 = UBound(ARR2)

ARR3 = Split(FOTO3,",")
Limite3 = UBound(ARR3)

if Limite1 < Limite2 Then
	LimiteTemp = Limite1
Else
	LimiteTemp = Limite2
End if

if LimiteTemp < Limite3 Then 
	Limite = LimiteTemp
Else
	Limite = Limite3
End if

for i = 0 to Limite
	'Response.Write("AR1"&ARR1(i)&"
")
	'Response.Write("AR2"&ARR2(i)&"
")
	'Response.Write("AR3"&ARR3(i)&"
")
	ARR1S = Split(ARR1(i),"|")
	ARR2S = Split(ARR2(i),"|")
	ARR3S = Split(ARR3(i),"|")
		varfla=varfla&"|"&ARR1S(3)&"|Foto/"&ARR1S(1)&"|foto-dettaglio.asp?m=fvçidCategoriaFoto="&ARR1S(2)&"§"
		varfla=varfla&"|"&ARR2S(3)&"|Foto/"&ARR2S(1)&"|foto-dettaglio.asp?m=fvçidCategoriaFoto="&ARR2S(2)&"§"
		varfla=varfla&"|"&ARR3S(3)&"|Foto/"&ARR3S(1)&"|foto-dettaglio.asp?m=fvçidCategoriaFoto="&ARR3S(2)&"§"
		'foto-dettaglio.asp?m=fv&idCategoriaFoto=5
	
next

[Roby_72]

:master:

[yro]

Originariamente inviato da Spyfil
Non è vero..
guarda il risultato idFoto idCategoria
115 7
116 7
117 7
118 7
119 7
120 7
121 7
122 7
123 7
124 7
125 7
126 7
127 7
128 7
129 7
130 7
131 7
132 7
133 7
136 7
137 7
138 7
139 7
140 7
142 7
143 7
144 7
145 7
146 7
147 7
148 8
149 8
150 8
151 8
152 8
153 8
154 8
155 8
156 8
157 8
158 8
159 8

spet...

tu da questa sequenza volevi ottenere:
115 7
148 8
116 7
149 8

e così via?

[Spyfil]

ora non preoccupatevi degli idFoto..

quello che volevo era riuscire a far vedere le foto delle ultime 3 categorie caricate sul sito.
Però facendone vedere una della prima, una della seconda, una della terza, una della prima, una della seconda.. e così via..

prima ho sbagliato a parlare di primo e secondo probabilmente..

per ROBY: so che quello che ho fatto è spaventoso!! Ma alla fine essendo solo un'anteprima di foto per entrare poi nella gallery mi basta...
PERDONAMI!! ;-)