formattazione tabella asp

[Isma75]

salve a tutti,
avrei bisogno di una mano riguardo la formattazione di una tabella.
La tabella è dinamica (asp).

In questa tabella vengono visualizzati record variabili da un minimo di 1 ad un massimo di 30.
Vorrei formattare la tabella in modo da visualizzare 4 record per riga.

Ho provato a modificare i parametri width e height ma senza successo, ed anche utilizzando una variabile contatore, che conta i record e quando è uguale a determinati valori crea un altro <tr> (volevo simulare l'andare a capo).
La parametrizzazione dell'attributo height e width del td funzione con le prime due righe mentre la terza rimane non subisce i cambiamenti che vorrei.

come posso fare?
qualcuno sa dirmi di preciso dove devo agire?

grazie
ismy75

[rixx]

e il codice?

[superesse]

posta un pò di codice....

[Isma75]

lung_tab=""
alt_tab=""
alt=""
lun=""


<% sql_count="SELECT count(*) as num FROM tabella where campo='"&valore&"'"

set rs_count = Server.CreateObject("ADODB.Recordset")
rs_count.open sql_count, Conn

if rs_count("num_appl")=1 then
lung_tab="150"
alt_tab="80"

elseif rs_count("num")<4 then
lung_tab="150"
alt_tab="100"
else
lung_tab="300"
alt_tab="200"
end if
%>


<table bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" border="1" align="center" cellspacing="0" width="<%=lung_tab%>" height="<%=alt_tab%>">


<tr valign="middle" align="center">
<%
while not rs.eof

sql="SELECT * FROM tabella1 where campo1='"& rs("valorecampo1") & "'"

set myrset = Server.CreateObject("ADODB.Recordset")
myrset.open sql, Conn_oracle


if rs_count("num")=1 or rs_count("num")<4 then
lun="10"
alt="50"
'lungh_tab="50"
'alt_tab="100"

else

lun="50%"
alt="50%"

end if

%>

<%
if not myrset.eof and not myrset.bof and not contatore=4 and not contatore=8 and not contatore=12 and not contatore=16 then%>


<%

blocco di istruzioni
%>


<td nowrap align="center" valign="middle" width="<%=lung%>" height="<%=alt%>" border="1">

<a href="../prova/prova.asp?prova=<%=myrset("valorecampo1")%>"><%=my rset("valorecampo1")%>

</a>
</td>


<%else%>

<tr>
</tr>

<%end if%>

<%
rs.movenext
wend
%>

[Aspide_01]

Scusami ma ho poco tempo per pulirlo!L'ho preso direttamente dalla mia pagina già funzionante.

<table width="100%">
  <tr class="Stile5"> 
    <td width="60%"></td>
    <td width="40%"></td>
  </tr>   
</table>
<div align="center">
  
<%
   set Conn =Server.CreateObject("ADODB.Connection")
Conn.open connstr
sql= "select * from foto"
set rs=Conn.execute(sql)

   If rs.EOF Then
      Response.Write("Dati non trovati")
	  Response.End()          
   End If
   
   v_Max_Col = 5
   att_Col = 0
   v_Esito = Draw_Table()
   
   Do  While Not rs.EOF
nomeFile=rs("nomeFile")
percorso=rs("percorso")     
      
	  if (att_Col = 0) then
	     %>  
</div>
<tr>  <%
	  end if
	  %>
	     <td><%=nomeFile%></td>
	  <%
	  att_Col = att_Col +1
	  if (att_Col = v_Max_Col) then
	     %>  </tr>  <%
		 att_Col = 0
	  end if  
	  rs.MoveNext
   Loop
   rs.close
   Set rs= Nothing
   Conn.close
   Set Conn = Nothing

  '//-- Funzioni -------------------------------------------------------------------------

   Function Draw_Table()
      %>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1">	 
	  <%
      Draw_Table = True
   End Function

%>
</table>

[Isma75]

qualcuno mi può dare una mano?

ora cerco di modificare il codice postatomi, ma avrei bisogno di un codice più allineato con le mie esigenze..

grazie
isma75

[Isma75]

non riesco a farlo funzionare come voglio..

qualcuno può darmi un piccolo aiuto?

grazie
isma75

[superesse]

volentieri...però posta il codice che tu stai modificando così capiamo tutti e due gli eventuali errori.....

Ciao

[Isma75]

..puoi prendere come riferimento quello che ho postato io,
facendo le modifiche ho fatto un po' troppa confusione e non è affidabile come codice..

grazie
isma75

[superesse]

'Non ho avuto il tempo di testarlo..provaa un pò così...

<%
lung_tab="" 
alt_tab="" 
alt="" 
lun="" 
Contatore=0

sql_count="SELECT count(*) as num FROM tabella where campo='"&valore&"'" 
set rs_count = Server.CreateObject("ADODB.Recordset") 
rs_count.open sql_count, Conn 

if rs_count("num_appl")=1 then 
	lung_tab="150" 
	alt_tab="80" 
elseif rs_count("num")<4 then 
	lung_tab="150" 
	alt_tab="100" 
else 
	lung_tab="300" 
	alt_tab="200" 
end if 
%> 
Contatore=4
<table bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" border="1" align="center" cellspacing="0" width="<%=lung_tab%>" height="<%=alt_tab%>"> 
<% 
	do while rs.eof = false 
		if Contatore=4 then
			Contatore=1
		%>
			<tr valign="middle" align="center"> 
		<%end if>

		sql="SELECT * FROM tabella1 where campo1='"& rs("valorecampo1") & "'" 
		set myrset = Server.CreateObject("ADODB.Recordset") 
		myrset.open sql, Conn_oracle 

		if rs_count("num")=1 or rs_count("num")<4 then 
			lun="10" 
			alt="50" 
			'lungh_tab="50" 
			'alt_tab="100" 
		else 
			lun="50%" 
			alt="50%" 
		end if 
		%>
		<td nowrap align="center" valign="middle" width="<%=lung%>" height="<%=alt%>" border="1"> 		
			<a href="../prova/prova.asp?prova=<%=myrset("valorecampo1")%>"><%=myrset("valorecampo1")%> 
			</a> 
		</td> 
		<%
		Contatore=Contatore+1
		if contatore=4 then%>
		</tr>
		<%end if
		myrset.Close
		
<%
	rs.movenext 
loop
rs.close
set rs=nothing
set myrset=nothing
if contatore<4 then
	%>
	</tr>
	<%
end if
%>
</table>