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