Estrarre 4 record per riga

grottafelix

Utente Attivo
5 Mar 2003
2.410
2
38
46
Parco chiuso -
www.girsms.com
Codice:
<%
sSQL="SELECT * FROM Amministrazione WHERE Incarico= '" & Request.QueryString("nome") & "'" 
objRS.Open sSQL, objConn, 3, 3
%>
<% 
Dim Numero 
while not objRS.EOF 
%> 
<% 
Numero=0 
do while Numero<4 and not objRS.eof 
If objRS("Simbolo") <> "" Then 
%> 

<%Do while not objRS.Eof
  ID=objRS("ID")
  Simbolo=objRS("Simbolo")
  Nome=objRS("Nome")
%>

<%=objRS("Nome")%>
<a href="schedaoggettox.asp?id=<%=objRS("ID")%>">
<img src="<%=objRS("Simbolo")%></a>
 
<% 
Numero=Numero+1 
end if 
objRS.Movenext 
loop 
%> 
</tr> 
<% 
wend 
%>

mi fate capire dov'è che sbaglio???
dovrei dirgli solo di estrarre dei record quando il campo simbolo non è vuoto e disporli 4 per riga :eek:
 
Ultima modifica:
Mamma mai Felix, ma quanto ti piace fare cicli dentro cicli dentro cicli dentro cicli dentro cicli dentro cicli dentro cicli dentro cicli .. LOOP! :D

Io farei così:

<%
sSQL="SELECT * FROM Amministrazione WHERE Incarico= '" & Request.QueryString("nome") & "' AND objRS("Simbolo") <> ''"
objRS.Open sSQL, objConn, 3, 3

if not objRS.EOF then
response.write("<table><tr>")

%>
<%
Dim Numero
Numero=0

do while not objRS.EOF
Numero=Numero+1
ID=objRS("ID")
Simbolo=objRS("Simbolo")
Nome=objRS("Nome")
%>
<td>
<%=Nome%>
<a href="schedaoggettox.asp?id=<%=objRS("ID")%>">
<img src="<%=objRS("Simbolo")%"></a>
</td>
<%
if Numero mod 4 = 0 then response.write("</tr><tr>")
objRS.Movenext
loop

response.write("</tr></table>")
end if

%>

Tieni conto che non l'ho provato, ma in teoria dovrebbe andare! ;)

SaLuT!
:byebye:
 
PoLe ha scritto:
Mamma mai Felix, ma quanto ti piace fare cicli dentro cicli dentro cicli dentro cicli dentro cicli dentro cicli dentro cicli dentro cicli .. LOOP! :Dì:


ehehe pensa che le donne dicono che la vita è tutto un ciclo :quote:

p.s. grazie a tutti e a daviduccio e pole :-) ... risolto!
 

Discussioni simili