<%@LANGUAGE="VBSCRIPT"%> <% Dim rsSunice__MMColParam rsSunice__MMColParam = "" If (Application("SUN") <> "") Then rsSunice__MMColParam = Application("SUN") End If %> <% Dim rsSunice Dim rsSunice_numRows Set rsSunice = Server.CreateObject("ADODB.Recordset") rsSunice.ActiveConnection = MM_CS_Ashworth_STRING rsSunice.Source = "SELECT Advisor_Name, Brand, Contact_No, Region FROM CustomerServicesList WHERE Brand = '" + Replace(rsSunice__MMColParam, "'", "''") + "' ORDER BY Region ASC" rsSunice.CursorType = 0 rsSunice.CursorLocation = 2 rsSunice.LockType = 1 rsSunice.Open() rsSunice_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSunice_numRows = rsSunice_numRows + Repeat1__numRows %> Sunice - Customer Services

Customer Services Email A Friend Sitemap

Sunice Customer Services - Europe

<% While ((Repeat1__numRows <> 0) AND (NOT rsSunice.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSunice.MoveNext() Wend %>

Region	Name	Contact Number
<%=(rsSunice.Fields.Item("Region").Value)%>	<%=(rsSunice.Fields.Item("Advisor_Name").Value)%>	<%=(rsSunice.Fields.Item("Contact_No").Value)%>

<% rsSunice.Close() Set rsSunice = Nothing %>