Øhh

Hvad med at skrive en lidt mere sigende overskrift...

Det er da klart, for du assigner et random tal til en variabel som du så skriver ud 7 gange.

Prøv istedet:
<%
UpperBound = 36
LowerBound = 1
Randomize
for i = 1 to 7
RandomNumber = Int(Rnd * UpperBound) + LowerBound
response.write(RandomNumber & "<br><br>")
next
%>

har du tid så prøv lige:

for i = 1 to 7
  Randomize
  RandomNumber = Int(Rnd * UpperBound) + LowerBound
  response.write(RandomNumber & "<br><br>")
next

colau: Hvad er forskellen på din og rou's ??

Hvordan sætter jeg en tabel omkring, som skiftevis er grå og hvid??

<%
Max = 36
Min = 1
Randomize
for i = 1 to 7
RandomNumber = Int(Rnd * Max) + Min
      response.write("<tr>" & RandomNumber & "</tr><br><br>")
next
%>

Rou's er bedst. At randomize kaldes flere gange er ikke hensigtsmæssigt - men ændre heller ikke noget. Den initialisere randomize-generatoren og det er ikke nødvendigt mere end en gang. (Hvorfor jeg fik den med skyldes en "cut and paste" fejl:-)

Skift farve mellem sort og hvid.

<%
Color = "#000000" ' Angiv startfarve
Max = 36
Min = 1
Randomize
for i = 1 to 7
  RandomNumber = Int(Rnd * Max) + Min
  response.write("<tr>" & RandomNumber & "</tr><br><br>")
  if Color = "#000000" then
    Color = "#000000"
  else
    Color = "#FFFFFF"
  end if
next
%>
Husk at bruge farven i response.Write .

okey! 
Ved du hvordan jeg sætter en tabel omkring, som skiftevis er grå og hvid??

Det jo hele 3 ting og endda under kategori HTML.

<%
Color = "#000000" ' Angiv startfarve
Max = 36
Min = 1
Randomize
Response.Write("<tabel width='100'>") ' Width skal måske ændres
for i = 1 to 7
  RandomNumber = Int(Rnd * Max) + Min
  response.write("<tr><td><font bgcolor=" & Color & ">" & RandomNumber & "</font></td></tr>")
  if Color = "#000000" then
    Color = "#000000"
  else
    Color = "#FFFFFF"
  end if
next
Response.Write("</tabel>")
%>

Den nemmeste måde at lave HTML-koden er at anvede FrontPage Express eller lign. Til at lave små eksempler og aflæse HTML-koden, hvorefter man flytter det over i ASP-koden.

ok tak for det!

Jeg har lige prøvet scriptet af, og der kommer ikke nogle tabeller med farve på - hvorfor det ??

Jeg har ikke testet det - men det gør jeg lige når jeg har spist. :-0 <-- Mam

Ok det er helt i orden, god appetit!!

jeg fandt lige ud af at table var stavet forkert, men jeg kan stadig ikke få noget farve i tabellerne!

<%
Color = "#CCCCCC" ' Angiv startfarve
Max = 36
Min = 1
Randomize
Response.Write("<table width='100' border='1' ")
for i = 1 to 7
  RandomNumber = Int(Rnd * Max) + Min
  response.write("<tr><td><font bgcolor=" & Color & ">" & RandomNumber & "</font></td></tr>")
  if Color = "#EEEEEE" then
    Color = "#EEEEEE"
  else
    Color = "#CCCCCC"
  end if
next
Response.Write("</table>")
%>

Kan du ikke få det til at du?? Jeg har prøvet uden held!

PS. du skal nok få lige point for det!

Jeg har den: (Det hjalp da du sagde at tabel var stavet forkert.)

<%
Color = "#EEEEEE" ' Angiv startfarve
Max = 36
Min = 1
Randomize
Response.Write("<table width='100'>") ' Width skal måske ændres
for i = 1 to 7
  RandomNumber = Int(Rnd * Max) + Min
  response.write("<tr><td bgcolor='" & Color & "'>" & RandomNumber & "</td></tr>" & vbCrLf)
  if Color = "#EEEEEE" then
    Color = "#FFFFFF"
  else
    Color = "#EEEEEE"
  end if
next
Response.Write("</tabel>")
%>