Tilfældigt "citat"

hej

måske sådan her:

<%

Randomize

dim arrHilsen(5)

arrHilsen(0) = "udsagn 1"
arrHilsen(1) = "Hej"
arrHilsen(2) = "udsagt 2"
arrHilsen(3) = "hep hey"
arrHilsen(4) = "udsagn 3"
arrHilsen(5) = "hallo"

hilsen = Int(5*Rnd)+1

Response.Write arrHilsen(hilsen)

%>

/hiks

de + 1 bør nok ikke være der, uppssss :o)

hilsen = Int(5*Rnd)

/hiks

arrhilsen(5) - hvorfor skriver du dette ? Der er 6 udsagn som jeg ser det .. er det en fejl eller er der en grund til dette er et tal under

5*rnd - skal dette ændres hvis jeg nu vil lave 20 udsagn i stedet ?

Som du selv er inde på, skal der stå 6. Men jeg mener faktisk ikke, at ASP/VB behøves en bestemt længde på sine arrays, modsat andre sprog, fx C++.

ja den vil skulle ændres - grunden er hvis du ligger 1 til så får du aldrig det første udsagn. Du kan lave det sådan i stedet:


<%
dim arrHilsen(5) '5 angiver størrelse på array - her plads til 6 startende fra 0

arrHilsen(0) = "udsagn 1"
arrHilsen(1) = "Hej"
arrHilsen(2) = "udsagt 2"
arrHilsen(3) = "hep hey"
arrHilsen(4) = "udsagn 3"
arrHilsen(5) = "hallo"

hilsen = Int(Ubound(arrHilsen)*Rnd)'Ubound(arrHilsen) giver antallet af pladser i array

Response.Write arrHilsen(hilsen)

%>

/hiks

Fra MSDN:

Dim MyVariable
Dim MyArray(3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"

jeg takker jer alle for hjælpen ...