[aspdecoffeehouse] RE: Bestimmte Zahlen in einer Schleife

Martin Hï¿½ber Tue, 16 Jul 2002 13:20:56 -0700

naja, eig. schon... :-) ... nee... hast ja recht... ich poste einfach mal nen teil des codes... :-)

Nur um es mal kurz zu erklï¿½ren... ich lese die Anzahl der Kategorien aus und speicher die Werte in 2 Spalten. In der unteren Schleife will ich dann die erste Hï¿½lfte der Kategorien in einer Spalte ausgeben und danach in der 2ten Spalte den Rest. Das Problem ist nur, dass er bei 3,7,11 oder 15 etc. Kategorien die tmp = checker abfrage nicht richtig setzt... :-(

Wï¿½rde mich freuen, wenn mir jemand nen Rat geben kï¿½nnte...

bye Martin (Sorry fï¿½r das HTML, aber nur so gehts ordentlich darzustellen...)

### CODE ANFANG ###

IF RS(0) mod 2 = 0 THEN
    spalte1 = RS(0) / 2
    spalte2 = RS(0) / 2
ELSE
    spalte1 = ROUND(RS(0)/2)+1
    spalte2 = RS(0) - spalte1
END IF

IF RS(0) = "3" OR RS(0) = "7" OR RS(0) = "11" OR RS(0) = "15" THEN
checker = spalte1-1
ELSE
checker = spalte1
END IF

Response.Write "<table width=""" & (CInt(TabSp1) + CInt(TabSp2)) & """ border=""" & TabBO & """ cellspacing=""" & TabCS & """ cellpadding=""" & TabCP & """>" & CHR(13)

Response.Write "<tr>" & CHR(13)
Response.Write " <td valign=""top"" width=""" & TabSp1 & """>"

WHILE NOT RS.EOF
IF tmp <= spalte1 THEN
    Response.Write "<p>" & PicKat & " <a href=""default.asp?kat=" & RS("kat_id") & """ class=""" & CSSKatM & """>" & RS("kat_name") & "</a><br>" & KatHgt
    SET RSs = CONN.Execute(sql1)
    WHILE NOT RSs.EOF
        Response.Write "<a href=""browse.asp?kat=" & RSs("kat_id") & """ class=""" & CSSKatS & """>" & RSs("kat_name") & "</a> "
    RSs.MoveNext : WEND : RSs.Close
    Response.Write "</p>"
    tmp = tmp + 1

    IF tmp = checker THEN
        Response.Write "</td>" & CHR(13)
        Response.Write " <td valign=""top"" width=""" & TabSp2 & """>"
    END IF
ELSE
    Response.Write "<p>" & PicKat & " <a href=""default.asp?kat=" & RS("kat_id") & """ class=""" & CSSKatM & """>" & RS("kat_name") & "</a><br>" & KatHgt
    SET RSs = CONN.Execute(sql1)
    WHILE NOT RSs.EOF
        Response.Write "<a href=""browse.asp?kat=" & RSs("kat_id") & """ class=""" & CSSKatS & """>" & RSs("kat_name") & "</a> "
    RSs.MoveNext : WEND : RSs.Close
    Response.Write "</p>"
    tmp = tmp + 1
END IF
RS.MoveNext : WEND : RS.Close

Response.Write " </td>" & CHR(13)
Response.Write "</tr>" & CHR(13)
Response.Write "</table>"

### CODE ENDE ###

----- Original Message -----

From: "Claudius Ceteras" <[EMAIL PROTECTED]>

To: "AspGerman Kaffeehaus" <[EMAIL PROTECTED]>

Sent: Tuesday, July 16, 2002 9:23 PM

Subject: [aspdecoffeehouse] RE: Bestimmte Zahlen in einer Schleife

Haha... Du erwartest nicht wirklich eine Antwort auf diese wage Frage -
oder? ;-)
Sieht Deine Schleife vielleicht so aus?

For I = 1 to x
if (i+1) mod 4 =0 then
machWasKomisches()
else
machWasNormales()
end if
next

Claudius

> -----Original Message-----
> From: Martin Hï¿½ber [mailto:[EMAIL PROTECTED]]
> Sent: Dienstag, 16. Juli 2002 21:07
> To: AspGerman Kaffeehaus
> Subject: [aspdecoffeehouse] Bestimmte Zahlen in einer Schleife
>
>
> N'abend...
>
> ich habe eine Schleife, die bei bestimmten Zahlen komische Phenomï¿½ne
> darstellt.
>
> Die Zahlen sind 3,7,11,15,19 etc... immer im 4er Rhythmus...
> ist an diesen
> Zahlen irgendwas besonderes???
>
> ein ziemlich ratloser
> Martin... :-/
>
>
> | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
> | Sie kï¿½nnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee
house.asp

| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie kï¿½nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie kï¿½nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp

[aspdecoffeehouse] RE: Bestimmte Zahlen in einer Schleife

Antwort per Email an