Asp reads xml files and counts

if isnumeric(id)=false then exit sub
 strSourceFile = (dataxml&"/Advertisement/"&id&"/")
Set objXML =("") 'Create an XML object
(strSourceFile) 'Read the XML file into memory
Set xml=("Advertisement")  'Select node Advertisement
    ADid=(0).text
    ADname=(1).text
    ADintro=(2).text
    ADact=(3).text
    ADclass=(4).text
    Pids=(5).text
    Picid=(6).text
    ADurl=(7).text
    ADwindow=(8).text
    ADshow=(9).text
    ADshows=(10).text
    ADclick=(11).text
    ADclicks=(12).text
    ADtime=(13).text
    ADstoptime=(14).text
    ADstarttime=(15).text
    ADxslei=(16).text
    ADcss=(17).text
    Picurl=(18).text
    ADipkg=(19).text 
(9).text=(9).text+1 '' Add 1
    (strSourceFile)
Set xml=nothing
Set objXML =nothing