<%@LANGUAGE="VBSCRIPT"%> <%option explicit%> FEROZE'S Real Estate Advisory :: Contact Us
   
  HOME SWEET HOME   CORPORATE OFFICES SPACE   LOVE @ FIRST SITE  
 
HeadOffice Feedback  
<%Dim strSQL,rsGetContctUs Set rsGetContctUs=Server.CreateObject("ADODB.RecordSet") strSQL="SELECT * FROM tblContactUs WHERE cu_headoffice <> 'yes'" rsGetContctUs.Open strSQL,objConn,3,3 If Not rsGetContctUs.EOF Then Dim intCount intCount=1 While Not rsGetContctUs.EOF %> <%If rsGetContctUs("cu_phone")<>"" Then%> <%End If%> <%If rsGetContctUs("cu_fax")<>"" Then%> <%End If%> <% intCount=intCount+1 rsGetContctUs.MoveNext Wend End If 'End of EOF check statement %>
  <%If rsGetContctUs("cu_location")<>"" Then%><%=Replace(Trim(rsGetContctUs("cu_location")),"`","'")%><%End If%>
  <%If rsGetContctUs("cu_address")<>"" Then%><%=Replace(Trim(rsGetContctUs("cu_address")),"`","'")%><%End If%>
   
  P:<%=Trim(rsGetContctUs("cu_phone"))%>
  F:<%=Trim(rsGetContctUs("cu_fax"))%>
   
  " class="normaltextboldblue"><%=Trim(rsGetContctUs("cu_email"))%>