i'm allways newbie

[Petri Keckman]

REBOL [
title: "do html art 1"
]

substr: func [string start length][
  copy/part at string start length
]
prez: func [
   number [number!]
   length [integer!]
][
  copy/part ( tail ( join "00000000" number ) )  ( negate ( max length ( length? ( to-string number ) ) ) )
]
lmrk: to-char 34
newline: to-char 10
html: make string! 10000
emit: func

Code:

[repend html code]
emit [ <font size='-5'> ]

hak: ["1031" "1051" "1052" "2162" "3161" "o331" "r112" "wb31" "wb32" "wb51" "wb52" ]
mal: ["lycra" "powernet" "fishnet" "glistenet"]

for i 1 11 1 [
for j 1 4 1 [
for k 1 4 1 [
kk: prez k 2
pkuva: join  join  join  join  join  join "http://www.alsbikinis.com/graphics/bikinis/" hak/(i) "/" hak/(i) mal/(j) kk "sm.jpg"
kuva:  join  join  join  join  join  join "http://www.alsbikinis.com/graphics/bikinis/" hak/(i) "/" hak/(i) mal/(j) kk ".jpg"

emit [ "<a href='" kuva "'><img src='" pkuva "'></a>" newline]

]
]

]

emit ["</font>"]

tied: to-file "_allsbikinmallitvoiluoja.html"
write tied html
browse tied
halt

[Petri Keckman]

ups, wrong code. this is correct:
---
REBOL [
title: "better art"
]

substr: func [string start length][
  copy/part at string start length
]
prez: func [
   number [number!]
   length [integer!]
][
  copy/part ( tail ( join "00000000" number ) )  ( negate ( max length ( length? ( to-string number ) ) ) )
]
lmrk: to-char 34
newline: to-char 10
html: make string! 10000
emit: func

Code:

[repend html code]
emit [ <font size='-5'> ]

hak: ["1031" "1051" "1052" "2162" "3161" "o331" "r112" "wb31" "wb32" "wb51" "wb52" ]
mal: ["lycra" "powernet" "fishnet" "glistenet"]

for i 1 11 1 [
for j 1 4 1 [
for k 1 4 1 [
kk: prez k 2
pkuva: join  join  join  join  join  join "http://www.alsbikinis.com/graphics/bikinis/" hak/(i) "/" hak/(i) mal/(j) kk "sm.jpg"
kuva:  join  join  join  join  join  join "http://www.alsbikinis.com/graphics/bikinis/" hak/(i) "/" hak/(i) mal/(j) kk ".jpg"

either exists? to-url pkuva [


] [

pkuva: join  join  join  join  join  join "http://www.alsbikinis.com/graphics/bikinis/" hak/(i) "/" hak/(i) mal/(j) kk "lg.jpg"
kuva:  join  join  join  join  join  join "http://www.alsbikinis.com/graphics/bikinis/" hak/(i) "/" hak/(i) mal/(j) kk ".jpg"

]

emit [ "<a href='" kuva "'><img src='" pkuva "'></a>" newline]

]
]

]

emit ["</font>"]

tied: to-file "_allsbikinmallitvoiluoja.html"
write tied html
browse tied
halt