PDA

Vollständige Version anzeigen : Tabellen und ASP


Lupus
12.02.2003, 22:29
Hallöschen,

wie bekomme ich Datenfelder in eine Tabelle rechts und Links rein?
Bisher steht folgender Code:

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>
&lt;table border=&quot;1&quot; width=&quot;90%&quot;&gt;
&lt;tr&gt;
&lt;% <span class="TOKEN">Do</span> <span class="TOKEN">While</span> <span class="TOKEN">Not</span> objRS.EOF <span class="TOKEN">And</span> intCounter &lt;= PageSize
Response.Write &quot;&lt;td&gt;&lt;a href=&quot;&quot;bildseite.asp?BN=&quot;&amp; objRS.Fields(&quot;Bildnummer&quot;)&amp; &quot;&quot;&quot;&gt;&lt;img border=&quot;&quot;0&quot;&quot; src=&quot;&quot;galpic/&quot;&amp; objRS.Fields(&quot;kleinbild&quot;) &amp; &quot;&quot;&quot; alt=&quot;&quot;&quot; &amp; objRS.Fields(&quot;Titeltext&quot;)&amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&lt;/td&gt;&quot; %&gt;
&lt;td&gt;rechts oben&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;% = objRS.Fields(&quot;Titeltext&quot;)%&gt;&lt;/td&gt;
&lt;td&gt;rechts unten&lt;/td&gt;
&lt;/tr&gt;
&lt;% intCounter = intCounter + 1
objRS.MoveNext
<span class="TOKEN">Loop</span>
%&gt;
&lt;/table&gt;</pre></div>

Rechts oben und Rechts unten Zellen möchte ich gerne auch noch füllen.
(sorry wenn das so seltsam aussieht, aber das ist eben das was der CodeConverter daraus macht)

Lupus
13.02.2003, 08:58
Na wenn mir keiner Helfen will, dann mache ich es eben selber *grins*

Der Code funktioniert nun:
<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>&lt;%
dim iMaxImgSite
dim iMaxAnzCells
dim iCntCell
iMaxImgSite = 20 <span class="REM">'Anzahl der Bilder pro Seite</span>
iMaxAnzCells = 2
iCntCell = 0
%&gt;
&lt;div align=&quot;center&quot;&gt;
&lt;center&gt;
&lt;table border=&quot;0&quot; width=&quot;90%&quot; cellspacing=&quot;1&quot;&gt;
&lt;%
<span class="TOKEN">Do</span> <span class="TOKEN">While</span> <span class="TOKEN">Not</span> objRS.EOF <span class="TOKEN">And</span> intCounter &lt;= PageSize
&nbsp;
iCntCell = iCntCell + 1
<span class="TOKEN">If</span> iCntCell = 1 <span class="TOKEN">Then</span> Response.Write(&quot;&lt;tr&gt;&quot;)
%&gt;
&nbsp;
&lt;td width=&quot;50%&quot; align=&quot;center&quot; valign=&quot;bottom&quot;&gt;
&lt;%
Response.Write &quot;&lt;p&gt;&lt;a href=&quot;&quot;bildseite.asp?BN=&quot;&amp; objRS.Fields(&quot;Bildnummer&quot;)&amp; &quot;&quot;&quot;&gt;&quot;
Response.Write &quot;&lt;img border=&quot;&quot;0&quot;&quot; src=&quot;&quot;galpic/&quot;&amp; objRS.Fields(&quot;kleinbild&quot;) &amp; &quot;&quot;&quot;&quot;
Response.Write &quot;alt=&quot;&quot;&quot; &amp; objRS.Fields(&quot;Titeltext&quot;)&amp; &quot;&quot;&quot;&gt;&lt;/a&gt;&quot;
Response.Write &quot;&lt;font size=&quot;&quot;1px&quot;&quot;&gt;&amp;nbsp;&amp;nbsp;&quot; &amp; objRS.Fields(&quot;Bildnummer1&quot;)&amp; &quot;&lt;/font&gt; &quot;
Response.Write &quot;&lt;BR&gt;&quot;
Response.Write &quot;&lt;/a&gt;&quot; &amp; objRS.Fields(&quot;Titeltext&quot;)&amp; &quot;&lt;/p&gt;&lt;hr&gt;&quot;
%&gt;
&lt;/td&gt;
&nbsp;
&lt;%
<span class="TOKEN">If</span> iCntCell = iMaxAnzCells OR iCntCell = iMaxImgSite <span class="TOKEN">Then</span>
Response.Write(&quot;&lt;/tr&gt;&quot;)
iCntCell = 0
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
&nbsp;
intCounter = intCounter + 1
objRS.MoveNext
<span class="TOKEN">Loop</span>
%&gt;
&lt;/table&gt;
&lt;/center&gt;
&lt;/div&gt;
&lt;/div&gt;</pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

War eine lange Nacht kann ich euch sagen.
Das ergebniss steht unter http://www.lupusdw.de/galerie/album.asp