Danmarks største oversigt over webbutikker med alt til børnene

børnetøj - babytøj - babysko - legetøj - babyudstyr - babypleje - barnevogne
 Produkter:      
Forside
Tilmeld butik
Tilbudsavisen
Om smarteunger.dk
Forside > Information
 
  Her finder du følgende information:
   
  Kontakt
  Ideen bag
  Priser
  Annoncering
  Gode råd
  Pressen skrev..
 
cvr 30699327 - smarteunger.dk - Eng Allé 15- 6710 Esbjerg V - kontakt - sitemap
<% ' ' find antal online butikker ' -------------------------- StrSort="forretning_navn ASC" strQuery="SELECT * FROM tblForretning_link where godkendt ORDER BY " &StrSort strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "\" ) & "\..\database\butikker_web.mdb" Set rst = Server.CreateObject("ADODB.recordset") rst.Open strQuery, strProvider dim j, nbutik, nannon j = 0 nbutik = 0 rst.movefirst while not rst.EOF nbutik = nbutik + 1 rst.MoveNext wend rst.Close set rst = Nothing ' ' find antal annoncer i tilbudsavisen ' ----------------------------------- StrSort="tid ASC" strQuery="SELECT * FROM annonce WHERE aktiv ORDER BY " &StrSort strProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "\" ) & "\..\database\tilbudsavisen.mdb" Set rst = Server.CreateObject("ADODB.recordset") rst.Open strQuery, strProvider j=0 nannon = 0 rst.movefirst while not rst.EOF nannon = nannon + 1 rst.MoveNext wend rst.Close set rst = Nothing ' ' skab forbindelse til NetSundhedsplejerske.dk ' -------------------------------------------- extURL = "http://www.netsundhedsplejerske.dk/specialfeeds/smarteunger.xml" set xmlDoc = createObject("Msxml.DOMDocument") xmlDoc.async = false xmlDoc.setProperty "ServerHTTPRequest", true xmlDoc.load(extURL) dim title(5), link(5), i , stat stat = true if (xmlDoc.parseError.errorCode <> 0) then stat = false else Set oNode = xmldoc.documentElement.getElementsByTagName("item") i = 0 For each Item in oNode i = 1 + i title(i) = Item.ChildNodes.Item(0).text link(i) = Item.ChildNodes.Item(2).text Next end if %>