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
%>