<%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
%>