Luinrandir Hernson wrote:
: srand;
: $A = int (rand (4))
: if ($A eq '0') {print "<BODY BACKGROUND=\"images/celtknt0.jpg\">\n"};
: if ($A eq '1') {print "<BODY BACKGROUND=\"images/celtknt1.jpg\">\n"};
: if ($A eq '2') {print "<BODY BACKGROUND=\"images/celtknt2.jpg\">\n"};
: if ($A eq '3') {print "<BODY BACKGROUND=\"images/celtknt3.jpg\">\n"};       

Need a semicolon after the second line. When I add that, it works fine for me.

-- tdk

Reply via email to