'diverse kopplingar till databasen...
strSQL = "Select kategori from tabell WHERE kategori = 2"
Set objRS = conObj.Execute(strSQL)
If objRS.EOF Then
Response.Write "Det finns inga kategorier"
Else
arrKategorier = objRS.GetRows()
Randomize
Response.Write arrKategorier(0,Round(Rnd*Ubound(arrKategorier,2)))
End If