Inserire celle mancanti..

[ANTAGONIA]

Buon pomeriggio, estraggo dei record da un DB, intabello il tutto, ma a seconda della ricerca mi tira fuori,4 o 5 record che impagino, in una pagina che può contenere al max 8 record.
Vorrei sapere come fare ad inserire, qual'ora una pagina ne abbia soltanto 3(celle), altre 2-3..ect a seconda della necessità, per arrivare a 8... Spero di essermi spiegato!!
questo è il codice della pagina:

<table cellpadding="0" cellspacing="1" border="0">
<tr>
<td bgcolor="#dddddd" WIDTH="22%"><font face="verdana" size="-2" color="#000000">Rag.Sociale</font></td>
<td bgcolor="#dddddd" WIDTH="19%"><font face="verdana" size="-2" color="#000000">Indirizzo</font></td>
</tr>
<%
'SI VISUALIZZA IL CONTENUTO DELLA STRINGA SQL
'ALL'INTERNO DELLA TABELLA PRIMA DEFINITA
cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
If Rig Mod 2 = 0 then
bg = "#E4E4E4"
Else
bg = "#ccccff"	
End if	

Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='-2'>" & objRS("ragione_sociale") & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='-2'>" & objRS("indirizzo") & "</font></td></tr>"
							
Cont = Cont + 1
'POSIZIONAMENTO ALLA RIGA SUCCESSIVA DEL DB
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
%>
</table>

Grazie mille...ciao ciao

[optime]

prima di chiudere </table> conta quanti ne hai stampati. se sono meno di 8, stampi quelli che mancano con un ciclo for...next
alla fine chiudi la tabella

[ANTAGONIA]

grazie mille...ma non so da dove cominciare.. se puoi aiutarmi... per favore

[ANTAGONIA]

regà..sapete come fare?

[ANTAGONIA]

[ANTAGONIA]

[distpg]

io farei in questo modo:

<table cellpadding="0" cellspacing="1" border="0">
<tr>
<td bgcolor="#dddddd" WIDTH="22%"><font face="verdana" size="-2" color="#000000">Rag.Sociale</font></td>
<td bgcolor="#dddddd" WIDTH="19%"><font face="verdana" size="-2" color="#000000">Indirizzo</font></td>
</tr>
<%
Dim Rig, bg

intRighePerPagina=8
strRagioneSociale=""
strIndirizzo=""
for intContatore=1 to intRighePerPagina
   if not objRS.EOF
      strRagioneSociale=objRS("RagioneSociale")
      strIndirizzo=objRS("indirizzo") 
      objRS.MoveNext()
   else
      strRagioneSociale=""
      strInidirizzo=objRS("indirizzo") 
   End If

   Rig = Rig + 1
   If Rig Mod 2 = 0 then
     bg = "#E4E4E4"
   Else
     bg = "#ccccff"	
   End if	

   Response.Write "<tr bgcolor = " & bg & "><td><font color='#000000' face='Verdana' size='-2'>" & strRagioneSociale & "</font></td>"
Response.Write "<td align='center'><font color='#000000' face='Verdana' size='-2'>" & strIndirizzo & "</font></td></tr>"
Next							
%>
</table>

Ciao,
distpg.