i am working with a children website i wanted text to appear as different color and size for each word in it. but i have all the same values for entire output and different for each page load.

<%
words="The quick brown fox jumps over the lazy dog"
Dim imgArr, LNum, HNum, RNum,fsArr,fln,fhn,FNum,colorTimer
imgArr = array("#FF0000","#009800","#0000FF","#656666", "#636500", "#9933FF", "#BB00B3", "#066775", "#000000", 

"#FF6700")
fsArr = array("9","10","11","12")
  Randomize
  LNum = 0
  HNum = 9
  fhl=0
  fhn=3
  RNum = INT((HNum - LNum + 1) * Rnd + LNum)
  FNum = INT((fhn - fln + 1) * Rnd + fln)

clr= imgArr(RNum)
fs=fsArr(FNum)

words=replace(words," ","</font> <font face='arial, helvetica' style='font-size: "+fs+"pt' color='"+clr+"'>" & 

vbcrlf)

response.write (words)

%>

Output:

The</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
quick</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
brown</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
fox</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
jumps</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
over</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
the</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
lazy</font> <font face='arial, helvetica' style='font-size: 11pt' color='#FF0000'>
dog

This looks like only part of the code?

Try using Randomize Timer instead of just Randomize. I don't remember how it works in the framework you're using ... if you don't supply a seed, it might default to a constant. Using the timer - specifically, the number of ticks since midnight - means each time the code is run, you'll get a different stream of random numbers.

You can use LBound and UBound for the lower and upper bounds of an array, instead of having to count and hard code the values.

I'm a little confused whether the code you wrote is part of a loop, or if you're running it once? Getting the same results for the color and size every time within the same run looks like something is wrong.

Even from within code, you might be better off using css? If the font face doesn't change, you can assign that once, in a container of some kind. Then you can pick a class name at random, or even two of them, to control the appearance.

Actually, the Randomize in this case is fine. That's exactly what you're supposed to do to get a random number.

The problem, in this case, is that it's only being called once...period.

You want to do something like this:

Words = Split (Words, " ") ' This splits your sentence up into the individual words.
Words_Count = UBound (Words)
for i = 0 to Words_Count
'  This is where you put all your random number generating stuff.  Since it's inside a loop, it will be executed once for each word in the sentence.
Next
' I'll leave the rest up to you for output.  This should get you started.

Thanks Adam you saved my day.
Just in case someone needs it right code is.

<%
words="The quick brown fox jumps over the lazy dog."
Words = Split (Words, " ") ' This splits your sentence up into the individual words.
Words_Count = UBound (Words)
for i = 0 to Words_Count
Dim clrArr, LNum, HNum, RNum,fsArr,fln,fhn,FNum,colorTimer
clrArr = array("#FF0000","#009800","#0000FF","#656666", "#636500", "#9933FF", "#BB00B3", "#066775", "#000000", 
"#FF6700")
fsArr = array("8","9","10","11","12","13")
  Randomize
  LNum = 0
  HNum = 9
  fhl=0
  fhn=5
  RNum = INT((HNum - LNum + 1) * Rnd + LNum)
  FNum = INT((fhn - fln + 1) * Rnd + fln)
clr= clrArr(RNum)
fs=fsArr(FNum)
words(i)="ƒ" & words(i) & "ô"
words(i)=replace(words(i),"ƒ","<font face='arial, helvetica' style='font-size: "+fs+"pt' color='"+clr+"'>")
words(i)=replace(words(i),"ô","</font> " & vbcrlf)
response.write (words(i))
Next
%>