Function getContent(xmlndPart)
Dim sContent
dim sWorkSpaceUrl
sWorkSpaceUrl=getworkspaceurl
dim adoCon,adoRS,sFolder,bsContent
set adoCon = CreateObject("adodb.connection")
set adoRS = CreateObject("adodb.RecordSet")
sFolder=sWorkSpaceUrl & "/BWPhotography"
adoCon.Open "Provider=MSDAIPP.DSO;Data Source=" & sWorkSpaceUrl
sql = "select ""DAV:href"", ""urn:schemas-microsoft-com:publishing:ShortcutTarget"""
sql = sql & " from scope('SHALLOW TRAVERSAL OF """ & sFolder & """')"
sql = sql & " WHERE (""DAV:contentclass"" = 'urn:content-classes:weblink')"
adoRS.Open sql, adoCon, 1, 3
sContent="" & vbCrLf
sContent=sContent & "" & vbCrLf
sContent=sContent & "" & vbCrLf
sContent=sContent & "
" & vbCrLf
sContent=sContent & "" & vbCrLf
sContent=sContent & "" & vbCrLf
adors.MoveFirst
on error resume next
sContent=sContent & ""
sContent=sContent & "![]() " & vbCrLf
sContent=sContent & ""
sContent=sContent & " | " & vbCrLf
sContent=sContent & "
" & vbCrLf
sContent=sContent & "
" & vbCrLf
getContent = sContent
End Function