<!--#include file="config.asp"-->

<% Dim IDS_RQ, arrIDS_RQ, intRV, QUOTE, SQL_RQ, RS_RQ, LowestNumber, HighestNumber

	Call OPEN_DB()
	SQL_RQ = "SELECT ID FROM TABLE_Q WHERE fldACTIVE = 1"
	Set RS_RQ = MyConn_RQ.Execute(SQL_RQ)
		 WHILE NOT RS_RQ.EOF
			IDS_RQ = IDS_RQ & Trim(RS_RQ("ID")) & ","
		    RS_RQ.MoveNext
		 WEND
	RS_RQ.Close
	Set RS_RQ = Nothing
	
    arrIDS_RQ = Split(IDS_RQ,",")
    IF NOT Ubound(arrIDS_RQ) = -1 Then
    Randomize()
    LowestNumber = Lbound(arrIDS_RQ)
    HighestNumber = Ubound(arrIDS_RQ) - 1
    intRV = Int((HighestNumber-LowestNumber+1)*Rnd+LowestNumber)		
    
    IF intRV > HighestNumber Then intRV = intRV - 1
        SQL_RQ = "SELECT fldMEMO FROM TABLE_Q WHERE ID = " & arrIDS_RQ(intRV)
        Set RS_RQ = MyConn_RQ.Execute(SQL_RQ)
        IF NOT RS_RQ.EOF THEN
         	QUOTE = trim(RS_RQ("fldMEMO"))
        END IF
        RS_RQ.Close
        Set RS_RQ = Nothing
    ELSE
        QUOTE = ""	
    END IF

	MyConn_RQ.Close
	Set MyConn_RQ = Nothing
%>

	<table class="tblQUOTE"><tr class="trQUOTE"><td class="tdQUOTE">
		<%=Replace(QUOTE,vbcrlf,"<br />")%>
	</td></tr></table>
<!--Random Quote VeRS_RQion 2.5, Copyright � 2005 Expinion.net, http://www.expinion.net/-->
<!--DEVELOPED BY EXPINION.NET, RELEASED UNDER GPL, NOT FOR SALE http://www.expinion.net/-->