aiuto su cliclo while

[devilio2001]

Buongiorno,
visto che non riesco ad andare avanti cerco aiuto da Voi

avrei l'esigenza di modificare il codice che riporto sotto

attualmente vengono visualizzati 10 record su 2 colonne per ogni canale dello script

adesso vorrei che quando a video mostra il record numero 3 mostrasse un'immagine
per poi continuare con il 4 5 6 etc... e fermarsi a 10

mi dareste una mano?







<%
set rsNewChannels = Server.CreateObject("ADODB.Recordset")
rsNewChannels.ActiveConnection = stingadiconnessione
rsNewChannels.Source = "SELECT * FROM CHANNELS WHERE CHA_ACTIVE=1 ORDER BY CHA_NAME ASC"
rsNewChannels.CursorType = 0
rsNewChannels.CursorLocation = 2
rsNewChannels.LockType = 3
rsNewChannels.Open()
rsNewChannels_numRows = 0
%>
<%
set rsNewDatas = Server.CreateObject("ADODB.Recordset")
rsNewDatas.ActiveConnection = stingadiconnessione
rsNewDatas.Source = "SELECT * FROM DATAS, CATEGORIES WHERE DAT_CATEGORY = CAT_ID AND DAT_APPROVED=1 AND DAT_EXPIRED > DATE() AND DAT_PARENT=0 ORDER BY DAT_DATED DESC"
rsNewDatas.CursorType = 0
rsNewDatas.CursorLocation = 2
rsNewDatas.LockType = 3
rsNewDatas.Open()
rsNewDatas_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -2
Dim HLooper1__index
HLooper1__index = 0
rsNewChannels_numRows = rsNewChannels_numRows + HLooper1__numRows
%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#003399">
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" background="../assets/bg_header.gif">
<tr>
<td width="10">[img]bg.gif[/img]</td>
<td align="left" valign="middle" class="textBoldColor">WHAT'S
NEW</td>
<td width="28" align="right" valign="middle">[img]bg.gif[/img]</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" class="bgTableBorder">[img]bg.gif[/img]</td>
<td align="left" valign="top" class="bgTable"><table cellpadding="0" cellspacing="0" width="100%">
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 2 'numero delle colonne mostrate a sistema
numrows = -1
while((numrows <> 0) AND (Not rsNewChannels.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%
While ((startrw <= endrw) AND (Not rsNewChannels.EOF))
rsNewDatas.Filter = "CAT_CHANNEL = " & rsNewChannels.Fields.Item("CHA_ID").Value
Dim rsNewDatas__numRows
rsNewDatas__numRows = 10 'numero di record estrapolati per canale
Dim rsNewDatas__index
rsNewDatas__index = 0
rsNewDatas_numRows = rsNewDatas_numRows + rsNewDatas__numRows
%>

<td width="50%" > <table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="left" valign="top" class="text" colspan="2">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr >
<td align="left" valign="middle" class="textBold">[img]../assets/icon_round.gif[/img]<%=UCASE(rsNewChannels.Fields.Item("CHA_NAME").Val ue)%></td>
<td align="right" valign="middle" class="textBold">&nChannel=<%=(rsNewChannels.Fields.Item("CHA_NAME" ).Value)%>">---&raquo;</td>
</tr>
<tr>
<td colspan="2" class="bgTableBorder">[img].pacer.gif[/img]</td>
</tr>
<%
While ((rsNewDatas__numRows <> 0) AND (NOT rsNewDatas.EOF))
%>
<tr>
<td colspan="2"> <table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td align="left" valign="top" class="text">&raquo; <%=(rsNewDatas.Fields.Item("DAT_DATED").Value)%> :
<a href="pagina.asp?iData=<%=(rsNewDatas.Fields.Item( "DAT_ID").Value)%>&iCat=<%=(rsNewDatas.Fields.Item ("DAT_CATEGORY").Value)%>&iChannel=<%=(rsNewDatas. Fields.Item("CAT_CHANNEL").Value)%>&nChannel=<%=(r sNewChannels.Fields.Item("CHA_NAME").Value)%>">

<%=(rsNewDatas.Fields.Item("DAT_NAME").Value)%>

</a></td>
</tr>
</table></td>
</tr>
<%
rsNewDatas__index=rsNewDatas__index+1
rsNewDatas__numRows=rsNewDatas__numRows-1
rsNewDatas.MoveNext()
Wend
%>
</table></td>
</tr>
</table></td>
<%
startrw = startrw + 1
rsNewChannels.MoveNext()
Wend
%>
</tr>
<%
numrows=numrows-1
Wend
%>
</table></td>
<td width="1" class="bgTableBorder">[img]der.gif[/img]</td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="top" background="_bottom.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="7" align="left" valign="top">[img]spacer.gif[/img]</td>
</tr>
</table>
<%
rsNewChannels.Close()
%>
<%
rsNewDatas.Close()
%>

[asva]

prima del ciclo while inserisci un indice tipo
i=1
all'interno del ciclo incrementa l'indice

i=i+1


poi poni un if che controlla quando i è =3
if i=3 then
'qui inserisci il codice che ti inserisce l'img
end if

stessa cosa per le altre situazioni

[devilio2001]

OK grazie
ci sono riuscito