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 > Annoncering
 
  Sponsorer
   
  Vi tilbyder vore sponsorer forskellige former på eksponering.
   
 
  • annonce i sponsor-søjle
  • beskrivelse i nyhedsbrev
  • konkurrence sponsoraftale
   
 

Kontakt os for annonce størrelser, priser og gode ideer.

Email: redaktion@smarteunger.dk

Telefon: 20210051

 
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 %>