news
-
<%
Function InArray(haystack,needle)
Dim length,i
length = Ubound(haystack)
For i=0 To length
If haystack(i)=needle Then
InArray=True
Exit Function
End If
Next
InArray=False
End Function
Dim strTemp(),temp,i,n
n=10
Redim strTemp(n)
strTemp(0) = id+1
For i=1 To n
Randomize
temp = Int(s*Rnd)+1
While InArray(strTemp,temp)=True
temp = Int(s*Rnd)+1
Wend
strTemp(i) = temp
If i<>1 Then Response.Write ""
Response.Write "
- "&Replace(Replace(keyitems(temp-1),Chr(13),""),Chr(10),"")&" " Next %>