incollonnare record

[Roby_72]

Non è un problema di linguaggio ma di logica.
Dovessi scrivere un algoritmo per questo problema come lo faresti?

categoria = ""
inizio ciclo
categoria <> categoria da db?
Si? ->
 - stampo la categoria
 - categoria = categoria da db (reimpostazione della variabile con nuovo valore)
...
...
...
fine ciclo

Roby

[graficherò]

Originariamente inviato da Roby_72
Non è un problema di linguaggio ma di logica.
Dovessi scrivere un algoritmo per questo problema come lo faresti?

categoria = ""
inizio ciclo
categoria <> categoria da db?
Si? ->
 - stampo la categoria
 - categoria = categoria da db (reimpostazione della variabile con nuovo valore)
...
...
...
fine ciclo

Roby

Grazie del suggerimento proverò a smisticare un po anche se comunque malgrado la delucidazione non ho capito niente, ne dove inserire il codice ne come, però domani mattina appena torno al lavoro mi ci applicherò e ti farò sapere.

Grazie

[Roby_72]

Suggerimento.
inizio ciclo significa "for conta=0 to ubound(arrdati,2)"

Roby

[graficherò]

Originariamente inviato da Roby_72
Suggerimento.
inizio ciclo significa "for conta=0 to ubound(arrdati,2)"

Roby

Caro moderatore io ho provato a seguire le tue indicazioni, ho provato ad inserire codice in tutte le salse ma non sono proprio capace e stufo di vedere errori da questa mattina alle 9 ho buttato tutto e sono ritornato al codice base.

Mi spiace deluderti ma non mi è sufficente la logica ho bisogno della sintassi perche è proprio quella che mi manca.

Grazie mille
Una schiappa.

[Roby_72]

cat = "" 
response.write "<table><tr><td>" 
for conta=0 to ubound(arrdati,2) 
field = arrdati(2,conta) 
if cat <> field then
response.write field 
cat = field
end if
response.write "
" 
response.write "" & arrdati(0,conta) & "" 
if ((conta+1) mod 4)=0 then 
response.write "</td><td>" 
else 
response.write "
" 
end if 
next 
response.write "</td></tr></table>"

Roby

[graficherò]

Originariamente inviato da Roby_72

cat = "" 
response.write "<table><tr><td>" 
for conta=0 to ubound(arrdati,2) 
field = arrdati(2,conta) 
if cat <> field then
response.write field 
cat = field
end if
response.write "
" 
response.write "" & arrdati(0,conta) & "" 
if ((conta+1) mod 4)=0 then 
response.write "</td><td>" 
else 
response.write "
" 
end if 
next 
response.write "</td></tr></table>"

Roby

Fantastico, straordinario, grandissimo.

Grazie, grazie, grazie, mi hai salvato la vita.

[graficherò]

<%
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT notizia, pagina, categoria FROM newslinks order by categoria"
rs.Open strSQL,cn,0,1
arrdati=rs.getrows()
rs.close
set rs=nothing
cn.close
set cn=nothing
cat = ""
response.write "<table><tr><td>"
for conta=0 to ubound(arrdati,2)
field = arrdati(2,conta)
if cat <> field then
response.write field
cat = field
response.write "
"
end if
response.write "" & arrdati(0,conta) & ""
if ((conta+1) mod 6)=0 then
response.write "</td><td>"
else
response.write "
"
end if
next
response.write "</td></tr></table>"
erase arrdati
%>