<%
arrCategory = Split(Request.QueryString("category"), "_")
if ubound(arrCategory) > 0 Then
CategoryId = arrCategory(1)
CategoryName = arrCategory(0)
SubcategoryId = arrCategory(2)
else
CategoryId = "0"
CategoryName = "Unknown"
SubcategoryId = "0"
End If

Response.Addheader "Content-Disposition", "online; filename=xpertProduct_"& Request.QueryString("category") &".csv"
'Response.ContentType = "application/download"
strURL = "http://www.find-services.co.uk/electric/elecsearch.aspx?site=xpert4u&maincategory="&CategoryId&"&keywords=&pricefrom=&priceto=&removedups=0&sort=&page=1&pagesize=10000&Category="&SubcategoryId
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("item")
noOfHeadlines = objLst.length
cnt = 1
num = 4
x=""
For i = 0 To noOfHeadlines - 1
Set objHdl = objLst.item(i)
if Not objHdl.getElementsByTagName("urlMake") Is Nothing Then
imagemake=objHdl.getElementsByTagName("urlMake").item(0).text
x=x+imagemake+","
End If
if Not objHdl.getElementsByTagName("urlModel") Is Nothing Then
imagemodel=objHdl.getElementsByTagName("urlModel").item(0).text
x=x+ imagemodel +","
End If
if Not objHdl.getElementsByTagName("productName") Is Nothing Then
imageName=objHdl.getElementsByTagName("productName").item(0).text
imageName = replace(imageName," ","-")
x=x+ imageName +","
End If
' if Not objHdl.getElementsByTagName("price") Is Nothing Then
' imageprice=objHdl.getElementsByTagName("price").item(0).text
' x=x+ imageprice +","
' End If
if Not objHdl.getElementsByTagName("description") Is Nothing Then
productDescription=objHdl.getElementsByTagName("description").item(0).text
x=x+ productDescription +","
End If
if Not objHdl.getElementsByTagName("productName") Is Nothing Then
ProductName=objHdl.getElementsByTagName("productName").item(0).text
x=x+ ProductName +","
End If
x=x+"\n"+vbcrlf
Next
End If
response.Write(x)
response.End()
%>