Jag har en tabell som har två kolumner. Tabellen heter postnummer. Den första kolumnen heter pnr_nr och innehåller alla sveriges postnummer. Den andra heter pnr_ot och innehåller orten till varje postnummer.
Alla postnummer går inte i nummerföld. Jag skulle därför vilja "bunta" ihop de postnummer som går i nummerföljd och skriva ut dem i två separata celler i en tabell från och till.
Jag vill alltså att resultatet ska hoppa över de postnummer som inte finns i nummerföljden.
ex. 10005 - 10007
10021 - 10140
10500 - 10520
osv....
Snälla kan nån ge mig ett exempel på hur en sån kod skulle kunna se ut?? :birp
dim q,rs,p_p,p_end
q = "select pnr_nr from postnummer order by pnr_nr"
set rs = connect.execute(q)
p_p = 0
p_end = 0
while not rs.eof
if clng(rs("pnr_nr") - p_p > 1 then
if p_p > 0 then
if p_end = p_p then
'bara 1 postnummer i denna svit
response.write p_p & "<br>"
else
response.write p_p & "-" & p_end & "<br>"
end if
end if
p_p = clng(rs("pnr_nr"))
end if
p_end = clng(rs("pnr_nr"))
rs.movenext
wend
'skriv ut det sista
if p_end = p_p then
response.write p_p & "<br>"
else
response.write p_p & "-" & p_end & "<br>"
end if
dim q,rs,p_p,p_end
q = "select pnr_nr from postnummer order by pnr_nr"
set rs = connect.execute(q)
p_p = 0
p_end = 0
while not rs.eof
if clng(rs("pnr_nr")) - [b]p_end[/b] > 1 then
if p_p > 0 then
if p_end = p_p then
'bara 1 postnummer i denna svit
response.write p_p & "<br>"
else
response.write p_p & "-" & p_end & "<br>"
end if
end if
p_p = clng(rs("pnr_nr"))
end if
p_end = clng(rs("pnr_nr"))
rs.movenext
wend
'skriv ut det sista
if p_end = p_p then
response.write p_p & "<br>"
else
response.write p_p & "-" & p_end & "<br>"
end if
