Op zaterdag 20 april 2002 11:22 schreef sjroorda het volgende:
Een eerste volgende verbetering lijkt mij een betere lay-out. Wie heeft zin om iets leuks te knutselen?
Wie zich geroepen voelt: maak iets moois en stuur de HTML door of zo, dan zet ik de data er wel in!
Hier het stukje code dat gebruikt word voor een DPCH lijstje
code:
1
2
| lcMsg = lcMsg + [:paragraph:<b>DPC Folding users dag top ] + IIF(nUserFlushCount < 30, [lijst], [30]) + [ van ] + DTOC(dDatum) + [</b>:enter:]
lcMsg = lcMsg + [<font size="1">(aantal flushende users vandaag: ] + TRANSFORM(nUserFlushCount) + |
+ TRANSFORM(nUserCount) + [ = ] + TRANSFORM(ROUND(nUserFlushCount/ nUserCount * 100, 0)) + [%)</font>:style:]
lcMsg = lcMsg + [<table width="450">:style:]
lcMsg = lcMsg + [<tr vAlign="top"><td><hr></td></tr>:style:]
lcMsg = lcMsg + [</table>:style:]
lcMsg = lcMsg + [<table width="450">:style:]
lcMsg = lcMsg + [<tr vAlign="top">:style:]
lcMsg = lcMsg + [ <td></td>:style:]
lcMsg = lcMsg + [ <td noWrap><font size="1">pos</font></td>:style:]
lcMsg = lcMsg + [ <td align="center"><font color="#ff0000" size="1">output</font></td>:style:]
lcMsg = lcMsg + [ <td><font size="1"><b>name</b></font></td>:style:]
lcMsg = lcMsg + [ <td align="center"><font color="#0000ff" size="1">total</font></td>:style:]
lcMsg = lcMsg + [ <td align="right"><font size="1">overall</font></td>:style:]
lcMsg = lcMsg + [</tr>:style:]
SELECT DagTopList
GO TOP
SCAN WHILE Pos < 31 AND Aant > 0
lcMsg = lcMsg + [<tr vAlign="top">:style:]
lcMsg = lcMsg + [ <td align="right"><font size="1">] + TRANSFORM(Pos) + [.</font></td>:style:]
lcMsg = lcMsg + [ <td noWrap><font size="1">(] + IIF(ISNULL(PosChange), [:new:], IIF(PosChange = 0, [:still:], IIF(PosChange > 0, [:up:], [:down:]) + TRANSFORM(ABS(PosChange)))) + [)</font></td>:style:]
lcMsg = lcMsg + [ <td align="right"><font color="#ff0000" size="1">] + ALLTRIM(TRANSFORM(Aant, c_Format)) + [</font></td>:style:]
lcMsg = lcMsg + [ <td><font size="1"><b>] + HTML_URL("&cPrefix./Users/DUser" + TRANSFORM(UserID)+".php", ALLTRIM(Naam)) + [</b></font></td>:style:]
lcMsg = lcMsg + [ <td align="right"><font color="#0000ff" size="1">] + ALLTRIM(TRANSFORM(Totaal, c_Format)) + [</font></td>:style:]
lcMsg = lcMsg + [ <td align="right"><font size="1">(] + TRANSFORM(OverAllPos) + [)</font></td>:style:]
lcMsg = lcMsg + [</tr>:style:]
ENDSCAN
lcMsg = lcMsg + [</table>:style:]
lcMsg = lcMsg + IIF(nUserFlushCount > 30, [<font size="1">] + HTML_URL("&cPrefix.&cFolder.DDayTopList81.html", [more...]) + [</font>], []) + [:style:][/code]
:paragraph: == <p>
:style: == Chr(13)
:new:, :still:, :up: en :down: zijn de plaatjes