<% sSQL = "SELECT ID, AccommName, AccommBlurb, AccommDesc, AccommImg FROM tblSpecials ORDER BY AccommName" set rs = dataconn.execute(sSQL) if not rs.eof then ds_Order = rs.GetRows iOrderRows = uBound(ds_Order,2) iOrderRec = 1 rs.close end if %> Y-Africa Safaris
SPECIALS
 
<% if iOrderRec = 1 then for p = 0 to iOrderRows %> <% if isnull(trim(ds_Order(4,p))) or trim(trim(ds_Order(4,p))) = "" then %> <% else %> <% end if %>
 
<%=trim(ds_Order(1,p))%>
<%=trim(ds_Order(2,p))%>  read more
 
<% next end if %>
Copyright © 2009 l Y-Africa Safaris