<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<%
Dim rsGetServices,strSQL,strAddress,strEmail,strPhone,strFax
Set rsGetServices=Server.CreateObject("ADODB.RecordSet")
strSQL="SELECT * FROM tblContactUs WHERE cu_headoffice='yes'"
rsGetServices.Open strSQL,objConn,3,3
If Not rsGetServices.EOF Then
If rsGetServices("cu_address")<>"" Then
strAddress=Replace(Trim(rsGetServices("cu_address")),"`","'")
End If
If rsGetServices("cu_email")<>"" Then
strEmail=Trim(rsGetServices("cu_email"))
End If
If rsGetServices("cu_phone")<>"" Then
strPhone=Trim(rsGetServices("cu_phone"))
End If
If rsGetServices("cu_fax")<>"" Then
strFax=Trim(rsGetServices("cu_fax"))
End If
End If
%>
FEROZE'S Real Estate Advisory :: Contact Us
