stampa risultati a 3 colonne

[forte78]

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.

[saucer]

prova modificando questo :

If nCol=3 Then

in

If cint(nCol)=3 then...

( e di conseguenza anche quello con nCol = 0 )

probabilmente è solo un problema legato al tipo variant...

[forte78]

allora mi da :


Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'cint'

/ddd324/anteprima2r.asp, riga 765





ti informo che questo script a 3 colonne funziona cosi su quest'altra pagina




<tr>
<td 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>









se ci aggiungo questo pezzo


<%
'############# 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
%>
ed in fondo


<%
end if
end if
next
%>


è un casino cioè nn crea 3 colonne ma 1 sola come nell'esempio della discuss. prec.

sarebbe interessante unire i 2 ma come ........

[saucer]

Questo errore :
Tipo non corrispondente: 'cint'

/ddd324/anteprima2r.asp, riga 765


viene dato quando la variabile all'interno di cint è NULL.
Pertanto basta fare un controllo prima e il gioco è fatto.

If Not Isnull(variabile) then
if cint(variabile) then
.....
end if
end if