i have problem in randomize...as i am very lousy on it... can someone teach me on it... please...i manage to extract the information and arrange it in the way i want... i have paste my code below...
please help me....
thanx
therapy
<%
Dim categoryname,modcat
categoryname = Request.QueryString("categoryname")
modcat = Request.QueryString("modcat")
Dim catArr(3),catID(3)
catArr(0) = "cases"
catArr(1) = "Memory Card"
catArr(2) = "Peripherals"
catArr(3) = "Multifunction Pens"
catID(0) = "1"
catID(1) = "2"
catID(2) = "3"
catID(3) = "5"
call openConn()
Dim strHTML 'holds HTML code to write to page
Dim q 'holds the " character
q = chr(34)
Dim catname, productslist
for j=0 to ubound(catArr)
q = chr(34)
set cmd = server.CreateObject("ADODB.Command")
cmd.ActiveConnection = dbc
' cmd.CommandText = "qryProdsCategory"
' cmd.CommandType = adCmdStoredProc
' set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)
' cmd.Parameters.Append(param)
' cmd("theCategory") = cInt(catID((j)))
' Set rs = cmd.Execute
sql = " Select products.*, products.ccategory, categories.catdescription " &_
" FROM categories INNER JOIN products ON categories.categoryID=products.ccategory " &_
" WHERE products.ccategory= " & cInt(catID((j)))
sql = sql & " ORDER BY products.stockquantity DESC, products.preorder ASC "
set rs = server.CreateObject("ADODB.Recordset")
rs.Open sql, dbc, adOpenStatic,adLockReadOnly,adCmdText
' rs.Sort="stockquantity DESC, preorder DESC"
'count number of products in each category
sql = "Select count(preOrder) as cnt FROM products WHERE ccategory="&cInt(j+1)&" and mainproduct='Yes'"
Set rscnt= Server.CreateObject ("ADODB.Recordset")
rscnt.Open sql, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText
prod = rscnt("cnt")
set rscnt = nothing
%>
please help me....
thanx
therapy
<%
Dim categoryname,modcat
categoryname = Request.QueryString("categoryname")
modcat = Request.QueryString("modcat")
Dim catArr(3),catID(3)
catArr(0) = "cases"
catArr(1) = "Memory Card"
catArr(2) = "Peripherals"
catArr(3) = "Multifunction Pens"
catID(0) = "1"
catID(1) = "2"
catID(2) = "3"
catID(3) = "5"
call openConn()
Dim strHTML 'holds HTML code to write to page
Dim q 'holds the " character
q = chr(34)
Dim catname, productslist
for j=0 to ubound(catArr)
q = chr(34)
set cmd = server.CreateObject("ADODB.Command")
cmd.ActiveConnection = dbc
' cmd.CommandText = "qryProdsCategory"
' cmd.CommandType = adCmdStoredProc
' set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)
' cmd.Parameters.Append(param)
' cmd("theCategory") = cInt(catID((j)))
' Set rs = cmd.Execute
sql = " Select products.*, products.ccategory, categories.catdescription " &_
" FROM categories INNER JOIN products ON categories.categoryID=products.ccategory " &_
" WHERE products.ccategory= " & cInt(catID((j)))
sql = sql & " ORDER BY products.stockquantity DESC, products.preorder ASC "
set rs = server.CreateObject("ADODB.Recordset")
rs.Open sql, dbc, adOpenStatic,adLockReadOnly,adCmdText
' rs.Sort="stockquantity DESC, preorder DESC"
'count number of products in each category
sql = "Select count(preOrder) as cnt FROM products WHERE ccategory="&cInt(j+1)&" and mainproduct='Yes'"
Set rscnt= Server.CreateObject ("ADODB.Recordset")
rscnt.Open sql, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText
prod = rscnt("cnt")
set rscnt = nothing
%>