Area ripetuta e istruzione do While

[paolo bosani]

ciao a tutti,
non so come risolvere questo problema:
ho una sql con istruzione loop di questo tipo

do While NOT Rs.EOF
If (Bg MOD 2) = 0 Then Bgcol = "riga1" else Bgcol = "riga2" end if %> ........
.............
Rs.MoveNext()
Bg = Bg + 1
loop%>

Ma se faccio un'area ripetuta, quest'ultima non funziona, come faccio a risolvere?

[Gio&Ste]

io faccio così

Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
className = "rigaPari"
Else
className = "rigaDispari"
End if
Response.Write "<div class =""" & className & """>" & objRS("Title") &" </div>"
Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop

[paolo bosani]

Originariamente inviato da Gio&Ste
io faccio così

Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
className = "rigaPari"
Else
className = "rigaDispari"
End if
Response.Write "<div class =""" & className & """>" & objRS("Title") &" </div>"
Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop

non funziona non viene visualizzato nessun record, occorre impostare iRecordShown e iPageSize da qualche parte? Cos'è Cont?

[paolo bosani]

Originariamente inviato da Gio&Ste
io faccio così

Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
className = "rigaPari"
Else
className = "rigaDispari"
End if
Response.Write "<div class =""" & className & """>" & objRS("Title") &" </div>"
Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop

Uso DW MX e ho modificato il codice in questo modo ma funziona metà:

<% Dim Bg, Bgcol
Bg = Repeat1__numRows
Bg = 0						
do While NOT RsNews.EOF
If (Bg MOD 2) = 0 Then Bgcol = "riga1" else Bgcol = "riga2" end if %>
<% Response.Write("<div class=""" + Bgcol + """>")%>
      <ul>
        		[*]"><%=Server.HTMLEncode((RsNews.Fields.Item("Titolo").Value))%>[/list]


<%=Server.HTMLEncode((RsNews.Fields.Item("Sottotitolo").Value))%>
		      <% Response.Write("</p></div>") %>      
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  RsNews.MoveNext()
Bg = Bg + 1

loop%>

praticamente l'effetto dei colori sulle righe alternate funziona, ma se voglio visualizzare solo cinque record no.
E' probabile che sia un problema legato a quello che mia suggerito:
Do While iRecordsShown < iPageSize And Not objRS.EOF
dove però non so cosa significa iRecordsShown e iPageSize.

[Gio&Ste]

Penso che dipende dalla selct che hai fatto
deve essere qualcosa del tipo

strSQL = "SELECT Top 5 * FROM news ORDER BY Id DESC"

[paolo bosani]

Originariamente inviato da Gio&Ste
Penso che dipende dalla selct che hai fatto
deve essere qualcosa del tipo

strSQL = "SELECT Top 5 * FROM news ORDER BY Id DESC"

Ok sembra che funzioni, ma se volessi passare ai successivi 5 record?

[Gio&Ste]

Si parla allora di paginazione .

Se fai una ricerca troverai molte informazioni

[paolo bosani]

Originariamente inviato da Gio&Ste
Si parla allora di paginazione .

Se fai una ricerca troverai molte informazioni

Ho trovato una infinità di codice, devo avere il tempo per capirlo ci proverò.