help on random from database only...

sorry guys!!! me just manage to change something to my code... so please help me on the randomize part... i am not good on randomize... whenever i clicked on refresh all my item seem to change place... sorry thanz... <br>my code<br><br><%<br>Dim categoryname,modcat<br>categoryname = Request.QueryString("categoryname")<br>modcat = Request.QueryString("modcat")<br><br><br>Dim catArr(3),catID(3)<br>catArr(0) = "cases"<br>catArr(1) = "Memory Card"<br>catArr(2) = "Peripherals"<br>catArr(3) = "Multifunction Pens"<br><br>catID(0) = "1"<br>catID(1) = "2"<br>catID(2) = "3"<br>catID(3) = "5"<br><br> call openConn()<br> Dim strHTML 'holds HTML code to write to page<br> Dim q 'holds the " character<br> q = chr(34)<br> <br><br>Dim catname, productslist<br><br> for j=0 to ubound(catArr) <br> q = chr(34)<br> set cmd = server.CreateObject("ADODB.Command")<br> cmd.ActiveConnection = dbc<br>' cmd.CommandText = "qryProdsCategory"<br>' cmd.CommandType = adCmdStoredProc<br>' set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)<br>' cmd.Parameters.Append(param)<br>' cmd("theCategory") = cInt(catID((j)))<br>' Set rs = cmd.Execute<br><br> sql = " Select products.*, products.ccategory, categories.catdescription " &_<br> " FROM categories INNER JOIN products ON categories.categoryID=products.ccategory " &_<br> " WHERE products.ccategory= " & cInt(catID((j)))<br> sql = sql & " ORDER BY products.stockquantity DESC, products.preorder ASC "<br> set rs = server.CreateObject("ADODB.Recordset")<br> rs.Open sql, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText <br>next<br>' rs.Sort="stockquantity DESC, preorder DESC"<br><br> 'count number of products in each category<br> sql = "Select count(preOrder) as cnt FROM products WHERE ccategory="&cInt(j+1)&" and mainproduct='Yes'" <br> Set rscnt= Server.CreateObject ("ADODB.Recordset")<br> rscnt.Open sql, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText <br> prod = rscnt("cnt")<br> set rscnt = nothing<br><br><br>%>