<%Option Explicit const CurrentPageDef = "Live Feedbacks"%> <%dim nwd,nht nwd=400 nht=400 if GetRequest("nwd")<>"" then if isnumeric(GetRequest("nwd")) then nwd=GetRequest("nwd") end if end if if GetRequest("nht")<>"" then if isnumeric(GetRequest("nht")) then nht=GetRequest("nht") end if end if %>
<%dIM LiveFeedbacksRS if ExecQuery("SELECT * FROM FEEDBACK WHERE FLAG = 1000 ORDER BY ADDDATE DESC",LiveFeedbacksRS) = "RESULTS" then %> <%do while not LiveFeedbacksRS.EOF%> <%LiveFeedbacksRS.MoveNext loop%> <%end if%>
Testimonials / Feedbacks from our Investors
Posted By: <%=LiveFeedbacksRS("Name")%>
Posted From: <%=LiveFeedbacksRS("city")%>
Posted On: <%=formatdate(LiveFeedbacksRS("adddate"),".")%>
Message:

<%=Replace(LiveFeedbacksRS("feedback"),vbcrlf,"
")%>