<%
Dim catID,strURL, xml,sitePATH

catID=Request.QueryString("ABC")

if catID="Books" then
strURL="http://www.find-services.co.uk/book/bookCategories.aspx?site=xpert4u"
group="category"
id=0
Tname=1
elseif catID="Electronics" then
strURL= "http://www.find-services.co.uk/electric/eleccategories.aspx?site=xpert4u&type=maincategories&category="
group="MainCategory"
id=0
Tname=1

elseif catID="Games" then
strURL="http://www.find-games.co.uk/services/gameplatforms.asp?site=xpert4u&type=category"
group="category"
id=0
Tname=0
' response.Write(strURL)
elseif catID="Movie" then
strURL="http://www.find-services.co.uk/dvd/dvdCategories.aspx?site=xpert4u"
group="category"
id=0
Tname=1

elseif catID = "Music" then 'Music Section

strURL = "http://www.find-services.co.uk/cd/cdCategories.aspx?site=xpert4u"
group = "category"
id = 0
Tname = 1


elseif catID = "Games_Platform" then 'Games Platform Section

strURL = "http://www.find-games.co.uk/services/gameplatforms.asp?site=xpert4u&type="
group = "gamePlatform"
id = 0
Tname = 1

elseif catID = "Electronics_Subcategory" then 'Electronics Subcategory Section
strURL = "http://www.find-services.co.uk/electric/eleccategories.aspx?site=xpert4u&type=subcategories&category="
subcategoryvar = catID
group = "Category"
id = 3
Tname = 2
subid = 0
End if
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", strURL, False
xml.Send
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
Set objLst = Server.CreateObject("Microsoft.XMLDOM")
Set objHdl = Server.CreateObject("Microsoft.XMLDOM")
objXML.async = False

If xml.readyState = 4 Then
objXML.LoadXML(xml.responseText)
If objXML.parseError.errorCode <> 0 Then
End If
Set objLst = objXML.getElementsByTagName(group)
noOfHeadlines = objLst.length

%>

SUB-CATEGORY
<%
For i = 0 To noOfHeadlines -1
Set objHdl = objLst.item(i)
if subcategoryvar = "Electronics_Subcategory" then
catid = replace(replace(objHdl.childNodes(Tname).text,"&","-")," ","_") & "_" & objHdl.childNodes(id).text & "_" & objHdl.childNodes(subid).text
categoryname = objHdl.childNodes(Tname).text
else
catid = objHdl.childNodes(id).text
categoryname = objHdl.childNodes(Tname).text
end if
%>

<%
Next
%>

<%
End If
%>