salve

ho questo script





<table border="0" cellpadding="3" cellspacing="3" width="600" class="normales"><tr><td>

<%
'############# RICH ABBINABILI ###############à
Dim chkAbbinabile
For Each chkAbbinabile in Request.Form("codici_abbinabili")
If chkAbbinabile<>"" Then
Set objrs = Conn.Execute("select * from immobili where Codice=" & chkAbbinabile)
If not objrs.Eof Then
%>



<tr id="row_old_<%=objrs("codice")%>">

</td>
</tr>
</table>



<tr>
<td height="5"></td>
</tr>




<tr>
<td width="100%" height="5">








<table border="0" cellpadding="3" cellspacing="3" width="600" class="normales">
<%
Dim sTelefono
Dim nCol : nCol = 0
Do While Not objRS.EOF

If nCol=3 Then
Response.Write "</tr>"
nCol=0
End If

If nCol=0 Then
Response.Write "<tr>"
End If

sTelefono = Trim(objrs("telefono"))
If Len(sTelefono)>3 then
sTelefono = Mid(sTelefono,1,len(sTelefono)-3) & "***"
End If


Response.Write "<td width=""200"" valign=""top""><p align='justify'>" & Trim(objrs("cognome") & " " & objrs("nome")) & " " & sTelefono & "</td>"





nCol = nCol + 1
objrs.MoveNext

Loop
objrs.Close
SET objrs = Nothing



%>

</table>
</td>
</tr>
</table>



</td>
</tr>
</table>
</table>
<%
end if
end if
next
%>



in questo modo mi visualizza cosi


ROMA

MILANO

NAPOLI

TORINO

BOLOGNA

Ho cercato di adattare questo codice perche abbia questo risultato

ROMA MILANO NAPOLI
TORINO BOLOGNA


Ma niente mi viene rilevato sempre uno sotto l'altro mi potete indicare cosa non lo fa fare....

grazie saluti.