% 'Function LoadImg(FixImg) ' dim Src ' if FixImg="" then ' Randomize ' Src="images/img" & int(3*Rnd)+1 & ".jpg" ' else ' Src="images/img" & FixImg & ".jpg" ' end if ' LoadImg=Src 'End Function %>