<% Response.Buffer = True Dim xml name = request.querystring("name") getXml xml, name Session("moddate") = getXmlNodeText(xml, "moddate") Session("dogregisteredname") = getXmlNodeText(xml, "fullname") Session("dogcallname") = getXmlNodeText(xml, "callname") Session("dogbreeder") = getXmlNodeText(xml, "breeder") Session("dogowner") = getXmlNodeText(xml, "owner") Session("dogbirth") = getXmlNodeText(xml, "dob") Session("dogdeath") = getXmlNodeText(xml, "dod") Session("dogsex") = getXmlNodeText(xml, "sex") Session("dogimage") = getXmlNodeText(xml, "key") Session("competition") = getXmlNodeText(xml, "activities") Session("jobs") = getXmlNodeText(xml, "jobs") Session("ofanos") = getXmlNodeText(xml, "ofanos") 'children 'Dim children, childs 'Set children = xml.documentelement.selectSingleNode("children") 'Set childs = children.selectNodes("child") Dim children, count, count2 count = 0 Set children = xml.documentelement.selectSingleNode("children").selectNodes("child") Redim offSpring(0) For Each child In children Redim preserve offSpring(count + 1) offSpring(count) = formatOffSpring(child.Text) count = count + 1 Next Session("offspring") = offSpring 'Get key for sire and dam from original file Dim sireName, damName, sirekey, damkey sirekey= getXmlNodeText(xml, "sirekey") damkey= getXmlNodeText(xml, "damkey") Dim siressirekey, siresdamkey, siressiressirekey, siressiresdamkey, siresdamssirekey, siresdamsdamkey, damssirekey, damsdamkey, damssiressirekey, damssiresdamkey, damsdamssirekey, damsdamsdamkey '-----------------------SIRE'S HALF OF PEDIGREE----------------------- 'load sire's file if (sirekey = "") Then Session("sire") = "" Session("sireurl") = "" Session("sirecolor") = "" Session("sireactive") = "" Session("sireofanos") = "" siressirekey= "" siresdamkey= "" else if (getXml (xml, sirekey)) Then Session("sire") = getXmlNodeText(xml, "fullname") Session("sireurl") = getXmlNodeText(xml, "key") Session("sirecolor") = getXmlNodeText(xml, "color") Session("sireactive") = getXmlNodeText(xml, "active") Session("sireofanos") = getXmlNodeText(xml, "ofanos") siressirekey= getXmlNodeText(xml, "sirekey") siresdamkey= getXmlNodeText(xml, "damkey") End If End If 'load sire's sire's file if (siressirekey = "") Then Session("siressire") = "" Session("siressireurl") = "" Session("siressirecolor") = "" Session("siressireactive") = "" Session("siressireofanos") = "" siressiressirekey= "" siressiresdamkey= "" else if (getXml (xml, siressirekey)) Then Session("siressire") = getXmlNodeText(xml, "fullname") Session("siressireurl") = getXmlNodeText(xml, "key") Session("siressirecolor") = getXmlNodeText(xml, "color") Session("siressireactive") = getXmlNodeText(xml, "active") Session("siressireofanos") = getXmlNodeText(xml, "ofanos") siressiressirekey= getXmlNodeText(xml, "sirekey") siressiresdamkey= getXmlNodeText(xml, "damkey") End If End If 'load sire's sire's sire's file if (siressiressirekey = "") Then Session("siresSiressire") = "" Session("siresSiressireurl") = "" Session("siresSiressirecolor") = "" Session("siresSiressireactive") = "" Session("siressiressireofanos") = "" else if (getXml (xml, siressiressirekey)) Then Session("siresSiressire") = getXmlNodeText(xml, "fullname") Session("siresSiressireurl") = getXmlNodeText(xml, "key") Session("siresSiressirecolor") = getXmlNodeText(xml, "color") Session("siresSiressireactive") = getXmlNodeText(xml, "active") Session("siressiressireofanos") = getXmlNodeText(xml, "ofanos") End If End If 'load sire's sire's dam's file if (siressiresdamkey = "") Then Session("siressiresdam") = "" Session("siressiresdamurl") = "" Session("siressiresdamcolor") = "" Session("siressiresdamactive") = "" Session("siressiresdamofanos") = "" else if (getXml (xml, siressiresdamkey)) Then Session("siressiresdam") = getXmlNodeText(xml, "fullname") Session("siressiresdamurl") = getXmlNodeText(xml, "key") Session("siressiresdamcolor") = getXmlNodeText(xml, "color") Session("siressiresdamactive") = getXmlNodeText(xml, "active") Session("siressiresdamofanos") = getXmlNodeText(xml, "ofanos") End If End If 'load sire's dam's file if (siresdamkey = "") Then Session("siresdam") = "" Session("siresdamurl") = "" Session("siresdamcolor") = "" Session("siresdamactive") = "" Session("siresdamofanos") = "" siresdamssirekey= "" siresdamsdamkey= "" else if (getXml (xml, siresdamkey)) Then Session("siresdam") = getXmlNodeText(xml, "fullname") Session("siresdamurl") = getXmlNodeText(xml, "key") Session("siresdamcolor") = getXmlNodeText(xml, "color") Session("siresdamactive") = getXmlNodeText(xml, "active") Session("siresdamofanos") = getXmlNodeText(xml, "ofanos") siresdamssirekey= getXmlNodeText(xml, "sirekey") siresdamsdamkey= getXmlNodeText(xml, "damkey") End If End If 'load sire's dam's sire's file if (siresdamssirekey = "") Then Session("siresdamssire") = "" Session("siresdamssireurl") = "" Session("siresdamssirecolor") = "" Session("siresdamssireactive") = "" Session("siresdamssireofanos") = "" else if (getXml (xml, siresdamssirekey)) Then Session("siresdamssire") = getXmlNodeText(xml, "fullname") Session("siresdamssireurl") = getXmlNodeText(xml, "key") Session("siresdamssirecolor") = getXmlNodeText(xml, "color") Session("siresdamssireactive") = getXmlNodeText(xml, "active") Session("siresdamssireofanos") = getXmlNodeText(xml, "ofanos") End If End If 'load sire's dam's dam's file if (siresdamsdamkey = "") Then Session("siresdamsdam") = "" Session("siresdamsdamurl") = "" Session("siresdamsdamcolor") = "" Session("siresdamsdamactive") = "" Session("siresdamsdamofanos") = "" else if (getXml (xml, siresdamsdamkey)) Then Session("siresdamsdam") = getXmlNodeText(xml, "fullname") Session("siresdamsdamurl") = getXmlNodeText(xml, "key") Session("siresdamsdamcolor") = getXmlNodeText(xml, "color") Session("siresdamsdamactive") = getXmlNodeText(xml, "active") Session("siresdamsdamofanos") = getXmlNodeText(xml, "ofanos") End If End If '-----------------------DAM'S HALF OF PEDIGREE----------------------- 'load dam's file if (damkey = "") Then Session("dam") = "" Session("damurl") = "" Session("damcolor") = "" Session("damactive") = "" Session("damofanos") = "" damssirekey= "" damsdamkey= "" else if (getXml (xml, damkey)) Then Session("dam") = getXmlNodeText(xml, "fullname") Session("damurl") = getXmlNodeText(xml, "key") Session("damcolor") = getXmlNodeText(xml, "color") Session("damactive") = getXmlNodeText(xml, "active") Session("damofanos") = getXmlNodeText(xml, "ofanos") damssirekey= getXmlNodeText(xml, "sirekey") damsdamkey= getXmlNodeText(xml, "damkey") End If End If 'load dam's sire's file if (damssirekey = "") Then Session("damssire") = "" Session("damssireurl") = "" Session("damssirecolor") = "" Session("damssireactive") = "" Session("damssireofanos") = "" damssiressirekey= "" damssiresdamkey= "" else if (getXml (xml, damssirekey)) Then Session("damssire") = getXmlNodeText(xml, "fullname") Session("damssireurl") = getXmlNodeText(xml, "key") Session("damssirecolor") = getXmlNodeText(xml, "color") Session("damssireactive") = getXmlNodeText(xml, "active") Session("damssireofanos") = getXmlNodeText(xml, "ofanos") damssiressirekey= getXmlNodeText(xml, "sirekey") damssiresdamkey= getXmlNodeText(xml, "damkey") End If End If 'load dam's sire's sire's file if (damssiressirekey = "") Then Session("damssiressire") = "" Session("damssiressireurl") = "" Session("damssiressirecolor") = "" Session("damssiressireactive") = "" Session("damssiressireofanos") = "" else if (getXml (xml, damssiressirekey)) Then Session("damssiressire") = getXmlNodeText(xml, "fullname") Session("damssiressireurl") = getXmlNodeText(xml, "key") Session("damssiressirecolor") = getXmlNodeText(xml, "color") Session("damssiressireactive") = getXmlNodeText(xml, "active") Session("damssiressireofanos") = getXmlNodeText(xml, "ofanos") End If End If 'load dam's sire's dam's file if (damssiresdamkey = "") Then Session("damssiresdam") = "" Session("damssiresdamurl") = "" Session("damssiresdamcolor") = "" Session("damssiresdamactive") = "" Session("damssiresdamofanos") = "" else if (getXml (xml, damssiresdamkey)) Then Session("damssiresdam") = getXmlNodeText(xml, "fullname") Session("damssiresdamurl") = getXmlNodeText(xml, "key") Session("damssiresdamcolor") = getXmlNodeText(xml, "color") Session("damssiresdamactive") = getXmlNodeText(xml, "active") Session("damssiresdamofanos") = getXmlNodeText(xml, "ofanos") End If End If 'load dam's dam's file if (damsdamkey = "") Then Session("damsdam") = "" Session("damsdamurl") = "" Session("damsdamcolor") = "" Session("damsdamactive") = "" Session("damsdamofanos") = "" damsdamssirekey= "" damsdamsdamkey= "" else if (getXml (xml, damsdamkey)) Then Session("damsdam") = getXmlNodeText(xml, "fullname") Session("damsdamurl") = getXmlNodeText(xml, "key") Session("damsdamcolor") = getXmlNodeText(xml, "color") Session("damsdamactive") = getXmlNodeText(xml, "active") Session("damsdamofanos") = getXmlNodeText(xml, "ofanos") damsdamssirekey= getXmlNodeText(xml, "sirekey") damsdamsdamkey= getXmlNodeText(xml, "damkey") End If End If 'load dam's dam's sire's file if (damsdamssirekey = "") Then Session("damsdamssire") = "" Session("damsdamssireurl") = "" Session("damsdamssirecolor") = "" Session("damsdamssireactive") = "" Session("damsdamssireofanos") = "" else if (getXml (xml, damsdamssirekey)) Then Session("damsdamssire") = getXmlNodeText(xml, "fullname") Session("damsdamssireurl") = getXmlNodeText(xml, "key") Session("damsdamssirecolor") = getXmlNodeText(xml, "color") Session("damsdamssireactive") = getXmlNodeText(xml, "active") Session("damsdamssireofanos") = getXmlNodeText(xml, "ofanos") End If End If 'load dam's dam's dam's file if (damsdamsdamkey = "") Then Session("damsdamsdam") = "" Session("damsdamsdamurl") = "" Session("damsdamsdamcolor") = "" Session("damsdamsdamactive") = "" Session("damsdamsdamofanos") = "" else if (getXml (xml, damsdamsdamkey)) Then Session("damsdamsdam") = getXmlNodeText(xml, "fullname") Session("damsdamsdamurl") = getXmlNodeText(xml, "key") Session("damsdamsdamcolor") = getXmlNodeText(xml, "color") Session("damsdamsdamactive") = getXmlNodeText(xml, "active") Session("damsdamsdamofanos") = getXmlNodeText(xml, "ofanos") End If End If Set xml = Nothing %>