---

Hej,

Jeg har flg., som hiver noget ud af en database:

do while not RS.eof
response.write "<tr>" & vbcrlf
response.write "<td>" & rs("varenummer") & "</td>" & vbcrlf
response.write "<td>" & rs("navn") & "</td>" & vbcrlf
response.write "<td align=right>" & rs("pris") & "</td>" &
vbcrlf
response.write "</tr>"
RS.movenext
loop

Hvordan gør jeg, hvis jeg gerne vil have indsat en ekstra linje html, når
"varenummer" går ind i et nyt tusinde? Eks. 1001 1111 1400 HER 2300 2500

Venlig hilsen, Rasmus Nielsen.

---

Rasmus Nielsen wrote:
[groft redigeret af Lauritz]
>
> Hvordan gør jeg, hvis jeg gerne vil have indsat en ekstra linje html, når
> "varenummer" går ind i et nyt tusinde? Eks. 1001 1111 1400 HER 2300 2500
>

varegruppe_old = "Noget, der aldrig forekommer, f.eks. -1"

> do while not RS.eof

varegruppe = CLng(Int(rs("varenummer")/1000))
If Not (varegruppe_old = varegruppe) Then
varegruppe_old = varegruppe
Response.Write "<tr><td colspan=3>Jihaa! Ny varegruppe!</td></tr>"
End If

> response.write "<tr>" & vbcrlf
> response.write "<td>" & rs("varenummer") & "</td>" & vbcrlf
> response.write "<td>" & rs("navn") & "</td>" & vbcrlf
> response.write "<td align=right>" & rs("pris") & "</td>" & vbcrlf
> response.write "</tr>"
> RS.movenext
> loop

--
Lauritz

---

> varegruppe_old = "Noget, der aldrig forekommer, f.eks. -1"
>
> > do while not RS.eof
>
> varegruppe = CLng(Int(rs("varenummer")/1000))
> If Not (varegruppe_old = varegruppe) Then
> varegruppe_old = varegruppe
> Response.Write "<tr><td colspan=3>Jihaa! Ny varegruppe!</td></tr>"
> End If

Ikke forstået. Hvordan ser den at man skifter 1000?

Venlig hilsen, Rasmus Nielsen.

---

Rasmus Nielsen wrote:
>
> > varegruppe_old = "Noget, der aldrig forekommer, f.eks. -1"
> >
> > > do while not RS.eof
> >
> > varegruppe = CLng(Int(rs("varenummer")/1000))
> > If Not (varegruppe_old = varegruppe) Then
> > varegruppe_old = varegruppe
> > Response.Write "<tr><td colspan=3>Jihaa! Ny varegruppe!</td></tr>"
> > End If
>
> Ikke forstået. Hvordan ser den at man skifter 1000?

Den gemmer det gamle "antal tusinder" i variablen "varegruppe_old" (jeg
gættede på at det med tusinderne havde noget med varegrupper at gøre).
Når den kommer til en vare, trækker den "varegruppen" (altså antal
tusinder) ud af varenummeret og hvis det har ændret sig, opdateres
"varegruppe_old" og der udskrives noget.
Stadig helt i skoven?

--
Lauritz

---

> Stadig helt i skoven?

Nu kan jeg se ideen! Jeg har testet scriptet, men det funger ikke. Jeg har
flg.:

do while not RS.eof
response.write "<tr>" & vbcrlf
response.write "<td>" & rs("varenummer") & "</td>" & vbcrlf
response.write "<td>" & rs("varenavn") & "</td>" & vbcrlf
response.write "<td align=right>" & rs("pris") & "</td>" &
vbcrlf
response.write "</tr>"
If Not (varegruppe_old = varegruppe) Then
varegruppe_old = varegruppe
Response.Write "<tr><td colspan=3><hr></td></tr>"
End If
RS.movenext
loop

og flg. længere oppe på siden:

varegruppe_old = "-1"
varegruppe = CLng(Int(rs("varenummer")/1000))

Det der sker er, at der kun kommer en streg efter det første produkt. (det
næste er inden for samme tusindtal)

Venlig hilsen, Rasmus Nielsen.

---

Den her...
> varegruppe = CLng(Int(rs("varenummer")/1000))
.... skal med ind i loop'et (lige før if-sætningen, som i min første
post) ellers bliver den ikke opdateret med varegruppen for den aktuelle
vare. Derudover skal if-sætningen op, oven over udskrivningen af varen
(som i min første post)

--
Lauritz

---

> Den her...
> > varegruppe = CLng(Int(rs("varenummer")/1000))
> ... skal med ind i loop'et (lige før if-sætningen, som i min første
> post) ellers bliver den ikke opdateret med varegruppen for den aktuelle
> vare. Derudover skal if-sætningen op, oven over udskrivningen af varen
> (som i min første post)

Jeg takker meget for dit arbejde med scriptet - det virker perfekt...

Venlig hilsen, Rasmus Nielsen.