<% skrivyear = Year(Date())
Response.Write "" & skrivyear
skrivMonth = Month(Date())
Response.Write "-" & skrivMonth
skrivDay = Day(Date())
Response.Write "-" & skrivDay
Randomize()

Dim theArray(9)
Dim o
Dim u
Dim asGen
Dim intRange
Dim intStart

intRange = 9
intStart = 1

For o = 0 To 4
Do
asGen = False
theArray(o) = intStart + Int(Rnd * intRange)
For u = 1 To o - 1
If theArray(o) = theArray(u) Then
asGen = True
Exit For
End If
Next
Loop While (asGen = True)
Response.Write theArray(u)
Next
%>