random database result return asp

[fran7]

Hi, Anyone know how to adjust this so that the results appear in a random order? is it in the "Order By PostCardID DESC" part?

..asp
 
<!--#Include File="art/dbconnect.asp"-->
<%
 
 
lngCategoryID=CLng(Request("CategoryID"))
If lngCategoryID <> "" And lngCategoryID <> 0 Then
 
    Set connPostCardSoft=Server.CreateObject("ADODB.Connection") 
    connPostCardSoft.Open PostCardSoftConnectString
    Set rsCard=Server.CreateObject("ADODB.Recordset")
    rsCard.CursorLocation = 3
    SQLQuery="Select PostCardID,DefaultHeadline,CardDescription,DefaultMessage,Author,ThumbnailURL,AdvancedCard,ThumbnailHTML From tblGreetingPostCards Where CategoryID=" & Clng(lngCategoryID) & " Order By PostCardID DESC"
    rsCard.Open SQLQuery, connPostCardSoft
       rsCard.PageSize = 200
       intPageCount = rsCard.PageCount
 
    If rsCard.EOF=True Then
        Response.Write "<p>No cards found in database for this category."
        Response.End
    End If
End If
 
'search feature
If Request("SearchWord") <> "" Then
    strWd=Replace(Request("SearchWord"),"'","''")
    strSQL="Select PostCardID,DefaultHeadline,CardDescription,DefaultMessage,Author, "
    strSQL=strSQL & " ThumbnailURL,AdvancedCard,ThumbnailHTML From tblGreetingPostCards Where Keywords Like '%" & strWD & "%' OR "
    strSQL=strSQL & " DefaultHeadline Like '%" & strWD & "%' OR "
    strSQL=strSQL & " CardDescription Like '%" & strWD & "%' OR "
    strSQL=strSQL & " Author Like '%" & strWD & "%' OR "
    strSQL=strSQL & " DefaultMessage Like '%" & strWD & "%' "
 
    Set connPostCardSoft=Server.CreateObject("ADODB.Connection") 
    connPostCardSoft.Open PostCardSoftConnectString
    Set rsCard=Server.CreateObject("ADODB.Recordset")
    rsCard.CursorLocation = 3
    rsCard.Open strSQL, connPostCardSoft
       rsCard.PageSize = 200
       intPageCount = rsCard.PageCount
End If
 
strAddition="bgcolor=" & Chr(34) & Application("gcp_SearchPageBackgroundColor") & Chr(34)
strCategoryBarFontColor=Application("gcp_SearchPageFontBarColor")
strCategoryBarColor=Application("gcp_SearchPageBarColor")
 
'Retrieve Category Name
If lngCategoryID <> "" and lngCategoryID <> 0 Then
    Set rsCat=connPostCardSoft.Execute("Select * From tblGreetingCategories Where CategoryID=" & Clng(lngCategoryID))
    strCat="" & rsCat("CategoryName")
 
    If rsCat("CategoryBackgroundImage")<> "" Then
        strAddition="background=" & Chr(34) & rsCat("CategoryBackgroundImage") & Chr(34)
    End If
    If rsCat("CategoryBackgroundColor")<>"" Then
        strAddition="bgcolor=" & Chr(34) & rsCat("CategoryBackgroundColor") & Chr(34)
    End If
    strCategoryBarFontColor=rsCat("CategoryBarFontColor")
    strCategoryBarColor=rsCat("CategoryBarColor")
    FontName=rsCat("FontName")
    FontColor=rsCat("FontColor")
Else
    strCat="Search results for:" & strWD
    FontName=Application("gcp_FontName")
    FontColor=Application("gcp_FontColor")
End If
 
 
   Select Case Request("Action")
           case "  <<  "
                   intpage = 1
           case "  <  "
                   intpage = Request("intpage")-1
                   if intpage < 1 then intpage = 1
           case "  >  "
                   intpage = Request("intpage")+1
                   if intpage > intPageCount then intpage = IntPageCount
           Case "  >>  "
                   intpage = intPageCount
           case else
                   intpage = 1
                   If Request.QueryString("intpage") <> "" Then
                       intpage=Request.QueryString("intpage")
                   End If
   end select
 
 
 
%>
 
 
 

.. asp


Thanks
Richard

[jhardman]

I don't think sql can be done random. You could try putting all the results in a set of arrays, and then accessing them randomly... Let me know if this helps.

Jared

[fran7]

Thanks for replying,
The answer I found was that this works. Changing this string

..code asp
 
    SQLQuery="Select PostCardID,DefaultHeadline,CardDescription,DefaultMessage,Author,ThumbnailURL,AdvancedCard,ThumbnailHTML,Rnd([PostCardID]) From tblGreetingPostCards Where CategoryID=" & Clng(lngCategoryID) & " Order By Rnd([PostCardID])"
 
 

..code asp

Thanks
Richard

[jhardman]

Thanks for replying,
The answer I found was that this works. Changing this string

..code asp
 
    SQLQuery="Select PostCardID,DefaultHeadline,CardDescription,DefaultMessage,Author,ThumbnailURL,AdvancedCard,ThumbnailHTML,Rnd([PostCardID]) From tblGreetingPostCards Where CategoryID=" & Clng(lngCategoryID) & " Order By Rnd([PostCardID])"
 
 

..code asp

Thanks
Richard

thanks for posting your solution! It looks like I have more to learn.

Jared